Mercurial > hg > amuse
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 313:aa2545163331 | 314:937334f2bcd2 |
|---|---|
| 1 (cl:in-package #:amuse-midi-db) | 1 (cl:in-package #:amuse-midi-db) |
| 2 | |
| 3 ;;;===================================================================== | |
| 4 ;;; Specialized constructors | |
| 5 ;;;===================================================================== | |
| 6 | |
| 7 (defmethod make-composition-identifier ((package (eql *package*)) | |
| 8 composition-id) | |
| 9 (make-midi-db-composition-identifier composition-id)) | |
| 10 | |
| 11 | |
| 12 | |
| 13 ;;;===================================================================== | |
| 14 ;;; Specialized database-admin methods | |
| 15 ;;;===================================================================== | |
| 2 | 16 |
| 3 (defmethod list-collections ((package (eql *package*)) &key | 17 (defmethod list-collections ((package (eql *package*)) &key |
| 4 compositions (stream *standard-output*)) | 18 compositions (stream *standard-output*)) |
| 5 "FIXME: better formatting." | 19 "FIXME: better formatting." |
| 6 (let ((collection-rows (%get-all-collection-headers))) | 20 (let ((collection-rows (%get-all-collection-headers))) |