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