Changeset 539

Timestamp:

Feb 15, 2004, 8:16:15 AM (21 years ago)

Author:

Gary Byers

Message:

WITH-OUTPUT-TO-STRING: don't quote element-type.

File:

• trunk/ccl/lib/macros.lisp (modified) (2 diffs)

trunk/ccl/lib/macros.lisp

@@ -1256 +1256 @@
         ,@(if index `((setf ,index (string-input-stream-index ,var))))))))
 
-(defmacro with-output-to-string ((var &optional string &key (element-type 'base-char))
+(defmacro with-output-to-string ((var &optional string &key (element-type 'base-char element-type-p))
                                  &body body 
                                  &environment env)
@@ -1262 +1262 @@
     `(let ((,var ,(if string
                     `(%make-string-output-stream ,string)
-                    `(make-string-output-stream :element-type ',element-type))))
+                    `(make-string-output-stream :element-type ,(if element-type-p element-type `'base-char)))))
        ,@decls
        (unwind-protect