X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstream.lisp;h=30f0e68ac7b723cb9ebb0087fd43503a7ed0d607;hb=41cb424785ec6daf0263acb1a6a8af9d41708990;hp=71adb3a77caa960ec3c45e8eafb60224cd4f5fd3;hpb=e87b067a323c3ab15ad543115eed416b960db6ae;p=sbcl.git

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index 71adb3a..30f0e68 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -441,10 +441,8 @@
   ;; a-s-read-sequence and needs a lambda list that's congruent with
   ;; that of a-s-read-char
   (declare (ignore recursive-p))
-  (prepare-for-fast-read-byte stream
-    (prog1
-        (fast-read-byte eof-error-p eof-value t)
-      (done-with-fast-read-byte))))
+  (with-fast-read-byte (t stream eof-error-p eof-value)
+    (fast-read-byte)))
 
 (defun read-byte (stream &optional (eof-error-p t) eof-value)
   (if (ansi-stream-p stream)