Skip to content
Snippets Groups Projects
Commit 28b5278a authored by ram's avatar ram
Browse files

Fixed some broken arg type declarations..

parent 534283c0
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.16 1991/01/30 23:20:13 ram Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.17 1991/02/14 20:43:41 ram Exp $
;;; ;;;
;;; This file defines all the standard functions to be known functions. ;;; This file defines all the standard functions to be known functions.
;;; Each function has type and side-effect information, and may also have IR1 ;;; Each function has type and side-effect information, and may also have IR1
...@@ -493,7 +493,7 @@ ...@@ -493,7 +493,7 @@
(defknown endp (t) boolean (foldable flushable movable)) (defknown endp (t) boolean (foldable flushable movable))
(defknown list-length (list) (or index null) (foldable flushable)) (defknown list-length (list) (or index null) (foldable flushable))
(defknown (nth nthcdr) (index list) t (foldable flushable)) (defknown (nth nthcdr) (index list) t (foldable flushable))
(defknown last (list) list (foldable flushable)) (defknown last (list &optional index) list (foldable flushable))
(defknown list (&rest t) list (movable flushable unsafe)) (defknown list (&rest t) list (movable flushable unsafe))
(defknown list* (t &rest t) t (movable flushable unsafe)) (defknown list* (t &rest t) t (movable flushable unsafe))
(defknown make-list (index &key (initial-element t)) list (defknown make-list (index &key (initial-element t)) list
...@@ -771,7 +771,7 @@ ...@@ -771,7 +771,7 @@
;;; xxx-TO-STRING not foldable because they depend on the dynamic environment. ;;; xxx-TO-STRING not foldable because they depend on the dynamic environment.
(defknown write-to-string (defknown write-to-string
(t &key (stream streamlike) (escape t) (radix t) (base (integer 2 36)) (t &key (escape t) (radix t) (base (integer 2 36))
(circle t) (pretty t) (level (or unsigned-byte null)) (circle t) (pretty t) (level (or unsigned-byte null))
(length (or unsigned-byte null)) (case t) (array t) (gensym t)) (length (or unsigned-byte null)) (case t) (array t) (gensym t))
simple-string simple-string
...@@ -807,7 +807,9 @@ ...@@ -807,7 +807,9 @@
(values (or pathname null) index) (values (or pathname null) index)
()) ())
(defknown merge-pathnames (pathnamelike &optional pathnamelike) pathname (defknown merge-pathnames
(pathnamelike &optional pathnamelike pathname-version)
pathname
(foldable flushable)) (foldable flushable))
(defknown make-pathname (defknown make-pathname
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment