[cl-irc-cvs] r207 - trunk

[ehuelsmann at common-lisp.net]

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