Changeset 13458


Ignore:
Timestamp:
Feb 23, 2010, 6:09:31 AM (10 years ago)
Author:
gb
Message:

Fix macrology in WITH-OUTPUT-TO-VECTOR.

File:
1 edited

Legend:

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

    r13456 r13458  
    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.