Changeset 5606

Timestamp:

Dec 9, 2006, 8:52:30 AM (18 years ago)

Author:

Gary Byers

Message:

STRING-OUTPUT-STREAMs need to override their CLEAR-OUTPUT methods.

MAKE-STRING-INPUT-STREAM: handle displaced strings better (remember
their displaced-index-offsets.)

File:

• trunk/ccl/level-1/l1-streams.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-streams.lisp

@@ -4100 +4100 @@
   nil)
 
+(defmethod stream-clear-output ((s string-output-stream))
+  nil)
+
 ;;; Should only be used for a stream whose class is exactly
 ;;; *string-output-stream-class* 
@@ -4540 +4543 @@
            (ioblock (make-string-input-stream-ioblock
                      :stream stream
+                     :offset offset
                      :device nil
                      :string data