return multiple values from decode-bundle

Ignore-this: 20df49a8bc026056062c4c762e4569f5

darcs-hash:20100822185009-16a00-45bf80a2cb04f64f246f49e25c2245ba8bb7b9e1
This commit is contained in:
j.forth 2010-08-22 19:50:09 +01:00 committed by Jamie Forth
parent d269de398c
commit f57144e330

View file

@ -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. .."