diff base/generics.lisp @ 304:fbeaedd242c6

Add some base methods for searching and sorting events.

Ignore-this: 4906722dfd6d1cfb91df8b85591f8b46

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

--- a/base/generics.lisp	Fri Sep 18 13:45:12 2009 +0100
+++ b/base/generics.lisp	Tue Oct 20 10:15:37 2009 +0100
@@ -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))