0.8.9.17:

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

diff --git a/src/code/target-extensions.lisp b/src/code/target-extensions.lisp
index adf1f84..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

@@ -69,29 +62,3 @@
         :format-control "~@<~A: ~2I~_~A~:>"
         :format-arguments (list prefix-string (strerror errno))
         other-condition-args))
         :format-control "~@<~A: ~2I~_~A~:>"
         :format-arguments (list prefix-string (strerror errno))
         other-condition-args))

-\f
-;;;; optimization idioms
-
-(eval-when (:compile-toplevel :load-toplevel :execute)
-
-  ;; Byte compile this thing if possible.
-  (defvar *optimize-byte-compilation*
-    '(optimize (speed 0) (safety 1)))
-
-  ;; This thing is externally visible, so compiling meta-information
-  ;; is more important than byte-compiling it; but it's otherwise
-  ;; suitable for byte-compilation.
-  ;;
-  ;; (As long as the byte compiler isn't capable of compiling
-  ;; meta-information such as the argument list required by functions
-  ;; (as in sbcl-0.6.12, anyway), it's not suitable for compiling
-  ;; externally visible things like CL:INSPECT even if their speed
-  ;; requirements are small enough that it'd otherwise be OK. If some
-  ;; later version of the byte compiler learns to compile such
-  ;; meta-information, we'll probably change the implementation of
-  ;; this idiom so that it causes byte compilation of the thing after
-  ;; all.)
-  (defvar *optimize-external-despite-byte-compilation*
-    '(optimize (speed 1)
-              ;; still might as well be as small as possible..
-              (space 3))))