comparison base/generics.lisp @ 169:4a0e15e2829a

identifier becomes composition-identifier. Add constituent-identifier and get-constituents

darcs-hash:20080103154317-40ec0-8398433cd150794de77cc9206296c82902df930b.gz

 ;;; Pulling compositions from the database 
 
 (defgeneric get-composition (identifier)
   (:documentation "Returns a composition of type dependant on
   identifier"))
+
+(defgeneric get-constituents (constituent-identifier)
+  (:method ((id composition-identifier)) (list (get-composition id)))
+  (:documentation "Returns a list of constituents matching the
+  criteria in identifier"))
 
 (defgeneric monody (object)
   (:documentation "Returns a monody."))
 (defgeneric ensure-monody (object)
   (:documentation "Returns a generalised boolean."))