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

Fix type delimiters for CCL

Browse source 
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
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
osc-time.lisp
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)