[cl-irc-cvs] r178 - trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Thu Mar 15 15:42:16 2007
New Revision: 178

Modified:
   trunk/event.lisp
Log:
Fix thinko reported by Lars Rune Nostdal (larsnostdal at gmail dot com).

Modified: trunk/event.lisp
==============================================================================
--- trunk/event.lisp	(original)
+++ trunk/event.lisp	Thu Mar 15 15:42:16 2007
@@ -158,9 +158,9 @@
       (declare (ignore nick))
       (let ((channel (find-channel connection channel)))
         (setf (visibility channel)
-              (or (car (assoc chan-visibility
-                              '(("=" :public) ("*" :private) ("@" :secret))
-                              :test #'string=))
+              (or (second (assoc chan-visibility
+                                 '(("=" :public) ("*" :private) ("@" :secret))
+                                 :test #'string=))
                   :unknown))
         (unless (has-mode-p channel 'namreply-in-progress)
           (add-mode channel 'namreply-in-progress