Fix compilation errors in CCL (and probably other implementations) #16
1 changed files with 1 additions and 1 deletions
|
@ -65,7 +65,7 @@ with microsecond precision, relative to 19700101."
|
||||||
(coerce (/ usecs +usecs+) 'double-float))
|
(coerce (/ usecs +usecs+) 'double-float))
|
||||||
|
|
||||||
(defun subsecs->microseconds (subsecs)
|
(defun subsecs->microseconds (subsecs)
|
||||||
(declare (type (float 0 1) subsecs))
|
(declare (type (float 0.0 1.0) subsecs))
|
||||||
(round (* subsecs +usecs+)))
|
(round (* subsecs +usecs+)))
|
||||||
|
|
||||||
(defun int32->subsecs (int32)
|
(defun int32->subsecs (int32)
|
||||||
|
|
Loading…
Reference in a new issue