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

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
Conversation 0 Commits 2 Files changed 3 +3 -1
3 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
README.md
View file

@ -20,6 +20,7 @@ There are some basic examples in `osc-examples.lisp` and the `devices/examples/o
- will raise an exception if input is malformed - will raise an exception if input is malformed
- no pattern matching on addresses - no pattern matching on addresses
- float en/decoding only tested on sbcl, cmucl, openmcl and allegro - float en/decoding only tested on sbcl, cmucl, openmcl and allegro
- the `devices` module only works on sbcl
- only supports the type(tag)s specified in the OSC spec - only supports the type(tag)s specified in the OSC spec
## things to do in :osc ## things to do in :osc

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)

1
osc.asd
View file

@ -17,6 +17,7 @@
(:file "osc-tests" :depends-on ("osc")) (:file "osc-tests" :depends-on ("osc"))
(:file "package") (:file "package")
(:module "devices" (:module "devices"
:if-feature :sbcl
:depends-on ("package" "osc-data") :depends-on ("package" "osc-data")
:components :components
((:file "socket-functions") ((:file "socket-functions")