j@236: (cl:in-package #:amuse-midi-db)
j@236: 
j@236: (connect-to-database :database-name "amuse")
j@236: 
j@236: (list-collections *package*)
j@236: 
j@236: (list-compositions *package*) ; FIXME: is it a good idea for this to
j@236: 			      ; be general or not?
j@236: 
j@236: (list-collections *package* :compositions t) ; list both collections
j@236: 					     ; and compositions
j@236: 
j@236: (defparameter *composition*
j@236:   (get-composition (make-midi-db-composition-identifier 1)))
j@236: