Handle connection refused and closed

[eow] / package.lisp

diff --git a/package.lisp b/package.lisp
index 56ca854291b5dc49eec6486185a02e771dbb9a99..5cf8ad0cf40d6a31ad1cd51392dd4c5cea099e0c 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -10,11 +10,13 @@
       (:use :cl)
     (:export :read-message-loop
              :read-message
-            :make-connection))
+            :make-connection
+            :connect
+            :send-message))
   (defpackage :locked-queue
     (:use :cl :sb-thread)
     (:export :create :enqueue :dequeue))
   (defpackage :empire-web
     (:use :cl :hunchentoot)
-    (:export :start :send)))
+    (:export :start :send :prompt :data)))