Add thread safe queue. Use to push updates to client.

[eow] / package.lisp

diff --git a/package.lisp b/package.lisp
index f801b626b52976d10f80a1c8ed7ab847037dacfb..c06705a8c79b382790a282ef1bd37c5c33c812e7 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -11,6 +11,9 @@
     (:export :read-message-loop
              :read-message
             :make-connection))
+  (defpackage :locked-queue
+    (:use :cl :sb-thread)
+    (:export :create :enqueue :dequeue))
   (defpackage :empire-web
     (:use :cl :hunchentoot)
     (:export :start)))