d@33: (in-package #:amuse-harmony)
d@33: 
d@33: (defgeneric get-ground-truth-periods (anchored-period composition)
d@33:   (:method (ap c) (declare (ignore ap c)) nil))
d@33: 
d@33: (defgeneric get-ground-truth-chord (ground-truth-period composition)
d@33:   (:method (gtp c) (declare (ignore gtp c)) nil))
d@33: