view implementations/midi-db/examples/example.lisp @ 249:bba5e8571b92

Hack in linked-events for the midi package.

Some refactoring of the constructors for this and geerdes might be helpful,
since neither lend themselves to using initialize-instance for performing
the linking.

(cl:in-package #:amuse-midi-db)

(connect-to-database :database-name "amuse")

(list-collections *package*)

(list-compositions *package*) ; FIXME: is it a good idea for this to
			      ; be general or not?

(list-collections *package* :compositions t) ; list both collections
					     ; and compositions

(defparameter *composition*
  (get-composition (make-midi-db-composition-identifier 1)))