Commit 778d5c4d authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Give read access to the data slot of messages.

parent 0135a1eb
Pipeline #52437807 (#1) failed with stages
in 37 seconds
......@@ -888,7 +888,7 @@ May be:
(define-midi-message system-exclusive-message (system-message)
:status-min #xf0 :status-max #xf0
:slots ((data))
:slots ((data :initarg :data :reader message-data))
:filler (loop :with len := (read-variable-length-quantity)
:initially (setf data (make-octet-vector len))
:for i :from 0 :below len
......@@ -900,7 +900,7 @@ May be:
(define-midi-message authorization-system-exclusive-message (system-message)
:status-min #xf7 :status-max #xf7
:slots ((data))
:slots ((data :initarg :data :reader message-data))
:filler (loop :with len := (read-variable-length-quantity)
:initially (setf data (make-octet-vector len))
:for i :from 0 :below len
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment