Mercurial > hg > amuse
diff implementations/midi/methods.lisp @ 281:4a03a1478c02
add identifier and timebase slots to midifile composition class
Ignore-this: 4e72a0860344399452bea196c3739bbf
darcs-hash:20090524150506-16a00-bce845ccf20a9289a4015fb58287f25ebfa178ad.gz
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Sun, 24 May 2009 16:05:06 +0100 |
| parents | 8ec5cc5466fb |
| children | ac78ce3d0b10 |
line wrap: on
line diff
--- a/implementations/midi/methods.lisp Fri May 22 22:12:15 2009 +0100 +++ b/implementations/midi/methods.lisp Sun May 24 16:05:06 2009 +0100 @@ -55,6 +55,10 @@ (defmethod (setf key-signatures) (sequence (composition midi-composition)) (setf (%midi-key-signatures composition) sequence)) +(defgeneric midi-timebase (composition)) +(defmethod midi-timebase ((composition midi-composition)) + (%midi-timebase composition)) + ;; FIXME: This ought to call-next-method and operate on the result, ;; rather than calling internals from the other package (defmethod copy-event ((event midi-pitched-event))