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