Merge pull request #16 from ntrocado/endless
Fix compilation errors in CCL (and probably other implementations)
This commit is contained in:
commit
f38d3a473c
3 changed files with 3 additions and 1 deletions
|
@ -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
|
||||||
|
|
|
@ -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
1
osc.asd
|
@ -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")
|
||||||
|
|
Loading…
Reference in a new issue