projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.21.20
[sbcl.git]
/
src
/
code
/
toplevel.lisp
diff --git
a/src/code/toplevel.lisp
b/src/code/toplevel.lisp
index
2b6dcbd
..
43a5c0b
100644
(file)
--- a/
src/code/toplevel.lisp
+++ b/
src/code/toplevel.lisp
@@
-147,13
+147,13
@@
steppers to maintain contextual information.")
:format-arguments (list n)
:datum n
:expected-type '(real 0)))
: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)
(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
nil)
\f
;;;; SCRUB-CONTROL-STACK