From 0a335dfe3474bc14cf80b494042503892a3459bb Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Wed, 30 Jul 2003 16:51:43 +0000 Subject: [PATCH] MAKE-STRING-OUTPUT-STREAM takes an ELEMENT-TYPE keyword arg. Make it so (and just ignore it). --- code/stream.lisp | 10 ++++++---- compiler/fndb.lisp | 6 ++++-- 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/code/stream.lisp b/code/stream.lisp index 2db3d1ba1..289466107 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 1af58d9bd..1ebf859c0 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)) -- GitLab