From ehuelsmann at common-lisp.net Thu Mar 9 21:32:21 2006 From: ehuelsmann at common-lisp.net (ehuelsmann) Date: Thu, 9 Mar 2006 16:32:21 -0500 (EST) Subject: [cl-irc-cvs] CVS cl-irc Message-ID: <20060309213221.0A60461036@common-lisp.net> Update of /project/cl-irc/cvsroot/cl-irc In directory clnet:/tmp/cvs-serv9136 Modified Files: event.lisp Log Message: The topic text is optional. --- /project/cl-irc/cvsroot/cl-irc/event.lisp 2006/02/22 18:59:13 1.24 +++ /project/cl-irc/cvsroot/cl-irc/event.lisp 2006/03/09 21:32:20 1.25 @@ -1,4 +1,4 @@ -;;;; $Id: event.lisp,v 1.24 2006/02/22 18:59:13 ehuelsmann Exp $ +;;;; $Id: event.lisp,v 1.25 2006/03/09 21:32:20 ehuelsmann Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/event.lisp,v $ ;;;; See LICENSE for licensing information. @@ -121,7 +121,7 @@ (defmethod default-hook ((message irc-rpl_topic-message)) (destructuring-bind - (target channel topic) + (target channel &optional topic) (arguments message) (declare (ignore target)) (setf (topic (find-channel (connection message) channel)) topic)))