comparison implementations/midi/methods.lisp @ 251:6a3adca16910

Refactor dataset stuff out of amuse-database-admin, and add midifile-dataset.

   (let ((sig (call-next-method)))
     (setf (timepoint sig) (timepoint key-signature-period)
           (duration sig) (duration key-signature-period))
     sig))
 
+
+;;;=====================================================================
+;;; Specialized constructors
+;;;=====================================================================
+
+(defmethod make-composition-identifier ((package (eql *package*))
+				       pathname)
+  (make-midifile-identifier pathname))
 
 
 ;; Allow derived sequences from remove-if, etc. to preserve other slot
 ;; info (timesigs, etc)
 #+nil