Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv7691
Modified Files: storage-types.lisp Log Message: Calculate correct sxhash for lower-case strings.
Date: Wed Jul 28 19:14:35 2004 Author: ffjeld
Index: movitz/storage-types.lisp diff -u movitz/storage-types.lisp:1.35 movitz/storage-types.lisp:1.36 --- movitz/storage-types.lisp:1.35 Wed Jul 28 17:13:13 2004 +++ movitz/storage-types.lisp Wed Jul 28 19:14:35 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: storage-types.lisp,v 1.35 2004/07/29 00:13:13 ffjeld Exp $ +;;;; $Id: storage-types.lisp,v 1.36 2004/07/29 02:14:35 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -990,8 +990,8 @@ (incf result result) (incf result (if (evenp i) - (char-code (aref object i)) - (* 7 (char-code (aref object i)))))) + (char-code (char-upcase (aref object i))) + (* 7 (char-code (char-upcase (aref object i))))))) (ldb (byte 16 0) (+ (* #x10ad (length object)) result))))