Skip to content
Snippets Groups Projects
Commit 7411acc8 authored by pw's avatar pw
Browse files

SLEEP was broken for real arguments greater than one, sleeping for

approximately twice as long as requested.
parent 68fa30fa
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.56 1998/04/10 11:42:42 pw Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.57 1998/09/26 18:24:42 pw Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -453,13 +453,12 @@
Must be a non-negative, non-complex number."
n))
(multiple-value-bind (sec usec)
(if (integerp n)
(values n 0)
(values (truncate n)
(truncate (* n 1000000))))
(if (integerp n)
(values n 0)
(multiple-value-bind (sec frac)(truncate n)
(values sec(truncate frac 1e-6))))
(unix:unix-select 0 0 0 0 sec usec))
nil)
;;;; SCRUB-CONTROL-STACK
......
;;; -*- Mode: Lisp; Package: Multiprocessing -*-
;;;
;;; **********************************************************************
;;; This code was written by Douglas T. Crosher and has been placed in
;;; the Public domain, and is provided 'as is'.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/multi-proc.lisp,v 1.30 1998/08/14 07:15:09 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/multi-proc.lisp,v 1.31 1998/09/26 18:24:42 pw Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -1518,8 +1519,8 @@
(multiple-value-bind (sec usec)
(if (integerp n)
(values n 0)
(values (truncate n)
(truncate (* n 1000000))))
(multiple-value-bind (sec frac)(truncate n)
(values sec (truncate frac 1e-6))))
(unix:unix-select 0 0 0 0 sec usec))
nil)
(t
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment