Changeset 13458

Timestamp:

Feb 22, 2010, 10:09:31 PM (15 years ago)

Author:

Gary Byers

Message:

Fix macrology in WITH-OUTPUT-TO-VECTOR.

File:

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

trunk/source/lib/macros.lisp

@@ -1510 +1510 @@
     (multiple-value-bind (forms decls) (parse-body body env nil)
       `(let* ((,var ,@(if vector-p
-                          `(%make-vector-output-stream ,vector ,external-format)
-                          `(make-vector-output-stream :external-format ,external-format))))
+                          `((%make-vector-output-stream ,vector ,external-format))
+                          `((make-vector-output-stream :external-format ,external-format)))))
          ,@decls
          (unwind-protect