0.8.7.8:

[sbcl.git] / src / code / stream.lisp

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index 77c29bc..f39c4f5 100644 (file)
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -332,6 +332,7 @@
                            eof-value
                            recursive-p)
   (declare (ignore recursive-p))
+  (the (or character boolean) peek-type)
   (let ((stream (in-synonym-of stream)))
     (cond ((typep stream 'echo-stream)
           (echo-misc stream