[cl-irc-cvs] CVS cl-irc

[ehuelsmann]

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