comparison base/generics.lisp @ 67:8b31d54c95be

base/: {TIME-SIGNATURE,KEY-SIGNATURE,TEMPO}-EQUAL moved here from implementations/mtp/

darcs-hash:20070706093228-c0ce4-9ca0951f98303474fb5da95fc20ebdb2c3fa4db0.gz

 ;;; Time Signature 
 
 (defgeneric get-applicable-time-signatures (anchored-period composition)
   (:method (ap c) (find-overlapping ap (time-signatures c))))
 
+(defgeneric time-signature-equal (ts1 ts2))
+
 ;;; Tempo 
 
 (defgeneric get-applicable-tempi  (anchored-period composition)
   (:method (ap c) (find-overlapping ap (tempi c))))
 
+(defgeneric tempo-equal (t1 t2))
+
 ;;; Tonality (Key Signature / Mode) 
 
 (defgeneric get-applicable-key-signatures (object1 object2))
+
+(defgeneric key-signature-equal (ks1 ks2))
 
 ;;; Dynamics 
 ;;; Voice 
 ;;; Boundary Strength (phrasing)