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