From: Rudi Schlatte <rudi@constantly.at>
Date: Fri, 1 Jul 2005 05:59:39 +0000 (+0000)
Subject: 0.9.2.8
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a6831e56ae6c27cab9b5efe157d087e261447d72;p=sbcl.git

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
--- 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)))
 
 (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)))
+
+(let ()
   (fmakunbound 'output-stream-p)
 
   (defgeneric output-stream-p (stream)
diff --git a/version.lisp-expr b/version.lisp-expr
index 0f1b631..c536493 100644
--- 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"