Mercurial > hg > amuse
changeset 209:1c58a18161b6
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>
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Thu, 24 Feb 2011 11:23:17 +0000 |
| parents | 41a5aca81030 |
| children | be3d63b78054 |
| files | base/generics.lisp base/methods.lisp |
| diffstat | 2 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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))