Update of /project/net-nittin-irc/cvsroot/net-nittin-irc/example In directory common-lisp.net:/tmp/cvs-serv23336
Modified Files: cliki.lisp Log Message: Fixed a string parsing bug.
Date: Sat Dec 13 08:11:34 2003 Author: bmastenbrook
Index: net-nittin-irc/example/cliki.lisp diff -u net-nittin-irc/example/cliki.lisp:1.1 net-nittin-irc/example/cliki.lisp:1.2 --- net-nittin-irc/example/cliki.lisp:1.1 Sat Dec 13 00:38:42 2003 +++ net-nittin-irc/example/cliki.lisp Sat Dec 13 08:11:34 2003 @@ -1,4 +1,4 @@ -;;;; $Id: cliki.lisp,v 1.1 2003/12/13 05:38:42 bmastenbrook Exp $ +;;;; $Id: cliki.lisp,v 1.2 2003/12/13 13:11:34 bmastenbrook Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/example/cliki.lisp,v $
;;;; cliki.lisp - CLiki as an infobot; only works on SBCL. @@ -82,7 +82,7 @@ (setf first-line (regex-replace-all "_\(([^)]*)\)" first-line "\1")) (setf first-line (regex-replace-all "\*\(([^)]*)\)" first-line "\1")) (setf first-line (regex-replace-all "<[^>]+>" first-line "")) - (setf first-line (regex-replace-all "^([^.]+)\.\s*.*$" first-line "\1.")) + (setf first-line (regex-replace-all "^([^.]+)\..*$" first-line "\1.")) (setf first-line (regex-replace-all "(\s)\s+" first-line "\1")) (setf first-line (regex-replace-all "^\s(.+)$" first-line "\1")) (when (scan "^[^.]+\.$" first-line)