Changeset 710


Ignore:
Timestamp:
Mar 24, 2004, 8:43:41 AM (15 years ago)
Author:
gb
Message:

SELECTION-INPUT-STREAM fixes.

File:
1 edited

Legend:

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

    r686 r710  
    24812481;;; that contain multiple forms are handled; see *VERBOSE-EVAL-SELECTION*
    24822482;;; and the SELECTION-INPUT-STREAM method below.)
     2483
     2484(defmethod read-toplevel-form ((stream synonym-stream) eof-value)
     2485  (read-toplevel-form (symbol-value (synonym-stream-symbol stream)) eof-value))
     2486
     2487(defmethod read-toplevel-form ((stream two-way-stream) eof-value)
     2488  (read-toplevel-form (two-way-stream-input-stream stream) eof-value))
     2489
     2490(defmethod read-toplevel-form :after ((stream echoing-two-way-stream) eof-value)
     2491  (declare (ignore eof-value))
     2492  (stream-set-column (two-way-stream-output-stream stream) 0))
     2493
    24832494(defmethod read-toplevel-form ((stream input-stream)
    24842495                               eof-value)
Note: See TracChangeset for help on using the changeset viewer.