# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1252321487 -3600
# Node ID 58a2d76bb243a52dcfcd8b8a662f21d1e42a566f
# Parent  ed3ace83c975cb47d6bd4ac46f13ce85e78a86db
Export identifier functions from geerdes and meredith.

Ignore-this: 1341ef3f4d06751aaa8d2b40738da9ea

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

diff -r ed3ace83c975 -r 58a2d76bb243 implementations/geerdes/package.lisp
--- a/implementations/geerdes/package.lisp	Sat Sep 05 21:00:27 2009 +0100
+++ b/implementations/geerdes/package.lisp	Mon Sep 07 12:04:47 2009 +0100
@@ -3,6 +3,7 @@
   #:amuse-segmentation #:amuse-database-admin)
   (:export 
    ;; classes
+   #:geerdes-identifier-file-id
    #:geerdes-composition
    #:geerdes-monody
    #:geerdes-pitched-event
diff -r ed3ace83c975 -r 58a2d76bb243 implementations/meredith/package.lisp
--- a/implementations/meredith/package.lisp	Sat Sep 05 21:00:27 2009 +0100
+++ b/implementations/meredith/package.lisp	Mon Sep 07 12:04:47 2009 +0100
@@ -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
+	   ))
 
-