Changeset 12763

Timestamp:

Sep 4, 2009, 4:00:28 PM (15 years ago)

Author:

Gary Byers

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:

• trunk/source/level-1/l1-streams.lisp (modified) (2 diffs)

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

@@ -3915 +3915 @@
   (two-way-input-method stream-surrounding-characters)
   (two-way-input-method stream-input-timeout)
+  (two-way-input-method interactive-stream-p)
   (two-way-output-method stream-write-char c)
   (two-way-output-method stream-write-byte b)
@@ -4838 +4839 @@
 (defmethod interactive-stream-p ((stream buffered-stream-mixin))
   (let* ((ioblock (stream-ioblock stream nil)))
+    (and ioblock (ioblock-interactive ioblock))))
+
+(defmethod interactive-stream-p ((stream basic-stream))
+  (let* ((ioblock (basic-stream.state stream)))
     (and ioblock (ioblock-interactive ioblock))))