Changeset 11416


Ignore:
Timestamp:
Nov 19, 2008, 8:03:21 PM (11 years ago)
Author:
gz
Message:

Fix in %make-output-stream from trunk r11288

File:
1 edited

Legend:

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

    r11164 r11416  
    43344334  (unless (and (typep string 'string)
    43354335               (array-has-fill-pointer-p string))
    4336     (error "~S must be a string with a fill pointer."))
     4336    (error "~S must be a string with a fill pointer." string))
    43374337  (%%make-string-output-stream *fill-pointer-string-output-stream-class* string 'fill-pointer-string-output-stream-ioblock-write-char 'fill-pointer-string-output-stream-ioblock-write-simple-string))
    43384338
Note: See TracChangeset for help on using the changeset viewer.