Ignore:
Timestamp:
Mar 27, 2004, 10:43:40 AM (16 years ago)
Author:
gb
Message:

NANOSCECONDS: always return two integers.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/linux-files.lisp

    r512 r727  
    2626  (multiple-value-bind (q r)
    2727      (floor n)
    28     (unless (zerop r)
     28    (if (zerop r)
     29      (setq r 0)
    2930      (setq r (floor (* r 1000000000))))
    3031    (values q r)))
Note: See TracChangeset for help on using the changeset viewer.