Changeset 12963

Timestamp:

Oct 9, 2009, 12:57:40 PM (15 years ago)

Author:

gz

Message:

More precise error in stream-clear-input

File:

• branches/working-0711/ccl/level-1/l1-streams.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-streams.lisp

@@ -347 +347 @@
 
 (defmethod stream-clear-input ((x t))
-  (report-bad-arg x 'stream))
+  (report-bad-arg x 'input-stream))
 
 (defmethod stream-clear-input ((stream input-stream)) nil)