(:use :cl)
(:export :read-message-loop
:read-message
- :make-connection)))
+ :make-connection))
+ (defpackage :locked-queue
+ (:use :cl :sb-thread)
+ (:export :create :enqueue :dequeue))
+ (defpackage :empire-web
+ (:use :cl :hunchentoot)
+ (:export :start)))
+