From 258dcd42f864242f861ccc6bab86ad31cd1722e3 Mon Sep 17 00:00:00 2001 From: Gerd Flaig Date: Sat, 17 Jan 2009 19:26:08 +0100 Subject: [PATCH] Fix special-command-p for empty lines --- empire.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 2.43.0