Array dump support. Create access function package xdump-data.

[eow] / package.lisp

diff --git a/package.lisp b/package.lisp
index 26d0ebb91af4e59006ee750ee24512a46ffc2777..1eafd00e322513ce45e268abeb8a00d44af08f4f 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -8,13 +8,24 @@
 (eval-when (:execute :load-toplevel :compile-toplevel)
   (defpackage :empire
       (:use :cl)
 (eval-when (:execute :load-toplevel :compile-toplevel)
   (defpackage :empire
       (:use :cl)

-    (:export :read-message-loop
-             :read-message
-            :make-connection))
+    (:export :session
+            :make-connection
+            :connect
+            :command))

   (defpackage :locked-queue
     (:use :cl :sb-thread)
   (defpackage :locked-queue
     (:use :cl :sb-thread)

-    (:export :create :enqueue :dequeue))
+    (:export :create :enqueue :dequeue :dequeue-all))

   (defpackage :empire-web
   (defpackage :empire-web

-    (:use :cl :hunchentoot)
-    (:export :start :send :prompt)))
-
+    (:use :cl)
+    (:export :start :send :prompt :data))
+  (defpackage :empire-log
+    (:use :cl)
+    (:export :info))
+  (defpackage :xdump-data
+    (:use :cl)
+    (:export :name))
+  (defpackage :xdump
+    (:use :cl)
+    (:export :make-parser :with-parser :parse-line :table :get-table-entry))
+  (defpackage :empire-tests
+    (:use :cl :lift)))