diff --git a/code/stream.lisp b/code/stream.lisp index 2db3d1ba18e06f5d708eb02eafc0f8921c8381e0..289466107d7e219f1511f43391c6835b44227ea1 100644 --- a/code/stream.lisp +++ b/code/stream.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.63 2003/06/18 09:23:10 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.64 2003/07/30 16:51:43 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1439,7 +1439,7 @@ output to Output-stream" (sout #'string-sout) (misc #'string-out-misc)) (:print-function %print-string-output-stream) - (:constructor make-string-output-stream ())) + (:constructor %make-string-output-stream ())) ;; The string we throw stuff in. (string (make-string 40) :type simple-string) ;; Index of the next location to use. @@ -1449,9 +1449,11 @@ output to Output-stream" (declare (ignore s d)) (write-string "#<String-Output Stream>" stream)) -(setf (documentation 'make-string-output-stream 'function) +(defun make-string-output-stream (&key (element-type 'character)) "Returns an Output stream which will accumulate all output given to it for - the benefit of the function Get-Output-Stream-String.") + the benefit of the function Get-Output-Stream-String." + (declare (ignore element-type)) + (%make-string-output-stream)) (defun string-ouch (stream character) (let ((current (string-output-stream-index stream)) diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp index 1af58d9bd363d20850da79f6e6285bea0c32c28f..1ebf859c0ccf0965f474006302eeb84d8c9737df 100644 --- a/compiler/fndb.lisp +++ b/compiler/fndb.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.119 2003/07/19 15:30:30 emarsden Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.120 2003/07/30 16:51:43 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -820,7 +820,9 @@ (defknown make-two-way-stream (stream stream) stream (flushable)) (defknown make-echo-stream (stream stream) stream (flushable)) (defknown make-string-input-stream (string &optional index index) stream (flushable unsafe)) -(defknown make-string-output-stream () stream (flushable)) +(defknown make-string-output-stream (&key (:element-type type-specifier)) + stream + (flushable)) (defknown get-output-stream-string (stream) simple-string ()) (defknown streamp (t) boolean (movable foldable flushable)) (defknown stream-element-type (stream) type-specifier (movable foldable flushable))