[net-nittin-irc-cvs] CVS update: net-nittin-irc/protocol.lisp

[Erik Enge]

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

Modified Files:
	protocol.lisp 
Log Message:
really, really, silly bug in normalize-nickname (returning wrong value)

Date: Tue Nov 25 08:14:34 2003
Author: eenge

Index: net-nittin-irc/protocol.lisp
diff -u net-nittin-irc/protocol.lisp:1.22 net-nittin-irc/protocol.lisp:1.23
--- net-nittin-irc/protocol.lisp:1.22	Tue Nov 25 08:04:33 2003
+++ net-nittin-irc/protocol.lisp	Tue Nov 25 08:14:34 2003
@@ -1,4 +1,4 @@
-;;;; $Id: protocol.lisp,v 1.22 2003/11/25 13:04:33 eenge Exp $
+;;;; $Id: protocol.lisp,v 1.23 2003/11/25 13:14:34 eenge Exp $
 ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/protocol.lisp,v $
 
 ;;;; See LICENSE for licensing information.
@@ -386,7 +386,7 @@
          (new-string (substitute #\] #\} new-string))
          (new-string (substitute #\\ #\| new-string))
          (new-string (substitute #\~ #\^ new-string)))
-    (string-downcase string)))
+    (string-downcase new-string)))
 
 (defmethod find-user ((connection connection) (nickname string))
   "Return user as designated by `nickname' or nil if no such user is