Changeset 298

Timestamp:

Jan 15, 2004, 12:20:35 AM (21 years ago)

Author:

Gary Byers

Message:

Default version of STREAM-FILENAME signals an error; streams that aren't
FILE-STREAMs aren't pathname-designators.

File:

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

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

@@ -271 +271 @@
   (not (eofp stream)))
 
-(defmethod stream-filename ((stream stream)) nil)
+(defmethod stream-filename ((stream stream))
+  (report-bad-arg stream 'file-stream))