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

[Lisppaste and co.]

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