Changeset 5420

Timestamp:

Oct 24, 2006, 12:05:01 AM (18 years ago)

Author:

Gary Byers

Message:

Reference the (bound) STREAM-VAR argument - not STREAM - in the expansion of
WITH-OUTPUT-TO-STRING.

File:

• trunk/ccl/lib/macros.lisp (modified) (1 diff)

trunk/ccl/lib/macros.lisp

@@ -1381 +1381 @@
       `(let* ((,string-var ,string)
               (,var (if ,string-var
-                        (%make-string-output-stream ,string)
+                        (%make-string-output-stream ,string-var)
                       ,@(if element-type-p
                             `((make-string-output-stream :element-type ',element-type))