zzkt/osc
1
0
Fork 0
Code Issues 7 Pull requests Projects Releases Activity Actions

proscapula

Browse source 
removed assumption based on value of internal-time-units-per-second

darcs-hash:20060210234410-2648a-b283b634b2afc41b84a0a47fb5778e7a890a2572.gz
This commit is contained in:
nik gaffney 2006-02-11 07:44:10 +08:00
parent 5b98b79ee7
commit a7a6d742f6
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
osc.lisp
View file

@ -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)))