Fix special-command-p for empty lines
authorGerd Flaig <gefla@truhe.meka2009.de>
Sat, 17 Jan 2009 18:26:08 +0000 (19:26 +0100)
committerGerd Flaig <gefla@truhe.meka2009.de>
Sat, 17 Jan 2009 18:26:08 +0000 (19:26 +0100)
empire.lisp

index 8ce62fb2fb88d38e21f91b1326d9d4a160ddb206..eb75bfcf77d9ee1b3838a2d08bea733ba97b2927 100644 (file)
 (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)