Skip to content
Snippets Groups Projects
Commit 44e2a498 authored by gerd's avatar gerd
Browse files

* src/code/macros.lisp (with-output-to-string): Add and

	ignore element-type.
parent 0557c7fa
No related branches found
No related tags found
No related merge requests found
......@@ -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/macros.lisp,v 1.95 2003/07/09 08:14:52 gerd Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/macros.lisp,v 1.96 2003/07/17 17:48:32 gerd Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -1558,11 +1558,12 @@
,@(if index `((setf ,index (string-input-stream-current ,var))))))))
(defmacro with-output-to-string ((var &optional string)
(defmacro with-output-to-string ((var &optional string &key element-type)
&parse-body (forms decls))
"If STRING is specified, it must be a string with a fill pointer;
the output is incrementally appended to the string (as if by use of
VECTOR-PUSH-EXTEND)."
(declare (ignore element-type))
(if string
`(let ((,var (make-fill-pointer-output-stream ,string)))
,@decls
......
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