X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-extensions.lisp;h=cbaab4dcebcd2fcac586e2eab4680baaee48e24d;hb=80f222325e1f677e5cf8de01c6990906fa47f65d;hp=7b13df4cc126888d0391a406512bd9aa89c95937;hpb=dec94b039e8ec90baf21463df839a6181de606f6;p=sbcl.git

diff --git a/src/code/target-extensions.lisp b/src/code/target-extensions.lisp
index 7b13df4..cbaab4d 100644
--- 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.")
 
-;;;; 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)
-    (cond ((not (whitespace-char-p char))
+    (cond ((not (whitespacep char))
 	   (unread-char char stream)
 	   (return t)))))