comparison base/methods.lisp @ 277:e52b6eb30408

move-to-first-bar twiddles (still needs sorting out)

Ignore-this: 4c471ddccfb0e45addf5d632464fe31a

darcs-hash:20090201210115-16a00-e33aac85b28b205292f8fff350f242bd1b9f63c2.gz

 ;; Copying events in time
 
 (defmethod move-to-first-bar ((composition composition))
   (let ((offset (floor (timepoint (car composition)))))
     (loop
-       for event in (%list-slot-sequence-data)
+       for event in (%list-slot-sequence-data composition)
        do (setf event (copy-event event))
        do (setf (timepoint event)
 		(- (timepoint event) offset))
        collect event into shifted-events
        finally (return shifted-events))))