# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1275665963 -3600
# Node ID 6c57b16a78292e71d818ea0659759cce7c9c5f63
# Parent  8ee20d73d90b4e6457bd134cb761de57a9355e7a
Twiddle comment separators.

Ignore-this: ff8dea522834ce66c6b0aee3bc54dd27

darcs-hash:20100604153923-16a00-029be21bba10fa97e77a694aec54086cc27003e8.gz

diff -r 8ee20d73d90b -r 6c57b16a7829 base/generics.lisp
--- 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))
 
diff -r 8ee20d73d90b -r 6c57b16a7829 base/methods.lisp
--- 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