Changeset 710

Timestamp:

Mar 24, 2004, 12:43:41 AM (21 years ago)

Author:

Gary Byers

Message:

SELECTION-INPUT-STREAM fixes.

File:

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

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

@@ -2481 +2481 @@
 ;;; that contain multiple forms are handled; see *VERBOSE-EVAL-SELECTION*
 ;;; and the SELECTION-INPUT-STREAM method below.)
+
+(defmethod read-toplevel-form ((stream synonym-stream) eof-value)
+  (read-toplevel-form (symbol-value (synonym-stream-symbol stream)) eof-value))
+
+(defmethod read-toplevel-form ((stream two-way-stream) eof-value)
+  (read-toplevel-form (two-way-stream-input-stream stream) eof-value))
+
+(defmethod read-toplevel-form :after ((stream echoing-two-way-stream) eof-value)
+  (declare (ignore eof-value))
+  (stream-set-column (two-way-stream-output-stream stream) 0))
+
 (defmethod read-toplevel-form ((stream input-stream)
                                eof-value)