Changeset 727

Timestamp:

Mar 27, 2004, 2:43:40 AM (21 years ago)

Author:

Gary Byers

Message:

NANOSCECONDS: always return two integers.

File:

• trunk/ccl/level-1/linux-files.lisp (modified) (1 diff)

trunk/ccl/level-1/linux-files.lisp

@@ -26 +26 @@
   (multiple-value-bind (q r)
       (floor n)
-    (unless (zerop r)
+    (if (zerop r)
+      (setq r 0)
       (setq r (floor (* r 1000000000))))
     (values q r)))