X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-extensions.lisp;h=62f062ac357074095e465284a3b4537c944a60bb;hb=c364434c07423e4b033f286397667b3fe0310e97;hp=87d44460260a5bea56c21c3b193967d55f0466a4;hpb=a3c94d7bfa65c1bed8ce77a65f25c2408c1c2802;p=sbcl.git

diff --git a/src/code/target-extensions.lisp b/src/code/target-extensions.lisp
index 87d4446..62f062a 100644
--- a/src/code/target-extensions.lisp
+++ b/src/code/target-extensions.lisp
@@ -40,7 +40,7 @@ applications.")
   (do ((char (read-char-no-hang stream nil nil nil)
              (read-char-no-hang stream nil nil nil)))
       ((null char) nil)
-    (cond ((not (whitespacep char))
+    (cond ((not (whitespace[1]p char))
            (unread-char char stream)
            (return t)))))