From ehuelsmann at common-lisp.net Thu Mar 15 20:42:16 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Thu, 15 Mar 2007 15:42:16 -0500 (EST) Subject: [cl-irc-cvs] r178 - trunk Message-ID: <20070315204216.D1D92471A9@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