# HG changeset patch
# User Jamie Forth <j.forth@gold.ac.uk>
# Date 1300560624 0
# Node ID c4e9a7bb9897d656cae95cec1d35b2693828820f
# Parent  aac79c0ac1b9e472a685babaaa5c80fdc1ad824c
change move-to-first-bar to return a constituent, not a list of events

diff -r aac79c0ac1b9 -r c4e9a7bb9897 base/methods.lisp
--- a/base/methods.lisp	Thu Feb 24 18:50:38 2011 +0000
+++ b/base/methods.lisp	Sat Mar 19 18:50:24 2011 +0000
@@ -625,7 +625,11 @@
        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)))))
 
 
 ;;;=====================================================================