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