# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1298546598 0
# Node ID 64b795c2ff182394e5c016f575f610c7a3cd712b
# Parent  6f0881af34032a0d15ce030880351943bef69c6c
Fix bug in move-to-first-bar.

Ignore-this: 52a48e8771d159294e9ad51cbe04034d

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

committer: Jamie Forth <j.forth@gold.ac.uk>

diff -r 6f0881af3403 -r 64b795c2ff18 base/methods.lisp
--- a/base/methods.lisp	Thu Feb 24 11:23:18 2011 +0000
+++ b/base/methods.lisp	Thu Feb 24 11:23:18 2011 +0000
@@ -572,7 +572,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))