Fix DEFINT-DECODER #6
1 changed files with 1 additions and 1 deletions
2
osc.lisp
2
osc.lisp
|
@ -303,7 +303,7 @@
|
||||||
for n below num-of-octets
|
for n below num-of-octets
|
||||||
collect `(,int (dpb (aref ,seq ,n) (byte 8 (* 8 (- (1- ,num-of-octets) ,n)))
|
collect `(,int (dpb (aref ,seq ,n) (byte 8 (* 8 (- (1- ,num-of-octets) ,n)))
|
||||||
,int))))
|
,int))))
|
||||||
int))))
|
,int))))
|
||||||
|
|
||||||
(defint-decoder 4 "4 byte -> 32 bit unsigned int")
|
(defint-decoder 4 "4 byte -> 32 bit unsigned int")
|
||||||
(defint-decoder 8 "8 byte -> 64 bit unsigned int")
|
(defint-decoder 8 "8 byte -> 64 bit unsigned int")
|
||||||
|
|
Loading…
Reference in a new issue