Skip to content
Snippets Groups Projects
Commit 0556eb1a authored by wlott's avatar wlott
Browse files

Changed the defknown for format to allow a function instead of a

control-string.
parent 3056906d
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.33 1991/12/02 23:41:47 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.34 1991/12/05 05:47:57 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -874,7 +874,8 @@ ...@@ -874,7 +874,8 @@
(defknown write-byte (integer stream) integer (defknown write-byte (integer stream) integer
(explicit-check)) (explicit-check))
(defknown format ((or streamlike string) string &rest t) (or string null) (defknown format ((or streamlike string) (or string function) &rest t)
(or string null)
(explicit-check)) (explicit-check))
(defknown (y-or-n-p yes-or-no-p) (&optional string &rest t) boolean (defknown (y-or-n-p yes-or-no-p) (&optional string &rest t) boolean
......
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