Changeset 11646


Ignore:
Timestamp:
Jan 28, 2009, 11:58:32 PM (10 years ago)
Author:
rme
Message:

WRITE-SIMPLE-STRING: don't pass NIL as the value of the END parameter
when calling STREAM-WRITE-STRING in the non-BASIC-STREAM case.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-io.lisp

    r11626 r11646  
    115115      (if (and (not start) (not end))
    116116        (stream-write-string stream string)
    117         (stream-write-string stream string start end)))
     117        (stream-write-string stream string start (or end (length string)))))
    118118    string))
    119119
Note: See TracChangeset for help on using the changeset viewer.