Mercurial > hg > amuse
diff implementations/midi-db/methods.lisp @ 314:937334f2bcd2
Add generic ID constructor to midi-db.
Ignore-this: 91554466a43d64ee99fbf840985d7c6b
darcs-hash:20100414185257-16a00-dcfa03eaa450cfdce842c64c3f49214c5c938181.gz
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Wed, 14 Apr 2010 19:52:57 +0100 |
| parents | f99fd6a7bbfc |
| children | 2138ea478adb |
line wrap: on
line diff
--- a/implementations/midi-db/methods.lisp Wed Apr 14 19:51:35 2010 +0100 +++ b/implementations/midi-db/methods.lisp Wed Apr 14 19:52:57 2010 +0100 @@ -1,5 +1,19 @@ (cl:in-package #:amuse-midi-db) +;;;===================================================================== +;;; Specialized constructors +;;;===================================================================== + +(defmethod make-composition-identifier ((package (eql *package*)) + composition-id) + (make-midi-db-composition-identifier composition-id)) + + + +;;;===================================================================== +;;; Specialized database-admin methods +;;;===================================================================== + (defmethod list-collections ((package (eql *package*)) &key compositions (stream *standard-output*)) "FIXME: better formatting."