[beirc-cvs] CVS update: beirc/message-display.lisp

[Andreas Fuchs]

Update of /project/beirc/cvsroot/beirc
In directory common-lisp.net:/tmp/cvs-serv3010

Modified Files:
	message-display.lisp 
Log Message:
add a missing closing paren in a string. it's late (-:

Date: Mon Oct  3 01:48:45 2005
Author: afuchs

Index: beirc/message-display.lisp
diff -u beirc/message-display.lisp:1.22 beirc/message-display.lisp:1.23
--- beirc/message-display.lisp:1.22	Mon Oct  3 01:47:51 2005
+++ beirc/message-display.lisp	Mon Oct  3 01:48:45 2005
@@ -198,7 +198,7 @@
                          (write-string " (")
                          (with-output-as-presentation (t (format nil "*!*@~A" (irc:host message)) 'hostmask)
                              (format t "~A@~A" (irc:user message) (irc:host message)))
-                         (write-string " is now known as ")
+                         (write-string ") is now known as ")
                          (present (irc:trailing-argument message) 'nickname)))))
 
 (defmethod print-message ((message irc:irc-rpl_whoisuser-message) receiver)