@@ -1,6 +1,6 @@
;;;; ahnentafel.lisp
-(in-package #:genie)
+(in-package #:cl-genealogy)
;;; "ahnentafel" goes here. Hacks and glory await!
;;;; database.lisp
;;; "database" goes here. Hacks and glory await!
(defmacro constrain-values (&rest values)
;;;; family-tree.lisp
;;; "family-tree" goes here. Hacks and glory await!
@@ -9,6 +9,13 @@
#:parse-number)
(:export open-configuration-file))
+(defpackage #:cl-genealogy
+ (:use #:lambdalite
+ #:iterate)
+ (:export generate-graph
+ print-ahnentafel
+ database))
+
(restas:define-module #:genie
(:use #:cl
#:lambdalite