comparison base/methods.lisp @ 259:c4e9a7bb9897

change move-to-first-bar to return a constituent, not a list of events

        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))))
+       finally (return
+		 (sequence:make-sequence-like
+		  composition
+		  (length composition)
+		  :initial-contents shifted-events)))))
 
 
 ;;;=====================================================================
 ;;; Searching for events
 ;;;=====================================================================