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)