Index: /trunk/ccl/level-1/l1-streams.lisp
===================================================================
--- /trunk/ccl/level-1/l1-streams.lisp	(revision 5584)
+++ /trunk/ccl/level-1/l1-streams.lisp	(revision 5585)
@@ -4496,4 +4496,7 @@
     (< 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)