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