Changeset 5585

Timestamp:

Dec 4, 2006, 8:26:02 AM (18 years ago)

Author:

Gary Byers

Message:

STREAM-CLEAR-INPUT: don't inherit method for STRING-INPUT-STREAMs.

File:

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

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

@@ -4496 +4496 @@
     (< idx end)))
 
+(defmethod stream-clear-input ((s string-input-stream))
+  (basic-stream-ioblock s)
+  nil)
 
 (defun string-input-stream-character-read-vector (ioblock vector start end)