Fix type delimiters for CCL

CCL breaks if float type delimiters are integer literals.
This commit is contained in:
Nuno Trocado 2023-01-25 11:46:41 +00:00
parent 9528cfd83c
commit b5f45f1e9e

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)