From: Christophe Rhodes Date: Mon, 3 Jun 2013 08:49:49 +0000 (+0100) Subject: fix sleep on most ratios X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=eb90b28e77fe78baebf3105a600a97969acfd995;p=sbcl.git fix sleep on most ratios really really ensure that the second argument to nanosleep is an integer --- diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp index 97199db..1c00f03 100644 --- a/src/code/toplevel.lisp +++ b/src/code/toplevel.lisp @@ -181,7 +181,7 @@ means to wait indefinitely.") (multiple-value-bind (quot rem) (truncate (numerator seconds) (denominator seconds)) (values quot - (* rem (/ 1000000000 (denominator seconds)))))) + (truncate (* rem (/ 1000000000 (denominator seconds))))))) (t (multiple-value-bind (sec frac) (truncate seconds)