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* "")