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