[Cl-irc-cvs] CVS update: cl-irc/event.lisp - cl-irc-cvs@common-lisp.net - mailman3.common-lisp.net

21 May 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))

    