# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1298546598 0
# Node ID bda591c61b7a6f148968e17b5eaf2c88ade4d206
# Parent  64b795c2ff182394e5c016f575f610c7a3cd712b
Export identifier functions from geerdes and meredith.

Ignore-this: 1341ef3f4d06751aaa8d2b40738da9ea

darcs-hash:20090907110447-16a00-71375d69b4929f92a56a76e078949cd4c8fd7a36.gz

committer: Jamie Forth <j.forth@gold.ac.uk>

diff -r 64b795c2ff18 -r bda591c61b7a implementations/geerdes/package.lisp
--- a/implementations/geerdes/package.lisp	Thu Feb 24 11:23:18 2011 +0000
+++ b/implementations/geerdes/package.lisp	Thu Feb 24 11:23:18 2011 +0000
@@ -3,6 +3,7 @@
   #:amuse-segmentation #:amuse-database-admin)
   (:export 
    ;; classes
+   #:geerdes-identifier-file-id
    #:geerdes-composition
    #:geerdes-monody
    #:geerdes-pitched-event
diff -r 64b795c2ff18 -r bda591c61b7a implementations/meredith/package.lisp
--- a/implementations/meredith/package.lisp	Thu Feb 24 11:23:18 2011 +0000
+++ b/implementations/meredith/package.lisp	Thu Feb 24 11:23:18 2011 +0000
@@ -1,4 +1,7 @@
 (cl:defpackage #:amuse-meredith
-  (:use #:cl #:amuse #:amuse-database-admin))
+  (:use #:cl #:amuse #:amuse-database-admin)
+  (:export #:meredith-composition-identifier
+	   #:make-meredith-composition-identifier
+	   #:composition-id
+	   ))
 
-