Mercurial > hg > amuse

changeset 259:c4e9a7bb9897

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
change move-to-first-bar to return a constituent, not a list of events
author Jamie Forth <j.forth@gold.ac.uk>
date Sat, 19 Mar 2011 18:50:24 +0000
parents aac79c0ac1b9
children f5836b2bf334
files base/methods.lisp
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)))))
 
 
 ;;;=====================================================================