Author: ehuelsmann
Date: Wed Sep 5 15:45:05 2007
New Revision: 207
Modified:
trunk/command.lisp
Log:
Fix incorrect type assumption (reported by antifuchs).
Modified: trunk/command.lisp
==============================================================================
--- trunk/command.lisp (original)
+++ trunk/command.lisp Wed Sep 5 15:45:05 2007
@@ -184,8 +184,10 @@
;; utility function not part of the RFC
(defmethod part-all ((connection connection) &optional reason)
- (dolist (channel (channels connection))
- (part connection (name channel) reason)))
+ (maphash #'(lambda (chan obj)
+ (declare (ignore obj))
+ (part connection chan reason))
+ (channels connection)))
(defmethod topic- ((connection connection) (channel string) (topic string))
(send-irc-message connection :topic channel topic))
