From 44e2a498abd2a1af9a95d05078294fe00e49b477 Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Thu, 17 Jul 2003 17:48:32 +0000 Subject: [PATCH] * src/code/macros.lisp (with-output-to-string): Add and ignore element-type. --- code/macros.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/code/macros.lisp b/code/macros.lisp index 87cf653ba..3a225d7b0 100644 --- a/code/macros.lisp +++ b/code/macros.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/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 -- GitLab