comparison base/methods.lisp @ 245:70969555ca07

Twiddle comment separators.

Ignore-this: ff8dea522834ce66c6b0aee3bc54dd27

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

committer: Jamie Forth <[e-mail]>

         ;; directly. There may be sensible defaults, but it's the job
         ;; of an implementation's author to solve that.
         (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)))))
     (loop
        for event in (%list-slot-sequence-data composition)

 		(- (timepoint event) offset))
        collect event into shifted-events
        finally (return shifted-events))))
 
 
-;;;========================================================================
+;;;=====================================================================
 ;;; Searching for events
-;;;========================================================================
+;;;=====================================================================
 
 (defmethod find-next-event ((source-event event) &key predicate test
 			    break-test search-list)
   "Ideally a sorted search list that begins with the first event after
 the source-event should be provided, otherwise, the search will begin

        (when break-test
 	 (when (funcall break-test source-event e)
 	   (return nil)))))))
 
 
-;;;========================================================================
+;;;=====================================================================
 ;;; Sorting Compositions
-;;;========================================================================
+;;;=====================================================================
 
 (defmethod event< ((event1 event) (event2 event) attribute-list)
   (dolist (attribute attribute-list nil) ;nil if equal
     (if (< (funcall attribute event1) (funcall attribute event2))
 	(return t)