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