# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1252180827 -3600
# Node ID ed3ace83c975cb47d6bd4ac46f13ce85e78a86db
# Parent  f5734df598f48f61664ea8ef16dd25e3108e23c4
Fix bug in move-to-first-bar.

Ignore-this: 52a48e8771d159294e9ad51cbe04034d

darcs-hash:20090905200027-16a00-539b473b27ebd6b75282dac335cc8617403ed3ad.gz

diff -r f5734df598f4 -r ed3ace83c975 base/methods.lisp
--- a/base/methods.lisp	Fri Aug 28 17:46:31 2009 +0100
+++ b/base/methods.lisp	Sat Sep 05 21:00:27 2009 +0100
@@ -570,7 +570,7 @@
 ;; Copying events in time
 
 (defmethod move-to-first-bar ((composition composition))
-  (let ((offset (floor (timepoint (car composition)))))
+  (let ((offset (floor (timepoint (elt composition 0)))))
     (loop
        for event in (%list-slot-sequence-data composition)
        do (setf event (copy-event event))