cl-irc-devel

Download

cl-irc-devel@common-lisp.net

March 2007

2 participants
1 discussions

[cl-irc-devel] Small patch for svn rev.177
by Lars Rune Nøstdal 15 Mar '07

15 Mar '07

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/

2 1