Index: /trunk/ccl/level-1/l1-streams.lisp
===================================================================
--- /trunk/ccl/level-1/l1-streams.lisp	(revision 5310)
+++ /trunk/ccl/level-1/l1-streams.lisp	(revision 5311)
@@ -2816,5 +2816,5 @@
   (report-bad-arg x 'stream))
 			   
-(defmethod input-stream-p ((s fundamental-input-stream))
+(defmethod input-stream-p ((s input-stream))
   t)
 
@@ -2822,12 +2822,12 @@
   (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)