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

[Brian Mastenbrook]

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:
case-insensitive address

Date: Thu Aug 12 08:50:46 2004
Author: bmastenbrook

Index: cl-irc/example/cliki.lisp
diff -u cl-irc/example/cliki.lisp:1.24 cl-irc/example/cliki.lisp:1.25
--- cl-irc/example/cliki.lisp:1.24	Tue Aug 10 06:29:30 2004
+++ cl-irc/example/cliki.lisp	Thu Aug 12 08:50:46 2004
@@ -1,4 +1,4 @@
- ;;;; $Id: cliki.lisp,v 1.24 2004/08/10 13:29:30 bmastenbrook Exp $
+ ;;;; $Id: cliki.lisp,v 1.25 2004/08/12 15:50:46 bmastenbrook Exp $
 ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/cliki.lisp,v $
 
 ;;;; cliki.lisp - CLiki as an infobot; only works on SBCL.
@@ -352,7 +352,7 @@
 
 
 (defun make-cliki-attention-prefix (nick)
-  (format nil "^~A[,:]\\s+" nick))
+  (format nil "^(?i)~A[,:]\\s+" nick))
 
 (defvar *cliki-attention-prefix* "")