Mercurial > hg > amuse
changeset 240:c454b4fc9aad
Add generic ID constructor to midi-db.
Ignore-this: 91554466a43d64ee99fbf840985d7c6b
darcs-hash:20100414185257-16a00-dcfa03eaa450cfdce842c64c3f49214c5c938181.gz
committer: Jamie Forth <j.forth@gold.ac.uk>
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Thu, 24 Feb 2011 11:23:18 +0000 |
| parents | 7412629f5c78 |
| children | 2138ea478adb |
| files | implementations/midi-db/methods.lisp |
| diffstat | 1 files changed, 14 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/implementations/midi-db/methods.lisp Thu Feb 24 11:23:18 2011 +0000 +++ b/implementations/midi-db/methods.lisp Thu Feb 24 11:23:18 2011 +0000 @@ -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."