Mercurial > hg > amuse

comparison implementations/midi-db/methods.lisp @ 240:c454b4fc9aad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 a5d065905f6d
children 2138ea478adb
comparison
equal deleted inserted replaced
239:7412629f5c78 240:c454b4fc9aad
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)))