|
|
@@ -91,7 +91,8 @@ is replaced with replacement."
|
|
|
|
|
|
(defun preprocess-input (text)
|
|
|
(when text
|
|
|
- (let* ((first-space (position #\Space text))
|
|
|
+ (let* ((text (subseq text (if (equal (char text 0) #\/) 1 0)))
|
|
|
+ (first-space (position #\Space text))
|
|
|
(first-word (subseq text 0 first-space)))
|
|
|
(if (equal first-word *bot-name*)
|
|
|
(preprocess-input (subseq text (1+ first-space)))
|
