Fix compilation errors in CCL (and probably other implementations) #16

Merged
ntrocado merged 2 commits from endless into endless 2023-01-25 14:00:40 +00:00
Showing only changes of commit b5f45f1e9e - Show all commits

View file

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