X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftoplevel.lisp;fp=src%2Fcode%2Ftoplevel.lisp;h=ca49fd284bef689196ae5bb91b54b7639c5c7285;hb=616e16f529572b23dbb4991b49bc7343cf0412bc;hp=d6c542763e8497e04f447173e5287cca2b602148;hpb=622b19d2c2e3c387ce70536678a5db17a01ab4cc;p=sbcl.git

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index d6c5427..ca49fd2 100644
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -168,7 +168,7 @@ means to wait indefinitely.")
   (flet ((split-float ()
            (let ((whole-seconds (truly-the fixnum (%unary-truncate seconds))))
              (values whole-seconds
-                     (truly-the fixnum
+                     (truly-the (integer 0 #.(expt 10 9))
                                 (%unary-truncate (* (- seconds (float whole-seconds))
                                                     (load-time-value 1s9 t))))))))
     (declare (inline split-float))