Use new command dispatcher
authorGerd Flaig <gefla@gefla-mac-zrh>
Fri, 2 Jan 2009 16:37:55 +0000 (17:37 +0100)
committerGerd Flaig <gefla@gefla-mac-zrh>
Fri, 2 Jan 2009 16:37:55 +0000 (17:37 +0100)
package.lisp
web.lisp

index fa5f80d1dc71a830f4143d9ca106c99682a5fd04..6f54805a59dfc516e17993400f83156e2c1965df 100644 (file)
@@ -11,7 +11,7 @@
     (:export :session
             :make-connection
             :connect
-            :send-message))
+            :command))
   (defpackage :locked-queue
     (:use :cl :sb-thread)
     (:export :create :enqueue :dequeue))
index f97b18da710f536d792f98d3ea321b59194ec59a..06f483b8a323637c385deb7e24584a3871eca4d4 100644 (file)
--- a/web.lisp
+++ b/web.lisp
@@ -90,7 +90,7 @@
 
 (defun command-action ()
   (with-session
-      (empire:send-message (connection *empire-session*) (get-parameter "q"))))
+      (empire:command (connection *empire-session*) (get-parameter "q"))))
 
 (defun root-page ()
   (with-session