From ehuelsmann at common-lisp.net  Wed Sep  5 19:45:06 2007
From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net)
Date: Wed,  5 Sep 2007 15:45:06 -0400 (EDT)
Subject: [cl-irc-cvs] r207 - trunk
Message-ID: <20070905194506.6343DA143@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))