(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 :dequeue-all))
+ (defpackage :empire-web
+ (: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)))