# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1298546598 0
# Node ID c454b4fc9aad501f1bde99e7ba20251ec9983720
# Parent  7412629f5c783db8b022a1e4de853415ce097c77
Add generic ID constructor to midi-db.

Ignore-this: 91554466a43d64ee99fbf840985d7c6b

darcs-hash:20100414185257-16a00-dcfa03eaa450cfdce842c64c3f49214c5c938181.gz

committer: Jamie Forth <j.forth@gold.ac.uk>

diff -r 7412629f5c78 -r c454b4fc9aad implementations/midi-db/methods.lisp
--- 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."