Mercurial > hg > amuse

diff base/methods.lisp @ 245:70969555ca07

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Twiddle comment separators. Ignore-this: ff8dea522834ce66c6b0aee3bc54dd27 darcs-hash:20100604153923-16a00-029be21bba10fa97e77a694aec54086cc27003e8.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 eb4d239f5437
children b3260d1d2419
line wrap: on
line diff
--- a/base/methods.lisp	Thu Feb 24 11:23:18 2011 +0000
+++ b/base/methods.lisp	Thu Feb 24 11:23:18 2011 +0000
@@ -579,9 +579,9 @@
         (error 'insufficient-information :operation 'beat-period :datatype (class-of composition)))))
 
 
-;;;========================================================================
+;;;=====================================================================
 ;;; Copying events in time
-;;;========================================================================
+;;;=====================================================================
 
 (defmethod move-to-first-bar ((composition composition))
   (let ((offset (floor (timepoint (elt composition 0)))))
@@ -594,9 +594,9 @@
        finally (return shifted-events))))
 
 
-;;;========================================================================
+;;;=====================================================================
 ;;; Searching for events
-;;;========================================================================
+;;;=====================================================================
 
 (defmethod find-next-event ((source-event event) &key predicate test
 			    break-test search-list)
@@ -625,9 +625,9 @@
 	   (return nil)))))))
 
 
-;;;========================================================================
+;;;=====================================================================
 ;;; Sorting Compositions
-;;;========================================================================
+;;;=====================================================================
 
 (defmethod event< ((event1 event) (event2 event) attribute-list)
   (dolist (attribute attribute-list nil) ;nil if equal