0.8.13.41: Require robustness

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

diff --git a/src/code/target-extensions.lisp b/src/code/target-extensions.lisp
index 7b13df4..cbaab4d 100644 (file)
--- a/src/code/target-extensions.lisp
+++ b/src/code/target-extensions.lisp
@@ -35,19 +35,12 @@
   up. The system itself should be initialized at this point, but applications
   might not be.")
 \f
   up. The system itself should be initialized at this point, but applications
   might not be.")
 \f

-;;;; miscellaneous I/O
-
-(defun skip-whitespace (&optional (stream *standard-input*))
-  (loop (let ((char (read-char stream)))
-         (unless (sb!impl::whitespacep char)
-           (return (unread-char char stream))))))
-

 ;;; like LISTEN, but any whitespace in the input stream will be flushed
 (defun listen-skip-whitespace (&optional (stream *standard-input*))
   (do ((char (read-char-no-hang stream nil nil nil)
             (read-char-no-hang stream nil nil nil)))
       ((null char) nil)
 ;;; like LISTEN, but any whitespace in the input stream will be flushed
 (defun listen-skip-whitespace (&optional (stream *standard-input*))
   (do ((char (read-char-no-hang stream nil nil nil)
             (read-char-no-hang stream nil nil nil)))
       ((null char) nil)

-    (cond ((not (whitespace-char-p char))
+    (cond ((not (whitespacep char))

           (unread-char char stream)
           (return t)))))
 \f
           (unread-char char stream)
           (return t)))))
 \f