Make prompt stand out some more
[eow] / package.lisp
index c06705a8c79b382790a282ef1bd37c5c33c812e7..fa5f80d1dc71a830f4143d9ca106c99682a5fd04 100644 (file)
@@ -8,13 +8,16 @@
 (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
+            :send-message))
   (defpackage :locked-queue
     (:use :cl :sb-thread)
     (:export :create :enqueue :dequeue))
   (defpackage :empire-web
     (:use :cl :hunchentoot)
   (defpackage :locked-queue
     (:use :cl :sb-thread)
     (:export :create :enqueue :dequeue))
   (defpackage :empire-web
     (:use :cl :hunchentoot)
-    (:export :start)))
-
+    (:export :start :send :prompt :data))
+  (defpackage :empire-log
+    (:use :cl)
+    (:export :info)))