Changeset 5418

Timestamp:

Oct 23, 2006, 11:55:14 PM (18 years ago)

Author:

Gary Byers

Message:

When recycling string-output-stream-ioblocks, set the IOBLOCK-CHARPOS
to 0. (Failure to do this can screw up the pretty-printer, among
other things.)

File:

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

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

@@ -4124 +4124 @@
                                    (ioblock-stream data)
                                    (ioblock-stream data) stream
+                                   (ioblock-charpos data) 0
                                    (string-output-stream-ioblock-index data) 0))
                            data)))))