From eb90b28e77fe78baebf3105a600a97969acfd995 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Mon, 3 Jun 2013 09:49:49 +0100 Subject: [PATCH] fix sleep on most ratios really really ensure that the second argument to nanosleep is an integer --- src/code/toplevel.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 1.7.10.4