Changeset 13456


Ignore:
Timestamp:
Feb 22, 2010, 8:14:23 PM (9 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/macros.lisp

    r13454 r13456  
    14891489    (multiple-value-bind (forms decls) (parse-body body env nil)
    14901490      `(let* ((,var ,@(if string-p
    1491                           `((,@(if element-type-p
     1491                          `(,@(if element-type-p
    14921492                                   `((progn
    14931493                                       ,element-type
    14941494                                       (%make-string-output-stream ,string)))
    1495                                    `((%make-string-output-stream ,string)))))
    1496                           `((,@(if element-type-p
     1495                                   `((%make-string-output-stream ,string))))
     1496                          `(,@(if element-type-p
    14971497                                   `((make-string-output-stream :element-type ,element-type))
    1498                                    `((make-string-output-stream))))))))
     1498                                   `((make-string-output-stream)))))))
    14991499        ,@decls
    15001500        (unwind-protect
     
    15101510    (multiple-value-bind (forms decls) (parse-body body env nil)
    15111511      `(let* ((,var ,@(if vector-p
    1512                           `((%make-vector-output-stream ,vector ,external-format))
    1513                           `((make-vector-output-stream :external-format ,external-format)))))
     1512                          `(%make-vector-output-stream ,vector ,external-format)
     1513                          `(make-vector-output-stream :external-format ,external-format))))
    15141514         ,@decls
    15151515         (unwind-protect
Note: See TracChangeset for help on using the changeset viewer.