0.9.2.40:

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

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index 2b6dcbd..7643a91 100644 (file)
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -26,9 +26,9 @@
 
 ;;; FIXME: These could be converted to DEFVARs.
 (declaim (special *gc-inhibit* *need-to-collect-garbage*
-                 *before-gc-hooks* *after-gc-hooks*
-                 #!+x86 *pseudo-atomic-atomic*
-                 #!+x86 *pseudo-atomic-interrupted*
+                 *after-gc-hooks*
+                 #!+(or x86 x86-64) *pseudo-atomic-atomic*
+                 #!+(or x86 x86-64) *pseudo-atomic-interrupted*
                  sb!unix::*interrupts-enabled*
                  sb!unix::*interrupt-pending*
                  *type-system-initialized*))
@@ -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