X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-stream.lisp;h=c18b851477f277a51e7ea51467ebed8d2da1041b;hb=23c0c48f562d7dc5d1615bf13cb831b46c91d106;hp=4da3db17dba17520472da020c8f5e9889abc886d;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/target-stream.lisp b/src/code/target-stream.lisp
index 4da3db1..c18b851 100644
--- a/src/code/target-stream.lisp
+++ b/src/code/target-stream.lisp
@@ -48,7 +48,7 @@
           ((eql ,peek-type t)
            (do ((,char-var ,char-var ,read-form))
                ((or (eql ,char-var ,read-eof)
-                    (not (whitespacep ,char-var)))
+                    (not (whitespace[2]p ,char-var)))
                 (cond ((eql ,char-var ,read-eof)
                        ,(if eof-detected-form
                             eof-detected-form