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

twiddle some comments

Browse source 
Ignore-this: 68a4da75a4298e67a0169d48e6163d7

darcs-hash:20100822182455-16a00-bf5db9f50cf1d3131862e2140d8481dcbf650679
This commit is contained in:
j.forth 2010-08-22 19:24:55 +01:00 committed by Jamie Forth
parent 9fe4513df5
commit d269de398c
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
osc.lisp
View file

@ -135,7 +135,7 @@
(defun decode-bundle (data &optional bundle-length)
"Decodes an osc bundle into a list of decoded-messages, which has an
osc-timetagas its first element. An optional buffer-length argument
osc-timetag as its first element. An optional buffer-length argument
can be supplied (i.e. the length value returned by socket-receive),
otherwise the entire buffer is decoded - in which case, if you are
reusing buffers, you are responsible for ensuring that the buffer does
@ -143,8 +143,9 @@ not contain stale data."
(unless bundle-length
(setf bundle-length (length data)))
(let ((contents '()))
(if (equalp 35 (elt data 0)) ; a bundle begins with '#'
(let ((timetag (subseq data 8 16))
(if (equalp 35 (elt data 0)) ; a bundle begins with
; '#bundle' (8 bytes)
(let ((timetag (subseq data 8 16)) ; bytes 8-15 are timestamp
(i 16))
(loop while (< i bundle-length)
do (let ((mark (+ i 4))