Changeset 15618


Ignore:
Timestamp:
Jan 28, 2013, 9:45:48 PM (6 years ago)
Author:
gb
Message:

In OPTIMIZE-FORMAT-CALL, punt if the prefix/suffix of the format
string contains a #\~. (May be a control directive.)
Fixes ticket:933 in the trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/optimizers.lisp

    r15606 r15618  
    20412041                       (,func ,stream-var ,obj nil nil)
    20422042                       ,(if rest `(format ,stream-var ,rest ,@rest-args) `nil))))
    2043         (cond ((null stream)
     2043        (cond ((or (position #\~ prev)
     2044                   (position #\~ rest))
     2045               nil)
     2046              ((null stream)
    20442047               `(with-output-to-string (,stream-var)
    20452048                  (declare (type stream ,stream-var))
Note: See TracChangeset for help on using the changeset viewer.