Changeset 5311

Timestamp:

Oct 7, 2006, 10:14:41 AM (18 years ago)

Author:

Gary Byers

Message:

INPUT-STREAM-P, OUTPUT-STREAM-P are true of instances if INPUT-STREAM/
OUTPUT-STREAM, respectively (not just instances of
FUNDAMENTAL-INPUT/OUTPUT-STREAM).

File:

• trunk/ccl/level-1/l1-streams.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-streams.lisp

@@ -2816 +2816 @@
   (report-bad-arg x 'stream))
                            
-(defmethod input-stream-p ((s fundamental-input-stream))
+(defmethod input-stream-p ((s input-stream))
   t)
 
@@ -2822 +2822 @@
   (report-bad-arg x 'stream))
 
-(defmethod output-stream-p ((s fundamental-input-stream))
-  (typep s 'fundamental-output-stream))
-
-(defmethod output-stream-p ((s fundamental-output-stream))
+(defmethod output-stream-p ((s input-stream))
+  (typep s 'output-stream))
+
+(defmethod output-stream-p ((s output-stream))
   t)
 
-(defmethod input-stream-p ((s fundamental-output-stream))
-  (typep s 'fundamental-input-stream))
+(defmethod input-stream-p ((s output-stream))
+  (typep s 'input-stream))
 
 (defclass binary-stream (stream)