From 61dc1d5c0b4988f7e957be876a9abf9f31d51e0a Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Wed, 4 Aug 2004 10:45:31 +0000 Subject: [PATCH] 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. --- src/pcl/gray-streams.lisp | 8 +++++++- version.lisp-expr | 2 +- 2 files changed, 8 insertions(+), 2 deletions(-) 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" -- 1.7.10.4