[net-nittin-irc-cvs] CVS update: net-nittin-irc/example/cliki.lisp

[Brian Mastenbrook]

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)