Update of /project/cl-irc/cvsroot/cl-irc/example In directory common-lisp.net:/home/lisppaste/cl-irc/example

Modified Files: cliki.lisp Log Message: MORE REGEXPS

Date: Thu Oct 13 20:33:13 2005 Author: lisppaste

Index: cl-irc/example/cliki.lisp diff -u cl-irc/example/cliki.lisp:1.34 cl-irc/example/cliki.lisp:1.35 --- cl-irc/example/cliki.lisp:1.34 Thu Oct 13 20:26:21 2005 +++ cl-irc/example/cliki.lisp Thu Oct 13 20:33:13 2005 @@ -1,4 +1,4 @@ -;;;; $Id: cliki.lisp,v 1.34 2005/10/13 18:26:21 lisppaste Exp $ +;;;; $Id: cliki.lisp,v 1.35 2005/10/13 18:33:13 lisppaste Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/cliki.lisp,v $

;;;; cliki.lisp - CLiki as an infobot; only works on SBCL. @@ -678,7 +678,10 @@ (let ((str (nth-value 1 (scan-to-strings "^(?i)advice\W+(\d+)$" first-pass)))) (and str (lookup-advice (elt str 0)))) - (let ((str (nth-value 1 (scan-to-strings "^(?i)what\s+does\s+([a-zA-Z]+)\s+(mean|stand\s+for)$" first-pass)))) + (let ((str + (or + (nth-value 1 (scan-to-strings "^(?i)what\s+does\s+([a-zA-Z]+)\s+(mean|stand\s+for)$" first-pass)) + (nth-value 1 (scan-to-strings "^(?i)what\s+([a-zA-Z]+)\s+(means|stands\s+for)$" first-pass))))) (and str (let ((letters (elt str 0))) (if (and (> (length letters) 2)