comparison implementations/geerdes/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 9ce6b954d403
children d8f650e3796e
comparison
equal deleted inserted replaced
280:9ce6b954d403 281:4a03a1478c02
60 :result-types :auto 60 :result-types :auto
61 :database *amuse-database*))) 61 :database *amuse-database*)))
62 (timebase (second file-info)) 62 (timebase (second file-info))
63 (file-id (first file-info)) 63 (file-id (first file-info))
64 (composition (make-instance 'geerdes-composition 64 (composition (make-instance 'geerdes-composition
65 :id identifier 65 :identifier identifier
66 :file-id file-id 66 :file-id file-id
67 :cat-id cat-id 67 :cat-id cat-id
68 :midi-timebase timebase))) 68 :midi-timebase timebase)))
69 (setf (%midi-events composition) (get-db-events file-id) 69 (setf (%midi-events composition) (get-db-events file-id)
70 (%midi-constituents composition) (get-db-constituents file-id)) 70 (%midi-constituents composition) (get-db-constituents file-id))
81 :result-types :auto 81 :result-types :auto
82 :database *amuse-database*))) 82 :database *amuse-database*)))
83 (timebase (second file-info)) 83 (timebase (second file-info))
84 (cat-id (first file-info)) 84 (cat-id (first file-info))
85 (composition (make-instance 'geerdes-composition 85 (composition (make-instance 'geerdes-composition
86 :id identifier 86 :identifier identifier
87 :cat-id cat-id 87 :cat-id cat-id
88 :file-id file-id 88 :file-id file-id
89 :midi-timebase timebase))) 89 :midi-timebase timebase)))
90 (setf (%midi-events composition) (get-db-events file-id) 90 (setf (%midi-events composition) (get-db-events file-id)
91 (%midi-constituents composition) (get-db-constituents file-id)) 91 (%midi-constituents composition) (get-db-constituents file-id))