From a7a6d742f620d202395ce83825396caab8d2f4d2 Mon Sep 17 00:00:00 2001 From: nik gaffney Date: Sat, 11 Feb 2006 07:44:10 +0800 Subject: [PATCH] proscapula removed assumption based on value of internal-time-units-per-second darcs-hash:20060210234410-2648a-b283b634b2afc41b84a0a47fb5778e7a890a2572.gz --- osc.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/osc.lisp b/osc.lisp index cc43009..ad4b71a 100644 --- a/osc.lisp +++ b/osc.lisp @@ -238,9 +238,10 @@ ((equalp utime :time) (cat (encode-int32 (- (get-universal-time) +unix-epoch+)) (encode-int32 - (round (* 1000 (second (multiple-value-list - (floor (/ (get-internal-real-time) - internal-time-units-per-second))))))))) + (round (* internal-time-units-per-second + (second (multiple-value-list + (floor (/ (get-internal-real-time) + internal-time-units-per-second))))))))) ((integerp utime) (cat (encode-int32 (+ utime +unix-epoch+)) (encode-int32 subseconds)))