Changeset 9946


Ignore:
Timestamp:
Jul 10, 2008, 8:57:49 AM (11 years ago)
Author:
gb
Message:

WRITE-ESCAPED-STRING: call WRITE-CHAR, not STREAM-WRITE-CHAR.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-io.lisp

    r9620 r9946  
    962962  (declare (type string string) (type character delim)
    963963           (type stream stream))
    964   (stream-write-char stream delim)
     964  (write-char delim stream)
    965965  (do* ((limit (length string))
    966966        (i 0 (1+ i)))
     
    970970           (needs-escape? (%char-needs-escape-p char #\\ delim)))
    971971      (if needs-escape?
    972           (stream-write-char stream #\\))
    973       (stream-write-char stream char)))
    974   (stream-write-char stream delim))
     972          (write-char #\\ stream))
     973      (write-char char stream)))
     974  (write-char delim stream))
    975975
    976976
Note: See TracChangeset for help on using the changeset viewer.