X-Git-Url: http://git.pond.sub.org/?p=eow;a=blobdiff_plain;f=empire.lisp;h=7f6eb3156cd3ed22861101dcdbeddaff292ddfb0;hp=8ce62fb2fb88d38e21f91b1326d9d4a160ddb206;hb=deccccc050b0bcebedb60558ca3cc7427a20d33e;hpb=d2364e7ad37280f19660e41235dd8f2a53767d6c

diff --git a/empire.lisp b/empire.lisp
index 8ce62fb..7f6eb31 100644
--- a/empire.lisp
+++ b/empire.lisp
@@ -176,7 +176,8 @@
 
 (defmethod handle-flush ((m play-mode) message)
   (let* ((c (connection m)))
-    (empire-web:prompt (session c) message)))
+    (empire-web:prompt (session c) message)
+    (send-next-line c)))
 
 (defmethod send-next-line ((c connection))
   (send-message-one c (locked-queue:dequeue (send-queue c))))
@@ -263,7 +264,8 @@
 (defparameter +special-command-char+ #\;)
 
 (defun special-command-p (line)
-  (char= +special-command-char+ (aref line 0)))
+  (and (> (length line) 0)
+       (char= +special-command-char+ (aref line 0))))
 
 (defmethod special-xup ((c connection))
   t)