From: Gerd Flaig <gefla@truhe.meka2009.de>
Date: Sat, 17 Jan 2009 18:26:08 +0000 (+0100)
Subject: Fix special-command-p for empty lines
X-Git-Url: http://git.pond.sub.org/?p=eow;a=commitdiff_plain;h=258dcd42f864242f861ccc6bab86ad31cd1722e3

Fix special-command-p for empty lines
---

diff --git a/empire.lisp b/empire.lisp
index 8ce62fb..eb75bfc 100644
--- a/empire.lisp
+++ b/empire.lisp
@@ -263,7 +263,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)