(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)
- (:export :create :enqueue :dequeue))
+ (:export :create :enqueue :dequeue :dequeue-all))
(defpackage :empire-web
- (:use :cl :hunchentoot)
- (:export :start)))
-
+ (:use :cl)
+ (:export :start :send :prompt :data))
+ (defpackage :empire-log
+ (:use :cl)
+ (:export :info))
+ (defpackage :xdump
+ (:use :cl)))