Make CLEAR-INPUT on a STRING-INPUT-STREAM cause any further input to …

…see EOF.
Clozure · Mar 5, 2024 · c197bd0 · c197bd0
1 parent 18fe9e2
commit c197bd0
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/level-1/l1-streams.lisp b/level-1/l1-streams.lisp
@@ -4789,7 +4789,8 @@
     (< idx end)))
 
 (defmethod stream-clear-input ((s string-input-stream))
-  (basic-stream-ioblock s)
+  (let ((ioblock (basic-stream-ioblock s)))
+    (setf (string-input-stream-ioblock-index ioblock) (string-input-stream-ioblock-end ioblock)))
   nil)
 
 (defun string-input-stream-character-read-vector (ioblock vector start end)