annotate implementations/midi-db/examples/example.lisp @ 236:a5d065905f6d
Add midi-db.
Ignore-this: c6f4fc32efa4453ddbdc478793eedd52
A basic implementation for working with MIDI files stored in the database.
It is a test case for `versioned' data, but only partially implemented at the moment.
darcs-hash:20100223152703-16a00-4388d2720907d777a1c6c6b3a010885ce0fe06a7.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 |
|
| children |
6a3adca16910 |
| rev |
line source |
|
j@236
|
1 (cl:in-package #:amuse-midi-db)
|
|
j@236
|
2
|
|
j@236
|
3 (connect-to-database :database-name "amuse")
|
|
j@236
|
4
|
|
j@236
|
5 (list-collections *package*)
|
|
j@236
|
6
|
|
j@236
|
7 (list-compositions *package*) ; FIXME: is it a good idea for this to
|
|
j@236
|
8 ; be general or not?
|
|
j@236
|
9
|
|
j@236
|
10 (list-collections *package* :compositions t) ; list both collections
|
|
j@236
|
11 ; and compositions
|
|
j@236
|
12
|
|
j@236
|
13 (defparameter *composition*
|
|
j@236
|
14 (get-composition (make-midi-db-composition-identifier 1)))
|
|
j@236
|
15
|
