Changeset 12763 for trunk/source/level-1


Ignore:
Timestamp:
Sep 4, 2009, 11:00:28 PM (10 years ago)
Author:
gb
Message:

INTERACTIVE-STREAM-P is true of TWO-WAY-STREAMs if it's true of
their TWO-WAY-STREAM-INPUT-STREAMS.

INTERACTIVE-STREAM-P method for (ioblock-based) BASIC-STREAMs.

File:
1 edited

Legend:

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

    r12663 r12763  
    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.