Changeset 358

Timestamp:

Jan 21, 2004, 12:32:56 AM (21 years ago)

Author:

Gary Byers

Message:

Default methods (specialized on T) of OPEN-STREAM-P, INTERACTIVE-STREAM-P,
INPUT-STREAM-P, OUTPUT-STREAM-P complain that argument isn't a stream.
This is OK, as long as users only specialize these methods on subclasses
of FUNDAMENTAL-STREAM, and they shouldn't be doing otherwise anyway.

File:

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

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

@@ -252 +252 @@
     t))
 
+(defmethod open-stream-p ((x t))
+  (report-bad-arg x 'stream))
+
 (defmethod open-stream-p ((stream stream))
   (not (slot-value stream 'closed)))
@@ -263 +266 @@
    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 +955 @@
     ())
 
+(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))