[movitz-cvs] CVS update: movitz/storage-types.lisp

[Frode Vatvedt Fjeld]

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))))