Mercurial > hg > amuse
changeset 320:6c57b16a7829
Twiddle comment separators.
Ignore-this: ff8dea522834ce66c6b0aee3bc54dd27
darcs-hash:20100604153923-16a00-029be21bba10fa97e77a694aec54086cc27003e8.gz
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Fri, 04 Jun 2010 16:39:23 +0100 |
| parents | 8ee20d73d90b |
| children | 376357c84189 |
| files | base/generics.lisp base/methods.lisp |
| diffstat | 2 files changed, 12 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/base/generics.lisp Fri Jun 04 16:37:09 2010 +0100 +++ b/base/generics.lisp Fri Jun 04 16:39:23 2010 +0100 @@ -474,9 +474,9 @@ (defgeneric get-applicable-clefs (anchored-period constituent)) -;;;======================================================================== +;;;===================================================================== ;;; Copying events in time -;;;======================================================================== +;;;===================================================================== (defgeneric move-to-first-bar (composition)) @@ -485,16 +485,16 @@ (defgeneric voice (event)) -;;;======================================================================== +;;;===================================================================== ;;; Searching for events -;;;======================================================================== +;;;===================================================================== (defgeneric find-next-event (source-event &key predicate test break-test search-list)) -;;;======================================================================== +;;;===================================================================== ;;; Sorting Compositions -;;;======================================================================== +;;;===================================================================== (defgeneric event< (event1 event2 attribute-list))
--- a/base/methods.lisp Fri Jun 04 16:37:09 2010 +0100 +++ b/base/methods.lisp Fri Jun 04 16:39:23 2010 +0100 @@ -577,9 +577,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))))) @@ -592,9 +592,9 @@ finally (return shifted-events)))) -;;;======================================================================== +;;;===================================================================== ;;; Searching for events -;;;======================================================================== +;;;===================================================================== (defmethod find-next-event ((source-event event) &key predicate test break-test search-list) @@ -623,9 +623,9 @@ (return nil))))))) -;;;======================================================================== +;;;===================================================================== ;;; Sorting Compositions -;;;======================================================================== +;;;===================================================================== (defmethod event< ((event1 event) (event2 event) attribute-list) (dolist (attribute attribute-list nil) ;nil if equal