0.9.2.8

Make interactive-stream-p a generic function so Gray streams can
specialize on it.

diff --git a/src/pcl/gray-streams.lisp b/src/pcl/gray-streams.lisp
index 2b0cc85..a293e9d 100644 (file)
--- a/src/pcl/gray-streams.lisp
+++ b/src/pcl/gray-streams.lisp
@@ -113,6 +113,25 @@
     (error 'type-error :datum non-stream :expected-type 'stream)))
 \f
 (let ()
+  (fmakunbound 'interactive-stream-p)
+
+  (defgeneric interactive-stream-p (stream)
+    #+sb-doc
+    (:documentation "Is STREAM an interactive stream?"))
+  
+  (defmethod interactive-stream-p ((stream ansi-stream))
+    (funcall (ansi-stream-misc stream) stream :interactive-p))
+
+  (defmethod interactive-stream-p ((stream fundamental-stream))
+    nil)
+
+  (defmethod interactive-stream-p ((stream stream))
+    (bug-or-error stream 'interactive-stream-p))
+  
+  (defmethod interactive-stream-p ((non-stream t))
+    (error 'type-error :datum non-stream :expected-type 'stream)))
+\f
+(let ()
   (fmakunbound 'output-stream-p)
 
   (defgeneric output-stream-p (stream)

diff --git a/version.lisp-expr b/version.lisp-expr
index 0f1b631..c536493 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.2.7"
+"0.9.2.8"