[Cl-irc-cvs] CVS update: cl-irc/event.lisp

Brian Mastenbrook bmastenbrook at common-lisp.net
Fri May 21 19:12:07 UTC 2004


Update of /project/cl-irc/cvsroot/cl-irc
In directory common-lisp.net:/tmp/cvs-serv30690

Modified Files:
	event.lisp 
Log Message:
Bug fix

Date: Fri May 21 15:12:06 2004
Author: bmastenbrook

Index: cl-irc/event.lisp
diff -u cl-irc/event.lisp:1.3 cl-irc/event.lisp:1.4
--- cl-irc/event.lisp:1.3	Thu Mar 18 16:57:25 2004
+++ cl-irc/event.lisp	Fri May 21 15:12:06 2004
@@ -1,4 +1,4 @@
-;;;; $Id: event.lisp,v 1.3 2004/03/18 21:57:25 ehuelsmann Exp $
+;;;; $Id: event.lisp,v 1.4 2004/05/21 19:12:06 bmastenbrook Exp $
 ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/event.lisp,v $
 
 ;;;; See LICENSE for licensing information.
@@ -26,9 +26,10 @@
         (realname (trailing-argument message))
         (username (third (arguments message)))
         (hostname (fourth (arguments message))))
-    (setf (realname user) realname)
-    (setf (username user) username)
-    (setf (hostname user) hostname)))
+    (when user
+      (setf (realname user) realname)
+      (setf (username user) username)
+      (setf (hostname user) hostname))))
 
 (defmethod default-hook ((message irc-rpl_list-message))
   (let ((connection (connection message))





More information about the cl-irc-cvs mailing list