# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1233522075 0
# Node ID e52b6eb30408977d08ca3f1bbd768da98e6253b5
# Parent  3180b03d436adc971f1a7c359c70dc49eff3445d
move-to-first-bar twiddles (still needs sorting out)

Ignore-this: 4c471ddccfb0e45addf5d632464fe31a

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

diff -r 3180b03d436a -r e52b6eb30408 base/generics.lisp
--- a/base/generics.lisp	Sat Jan 24 00:25:29 2009 +0000
+++ b/base/generics.lisp	Sun Feb 01 21:01:15 2009 +0000
@@ -459,5 +459,5 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Copying events in time
 
-(defgeneric move-to-first-bar (composition))
+(defgeneric move-to-first-bar (composition)) ;;this shouldn't be here
 
diff -r 3180b03d436a -r e52b6eb30408 base/methods.lisp
--- a/base/methods.lisp	Sat Jan 24 00:25:29 2009 +0000
+++ b/base/methods.lisp	Sun Feb 01 21:01:15 2009 +0000
@@ -570,7 +570,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))