Index: /trunk/ccl/level-1/l1-streams.lisp
===================================================================
--- /trunk/ccl/level-1/l1-streams.lisp	(revision 357)
+++ /trunk/ccl/level-1/l1-streams.lisp	(revision 358)
@@ -252,4 +252,7 @@
     t))
 
+(defmethod open-stream-p ((x t))
+  (report-bad-arg x 'stream))
+
 (defmethod open-stream-p ((stream stream))
   (not (slot-value stream 'closed)))
@@ -263,4 +266,7 @@
    esp those associated with windows."
   80)
+
+(defmethod interactive-stream-p ((x t))
+  (report-bad-arg x 'stream))
 
 (defmethod interactive-stream-p ((stream stream)) nil)
@@ -949,6 +955,12 @@
     ())
 
+(defmethod input-stream-p ((x t))
+  (report-bad-arg x 'stream))
+			   
 (defmethod input-stream-p ((s fundamental-input-stream))
   t)
+
+(defmethod output-stream-p ((x t))
+  (report-bad-arg x 'stream))
 
 (defmethod output-stream-p ((s fundamental-input-stream))