Changeset 13456

Timestamp:

Feb 22, 2010, 12:14:23 PM (15 years ago)

Author:

Gary Byers

Message:

Extra parens in WITH-OUTPUT-TO-STRING, WITH-OUTPUT-TO-VECTOR.

File:

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

trunk/source/lib/macros.lisp

@@ -1489 +1489 @@
     (multiple-value-bind (forms decls) (parse-body body env nil)
       `(let* ((,var ,@(if string-p
-                          `((,@(if element-type-p
+                          `(,@(if element-type-p
                                    `((progn
                                        ,element-type
                                        (%make-string-output-stream ,string)))
-                                   `((%make-string-output-stream ,string)))))
-                          `((,@(if element-type-p
+                                   `((%make-string-output-stream ,string))))
+                          `(,@(if element-type-p
                                    `((make-string-output-stream :element-type ,element-type))
-                                   `((make-string-output-stream))))))))
+                                   `((make-string-output-stream)))))))
         ,@decls
         (unwind-protect
@@ -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