return multiple values from decode-bundle
Ignore-this: 20df49a8bc026056062c4c762e4569f5 darcs-hash:20100822185009-16a00-45bf80a2cb04f64f246f49e25c2245ba8bb7b9e1
This commit is contained in:
parent
d269de398c
commit
f57144e330
1 changed files with 2 additions and 2 deletions
4
osc.lisp
4
osc.lisp
|
@ -157,8 +157,8 @@ not contain stale data."
|
|||
(subseq data mark (+ mark size)))
|
||||
contents))
|
||||
(incf i (+ 4 size))))
|
||||
(push timetag contents))
|
||||
(decode-message data))))
|
||||
(values (car contents) (decode-timetag timetag)))
|
||||
(values (decode-message data) nil))))
|
||||
|
||||
(defun decode-message (message)
|
||||
"reduces an osc message to an (address . data) pair. .."
|
||||
|
|
Loading…
Reference in a new issue