Changeset 11443


Ignore:
Timestamp:
Nov 28, 2008, 7:55:13 PM (11 years ago)
Author:
rme
Message:

In the compiler macro on WRITE-STRING, make sure that we don't pass
NIL as the value of the START parameter to WRITE-SIMPLE-STRING.
(ticket:382).

File:
1 edited

Legend:

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

    r11263 r11443  
    19251925  (if (nx-form-typep string 'simple-string env)
    19261926    (if keys
    1927       `((lambda (string stream &key start end)
     1927      `((lambda (string stream &key (start 0) end)
    19281928          (write-simple-string string stream start end))
    19291929        ,string ,stream ,@keys)
Note: See TracChangeset for help on using the changeset viewer.