introduce session objects

[eow] / package.lisp

diff --git a/package.lisp b/package.lisp
index 4b91d8171cb84228696955cad02b8674897b43e5..a8e00266d080bdcb1c3400390fd3e878182b5691 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -8,6 +8,13 @@
 (eval-when (:execute :load-toplevel :compile-toplevel)
   (defpackage :empire
       (:use :cl)
-    (:export :read-message-loop
-             :read-message
-            :make-connection)))
+    (:export :session
+            :make-connection
+            :connect
+            :send-message))
+  (defpackage :locked-queue
+    (:use :cl :sb-thread)
+    (:export :create :enqueue :dequeue))
+  (defpackage :empire-web
+    (:use :cl :hunchentoot)
+    (:export :start :send :prompt :data)))