Ignore:
Timestamp:
Dec 11, 2008, 5:18:28 PM (11 years ago)
Author:
gz
Message:

write-string (bug #382) fix - r11443 from trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/optimizers.lisp

    r11262 r11504  
    19231923  (if (nx-form-typep string 'simple-string env)
    19241924    (if keys
    1925       `((lambda (string stream &key start end)
     1925      `((lambda (string stream &key (start 0) end)
    19261926          (write-simple-string string stream start end))
    19271927        ,string ,stream ,@keys)
Note: See TracChangeset for help on using the changeset viewer.