[cl-irc-cvs] CVS cl-irc

[ehuelsmann]

Update of /project/cl-irc/cvsroot/cl-irc
In directory common-lisp:/tmp/cvs-serv26079

Modified Files:
	event.lisp 
Log Message:
Support IRCNet irc-rpl_*list-message replies. Patch by Andreas Fuchs.

--- /project/cl-irc/cvsroot/cl-irc/event.lisp	2006/02/15 20:14:21	1.15
+++ /project/cl-irc/cvsroot/cl-irc/event.lisp	2006/02/15 20:22:50	1.16
@@ -1,4 +1,4 @@
-;;;; $Id: event.lisp,v 1.15 2006/02/15 20:14:21 ehuelsmann Exp $
+;;;; $Id: event.lisp,v 1.16 2006/02/15 20:22:50 ehuelsmann Exp $
 ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/event.lisp,v $
 
 ;;;; See LICENSE for licensing information.
@@ -26,7 +26,7 @@
   `(progn
      (defmethod default-hook ((message ,listmsg-class))
        (destructuring-bind
-           (target channel-name mask set-by time-set)
+           (target channel-name mask &optional set-by time-set)
            (arguments message)
          (declare (ignore target set-by time-set))
          ;; note: the structure currently does not allow for logging