Changeset 11443

Timestamp:

Nov 28, 2008, 7:55:13 PM (12 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:

• trunk/source/compiler/optimizers.lisp (modified) (1 diff)

trunk/source/compiler/optimizers.lisp

@@ -1925 +1925 @@
   (if (nx-form-typep string 'simple-string env)
     (if keys
-      `((lambda (string stream &key start end) 
+      `((lambda (string stream &key (start 0) end)
           (write-simple-string string stream start end))
         ,string ,stream ,@keys)