From fc636ef0b61e6018deba9e31e2f9ab3efc381a1e Mon Sep 17 00:00:00 2001
From: Gerd Flaig <gefla@gefla-mac-zrh>
Date: Fri, 2 Jan 2009 17:37:55 +0100
Subject: [PATCH] Use new command dispatcher

---
 package.lisp | 2 +-
 web.lisp     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/package.lisp b/package.lisp
index fa5f80d..6f54805 100644
--- a/package.lisp
+++ b/package.lisp
@@ -11,7 +11,7 @@
     (:export :session
 	     :make-connection
 	     :connect
-	     :send-message))
+	     :command))
   (defpackage :locked-queue
     (:use :cl :sb-thread)
     (:export :create :enqueue :dequeue))
diff --git a/web.lisp b/web.lisp
index f97b18d..06f483b 100644
--- 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
-- 
2.43.0