Update of /project/cl-irc/cvsroot/cl-irc In directory common-lisp.net:/tmp/cvs-serv6182

Modified Files: protocol.lisp Log Message: Don't apply 'key' to 'value'. Date: Mon Mar 21 20:41:42 2005 Author: ehuelsmann

Index: cl-irc/protocol.lisp diff -u cl-irc/protocol.lisp:1.18 cl-irc/protocol.lisp:1.19 --- cl-irc/protocol.lisp:1.18 Mon Mar 21 19:14:32 2005 +++ cl-irc/protocol.lisp Mon Mar 21 20:41:42 2005 @@ -1,4 +1,4 @@ -;;;; $Id: protocol.lisp,v 1.18 2005/03/21 18:14:32 ehuelsmann Exp $ +;;;; $Id: protocol.lisp,v 1.19 2005/03/21 19:41:42 ehuelsmann Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/protocol.lisp,v $

;;;; See LICENSE for licensing information. @@ -77,8 +77,8 @@ (defmethod has-value-p ((mode single-value-mode) value &key (key #'identity) (test #'equal)) (funcall test - (funcall key (value mode)) - (funcall key value))) + value + (funcall key (value mode))))

;; mode class for holding lists of values