[cl-irc-devel] Small patch for svn rev.177

11 Mar 2007

Hi,
I couldn't get latest version from SVN working (rev.177), but this
seems to have fixed this:

Index: event.lisp
===================================================================

--- event.lisp  (revision 177)
+++ event.lisp  (working copy)
@@ -158,7 +158,7 @@
       (declare (ignore nick))
       (let ((channel (find-channel connection channel)))
         (setf (visibility channel)
-              (or (car (assoc chan-visibility
+              (or (second (assoc chan-visibility
                               '(("=" :public) ("*" :private) ("@" :secret))
                               :test #'string=))
                   :unknown))


-- 
Mvh,
Lars Rune Nøstdal
http://nostdal.org/

    