[Cl-irc-cvs] CVS update: cl-irc/protocol.lisp

[Erik Huelsmann]

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