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)