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: for bmastenbrook: quotes! Date: Thu Oct 13 20:35:08 2005 Author: lisppaste Index: cl-irc/example/cliki.lisp diff -u cl-irc/example/cliki.lisp:1.35 cl-irc/example/cliki.lisp:1.36 --- cl-irc/example/cliki.lisp:1.35 Thu Oct 13 20:33:13 2005 +++ cl-irc/example/cliki.lisp Thu Oct 13 20:35:08 2005 @@ -1,4 +1,4 @@ -;;;; $Id: cliki.lisp,v 1.35 2005/10/13 18:33:13 lisppaste Exp $ +;;;; $Id: cliki.lisp,v 1.36 2005/10/13 18:35:08 lisppaste Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/cliki.lisp,v $ ;;;; cliki.lisp - CLiki as an infobot; only works on SBCL. @@ -680,10 +680,10 @@ (lookup-advice (elt str 0)))) (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))))) + (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))) + (let ((letters (remove #\" (elt str 0)))) (if (and (> (length letters) 2) (string-equal (subseq letters (- (length letters) 2)) "cl")) (steel-bazooka:steel-whatever :letters (string-downcase (subseq letters 0 (- (length letters) 2))))