Changeset 10491


Ignore:
Timestamp:
Aug 19, 2008, 10:18:39 AM (11 years ago)
Author:
gb
Message:

MAKE-TRUNCATING-STRING-STREAM: use a simple string, not one with a
fill pointer.

File:
1 edited

Legend:

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

    r10429 r10491  
    44664466(defun make-truncating-string-stream (len)
    44674467  (%%make-string-output-stream *truncating-string-output-stream-class*
    4468                                (make-array len
    4469                                      :element-type 'character
    4470                                      :fill-pointer 0
    4471                                      :adjustable nil)
     4468                               (make-string len)
    44724469                               'truncating-string-output-stream-ioblock-write-char
    44734470                               'truncating-string-output-stream-ioblock-write-simple-string))
Note: See TracChangeset for help on using the changeset viewer.