Changeset 12966


Ignore:
Timestamp:
Oct 9, 2009, 8:09:52 PM (10 years ago)
Author:
gz
Message:

Fixes to interactive-stream-p (r12763)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-streams.lisp

    r12963 r12966  
    39153915  (two-way-input-method stream-surrounding-characters)
    39163916  (two-way-input-method stream-input-timeout)
     3917  (two-way-input-method interactive-stream-p)
    39173918  (two-way-output-method stream-write-char c)
    39183919  (two-way-output-method stream-write-byte b)
     
    48384839(defmethod interactive-stream-p ((stream buffered-stream-mixin))
    48394840  (let* ((ioblock (stream-ioblock stream nil)))
     4841    (and ioblock (ioblock-interactive ioblock))))
     4842
     4843(defmethod interactive-stream-p ((stream basic-stream))
     4844  (let* ((ioblock (basic-stream.state stream)))
    48404845    (and ioblock (ioblock-interactive ioblock))))
    48414846
Note: See TracChangeset for help on using the changeset viewer.