diff --git a/code/lispinit.lisp b/code/lispinit.lisp index 1746b790777598dcecf6a71de50a943bea6d3bea..fb876d696f346025e6d7c7d02359549ae2748566 100644 --- a/code/lispinit.lisp +++ b/code/lispinit.lisp @@ -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 diff --git a/code/multi-proc.lisp b/code/multi-proc.lisp index 9cd4c5d1078b3f51c3b83718af844b4a7f2de300..d5a7c8d7e885ff0c6bcd224acda328ba7d348ce6 100644 --- a/code/multi-proc.lisp +++ b/code/multi-proc.lisp @@ -1,10 +1,11 @@ +;;; -*- 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