Changeset 5578


Ignore:
Timestamp:
Dec 3, 2006, 6:36:38 AM (18 years ago)
Author:
Gary Byers
Message:

If :element-type is supplied in WITH-OUTPUT-TO-STRING, don't quote it.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/lib/macros.lisp

    r5420 r5578  
    13831383                        (%make-string-output-stream ,string-var)
    13841384                      ,@(if element-type-p
    1385                             `((make-string-output-stream :element-type ',element-type))
     1385                            `((make-string-output-stream :element-type ,element-type))
    13861386                            `((make-string-output-stream))))))
    13871387         ,@decls
Note: See TracChangeset for help on using the changeset viewer.