m@25: (cl:in-package #:amuse-midi) 
m@25: 
m@25: (defclass midi-message () ;?
m@25:   ((channel :accessor %midi-message-channel :initarg :channel)
m@25:    (track :accessor %midi-message-track :initarg :track)))
m@25: 
m@25: (defclass midi-pitched-event (chromatic-pitched-event midi-message)
d@32:   ((velocity :initarg :velocity
d@32: 	     :accessor %midi-pitched-event-velocity)
d@32:    (patch :initarg :patch
d@32: 	  :accessor %midi-pitched-event-patch)))
m@25: 
m@25: (defclass midi-percussive-event (percussive-event midi-message)
d@32:   ((velocity :initarg :velocity
d@32: 	     :accessor %midi-percussive-event-velocity)
m@25:    (patch :initarg :patch)
m@25:    (sound :initarg :sound)))
m@25: 
m@25: (defclass midi-key-signature (basic-key-signature)
m@25:   ;; Is mode ever used in real life? Is it ever accurately used in
m@25:   ;; real life?
m@25:   ((mode :accessor %midi-key-signature-mode
m@25: 	 :initarg mode)))