projects
/
eow
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
d2364e7
)
Fix special-command-p for empty lines
author
Gerd Flaig
<gefla@truhe.meka2009.de>
Sat, 17 Jan 2009 18:26:08 +0000
(19:26 +0100)
committer
Gerd Flaig
<gefla@truhe.meka2009.de>
Sat, 17 Jan 2009 18:26:08 +0000
(19:26 +0100)
empire.lisp
patch
|
blob
|
history
diff --git
a/empire.lisp
b/empire.lisp
index 8ce62fb2fb88d38e21f91b1326d9d4a160ddb206..eb75bfcf77d9ee1b3838a2d08bea733ba97b2927 100644
(file)
--- 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)