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