0.8.21.50:

[sbcl.git] / src / code / toplevel.lisp

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index b944db4..d9348ab 100644 (file)
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -26,7 +26,7 @@
 
 ;;; FIXME: These could be converted to DEFVARs.
 (declaim (special *gc-inhibit* *need-to-collect-garbage*
-                 *before-gc-hooks* *after-gc-hooks*
+                 *after-gc-hooks*
                  #!+x86 *pseudo-atomic-atomic*
                  #!+x86 *pseudo-atomic-interrupted*
                  sb!unix::*interrupts-enabled*
@@ -147,13 +147,13 @@ steppers to maintain contextual information.")
            :format-arguments (list n)
            :datum n
            :expected-type '(real 0)))
-  (multiple-value-bind (sec usec)
+  (multiple-value-bind (sec nsec)
       (if (integerp n)
          (values n 0)
          (multiple-value-bind (sec frac)
              (truncate n)
-           (values sec (truncate frac 1e-6))))
-    (sb!unix:unix-select 0 0 0 0 sec usec))
+           (values sec (truncate frac 1e-9))))
+    (sb!unix:nanosleep sec nsec))
   nil)
 \f
 ;;;; SCRUB-CONTROL-STACK
@@ -417,13 +417,6 @@ steppers to maintain contextual information.")
                      ((string= option "--noprint")
                       (pop-option)
                       (setf noprint t))
-                     ;; FIXME: --noprogrammer was deprecated in 0.7.5, and
-                     ;; in a year or so this backwards compatibility can
-                     ;; go away.
-                     ((string= option "--noprogrammer")
-                      (warn "treating deprecated --noprogrammer as --disable-debugger")
-                      (pop-option)
-                      (push "(|DISABLE-DEBUGGER|)" reversed-evals))
                      ((string= option "--disable-debugger")
                       (pop-option)
                       (push "(|DISABLE-DEBUGGER|)" reversed-evals))