j@286: (cl:in-package #:amuse-meredith)
j@286: 
j@286: (asdf:oos 'asdf:load-op 'amuse-meredith)
j@286: 
j@303: (connect-to-database :database-name "test")
j@303: 
j@286: ;; Tell the database about the new implementation.
j@286: (amuse-database-admin:register-new-implementation *package*)
j@286: 
j@286: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
j@286: ;; Add the datasets to the database
j@286: (create-meredith-tables *amuse-database*)
j@286: 
j@303: (import-bach-inv+sin *amuse-database*) ; FIXME: return an identifier.
j@286: 
j@286: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
j@286: ;; Retrieve compositions
j@286: (defparameter *bach*
j@286:   (get-composition (make-meredith-composition-identifier 1)))
j@286: 
j@286: (defparameter *bach-dataset*
j@286:   (get-dataset (make-amuse-dataset-identifier 1)))
j@286: 
j@286: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
j@286: ;; Tidy up
j@286: ;;(drop-meredith-tables *amuse-database*)
j@286: (disconnect-from-database)