[Cl-irc-cvs] CVS update: cl-irc/example/cliki.lisp

Lisppaste and co. lisppaste at common-lisp.net
Thu Oct 13 18:33:14 UTC 2005


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)




More information about the cl-irc-cvs mailing list