# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1298546597 0
# Node ID 1c58a18161b685f26de50f4ed01d295bb8ee93d3
# Parent  41a5aca810300c9f21ca5218675b23104b7bd390
move-to-first-bar twiddles (still needs sorting out)

Ignore-this: 4c471ddccfb0e45addf5d632464fe31a

darcs-hash:20090201210115-16a00-e33aac85b28b205292f8fff350f242bd1b9f63c2.gz

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

diff -r 41a5aca81030 -r 1c58a18161b6 base/generics.lisp
--- a/base/generics.lisp	Thu Feb 24 11:23:17 2011 +0000
+++ b/base/generics.lisp	Thu Feb 24 11:23:17 2011 +0000
@@ -458,5 +458,5 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Copying events in time
 
-(defgeneric move-to-first-bar (composition))
+(defgeneric move-to-first-bar (composition)) ;;this shouldn't be here
 
diff -r 41a5aca81030 -r 1c58a18161b6 base/methods.lisp
--- a/base/methods.lisp	Thu Feb 24 11:23:17 2011 +0000
+++ b/base/methods.lisp	Thu Feb 24 11:23:17 2011 +0000
@@ -574,7 +574,7 @@
 (defmethod move-to-first-bar ((composition composition))
   (let ((offset (floor (timepoint (car composition)))))
     (loop
-       for event in (%list-slot-sequence-data)
+       for event in (%list-slot-sequence-data composition)
        do (setf event (copy-event event))
        do (setf (timepoint event)
 		(- (timepoint event) offset))