Mercurial > hg > amuse

comparison base/methods.lisp @ 226:64b795c2ff18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bug in move-to-first-bar. Ignore-this: 52a48e8771d159294e9ad51cbe04034d darcs-hash:20090905200027-16a00-539b473b27ebd6b75282dac335cc8617403ed3ad.gz committer: Jamie Forth <j.forth@gold.ac.uk>
author j.forth <j.forth@gold.ac.uk>
date Thu, 24 Feb 2011 11:23:18 +0000
parents 1c58a18161b6
children 32b40c50075e
comparison
equal deleted inserted replaced
225:6f0881af3403 226:64b795c2ff18
570 570
571 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 571 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
572 ;; Copying events in time 572 ;; Copying events in time
573 573
574 (defmethod move-to-first-bar ((composition composition)) 574 (defmethod move-to-first-bar ((composition composition))
575 (let ((offset (floor (timepoint (car composition))))) 575 (let ((offset (floor (timepoint (elt composition 0)))))
576 (loop 576 (loop
577 for event in (%list-slot-sequence-data composition) 577 for event in (%list-slot-sequence-data composition)
578 do (setf event (copy-event event)) 578 do (setf event (copy-event event))
579 do (setf (timepoint event) 579 do (setf (timepoint event)
580 (- (timepoint event) offset)) 580 (- (timepoint event) offset))