Changeset 12111


Ignore:
Timestamp:
May 22, 2009, 10:29:34 AM (10 years ago)
Author:
gb
Message:

Try to increase the chance that a useful STREAM-EOF-TRANSIENT-P method
will be found (in the cases of SYNONYM-STREAMs and TWO-WAY-STREAMs, at
least.)

This was causing listener threads in the IDE (where EOF is certainly
transient) to exit on EOF when reading from a malformed selection.
(ticket:479)

File:
1 edited

Legend:

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

    r11980 r12111  
    38433843           (synonym-method stream-input-timeout)
    38443844           (synonym-method stream-output-timeout)
    3845            (synonym-method stream-deadline))
     3845           (synonym-method stream-deadline)
     3846           (synonym-method stream-eof-transient-p))
    38463847
    38473848(defmethod (setf input-stream-timeout) (new (s synonym-stream))
     
    38823883    ((input-stream :initarg :input-stream :accessor two-way-stream-input-stream)
    38833884     (output-stream :initarg :output-stream :accessor two-way-stream-output-stream)))
     3885
     3886(defmethod stream-eof-transient-p ((stream two-way-stream))
     3887  (stream-eof-transient-p (two-way-stream-input-stream stream)))
    38843888
    38853889(defmethod print-object ((s two-way-stream) out)
Note: See TracChangeset for help on using the changeset viewer.