From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Wed, 4 Aug 2004 10:45:31 +0000 (+0000)
Subject: 0.8.13.21:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=61dc1d5c0b4988f7e957be876a9abf9f31d51e0a;p=sbcl.git

0.8.13.21:
	Implement INPUT-STREAM-P and OUTPUT-STREAM-P methods on
	FUNDAMENTAL-STREAM
	... should do the right thing, even in the presence of multiple
		inheritance.
---

diff --git a/src/pcl/gray-streams.lisp b/src/pcl/gray-streams.lisp
index a99099f..2b0cc85 100644
--- a/src/pcl/gray-streams.lisp
+++ b/src/pcl/gray-streams.lisp
@@ -99,7 +99,10 @@
   
   (defmethod input-stream-p ((stream ansi-stream))
     (ansi-stream-input-stream-p stream))
-  
+
+  (defmethod input-stream-p ((stream fundamental-stream))
+    nil)
+
   (defmethod input-stream-p ((stream fundamental-input-stream))
     t)
 
@@ -119,6 +122,9 @@
   (defmethod output-stream-p ((stream ansi-stream))
     (ansi-stream-output-stream-p stream))
 
+  (defmethod output-stream-p ((stream fundamental-stream))
+    nil)
+  
   (defmethod output-stream-p ((stream fundamental-output-stream))
     t)
 
diff --git a/version.lisp-expr b/version.lisp-expr
index 39daff2..ffba028 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.8.13.20"
+"0.8.13.21"