Changeset 12966

Timestamp:

Oct 9, 2009, 1:09:52 PM (15 years ago)

Author:

gz

Message:

Fixes to interactive-stream-p (r12763)

File:

• branches/working-0711/ccl/level-1/l1-streams.lisp (modified) (2 diffs)

branches/working-0711/ccl/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))))