[Cl-irc-cvs] CVS update: cl-irc/example/cliki.lisp - cl-irc-cvs@common-lisp.net - mailman3.common-lisp.net

27 Jul 2004

Update of /project/cl-irc/cvsroot/cl-irc/example
In directory common-lisp.net:/home/bmastenbrook/cl-irc/example
Modified Files:
    cliki.lisp 
Log Message:
Dunno. Some changes.
Date: Tue Jul 27 13:51:25 2004
Author: bmastenbrook
Index: cl-irc/example/cliki.lisp
diff -u cl-irc/example/cliki.lisp:1.15 cl-irc/example/cliki.lisp:1.16

--- cl-irc/example/cliki.lisp:1.15	Tue Jul 27 13:39:42 2004
+++ cl-irc/example/cliki.lisp	Tue Jul 27 13:51:24 2004
@@ -1,4 +1,4 @@
-;;;; $Id: cliki.lisp,v 1.15 2004/07/27 20:39:42 bmastenbrook Exp $
+;;;; $Id: cliki.lisp,v 1.16 2004/07/27 20:51:24 bmastenbrook Exp $
 ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/cliki.lisp,v $
;;;; cliki.lisp - CLiki as an infobot; only works on SBCL.
@@ -594,7 +594,7 @@
                      (and str
                           (format nil "~A: ~A" (elt str 0)
                                   (random-advice))))
-                   (let ((str (nth-value 1 (scan-to-strings "^(?i)advice\s+(on|about)\s+(.+)$" first-pass))))
+                   (let ((str (nth-value 1 (scan-to-strings "^(?i)advi[cs]e\s+(on|about)\s+(.+)$" first-pass))))
                      (and str
                           (search-advice (elt str 1))))
                    (let ((str (nth-value 1 (scan-to-strings "^(?i)advice\W+(\d+)$" first-pass))))

    