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