Mercurial > hg > amuse
diff implementations/midi/methods.lisp @ 251:6a3adca16910
Refactor dataset stuff out of amuse-database-admin, and add midifile-dataset.
| author | Jamie Forth <j.forth@gold.ac.uk> |
|---|---|
| date | Thu, 24 Feb 2011 11:23:18 +0000 |
| parents | bba5e8571b92 |
| children |
line wrap: on
line diff
--- a/implementations/midi/methods.lisp Thu Feb 24 11:23:18 2011 +0000 +++ b/implementations/midi/methods.lisp Thu Feb 24 11:23:18 2011 +0000 @@ -136,6 +136,14 @@ 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)