0.9.3.36:

[sbcl.git] / src / code / target-extensions.lisp

diff --git a/src/code/target-extensions.lisp b/src/code/target-extensions.lisp
index 87d4446..62f062a 100644 (file)
--- 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)))))
 \f