diff base/generics.lisp @ 230:32b40c50075e

Add some base methods for searching and sorting events.

Ignore-this: 4906722dfd6d1cfb91df8b85591f8b46

darcs-hash:20091020091537-16a00-1efcd0569b9a242be75bf99908b9117dc5946762.gz

committer: Jamie Forth <[e-mail]>

--- a/base/generics.lisp	Thu Feb 24 11:23:18 2011 +0000
+++ b/base/generics.lisp	Thu Feb 24 11:23:18 2011 +0000
@@ -463,11 +463,28 @@
 
 (defgeneric get-applicable-clefs (anchored-period constituent))
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Copying events in time
+;;;========================================================================
+;;; Copying events in time
+;;;========================================================================
 
-(defgeneric move-to-first-bar (composition)) ;;this shouldn't be here
+(defgeneric move-to-first-bar (composition))
 
 (defgeneric copy-event (event))
 
 (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))
+
+(defgeneric sort-composition (composition attribute-list))