[movitz-cvs] CVS movitz - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

6 Feb 2007

Update of /project/movitz/cvsroot/movitz
In directory clnet:/tmp/cvs-serv11163
Modified Files:
    storage-types.lisp 
Log Message:
Improve slightly sxhash on longish vectors.

--- /project/movitz/cvsroot/movitz/storage-types.lisp	2006/10/27 06:53:27	1.58
+++ /project/movitz/cvsroot/movitz/storage-types.lisp	2007/02/06 20:03:53	1.59
@@ -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.58 2006/10/27 06:53:27 ffjeld Exp $
+;;;; $Id: storage-types.lisp,v 1.59 2007/02/06 20:03:53 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -1008,8 +1008,10 @@
     (movitz-symbol
      (movitz-symbol-hash-key object))
     (movitz-string
-     (let ((object (movitz-print object))
-	   (result 0))
+     (let* ((object (movitz-print object))
+	    (result (if (not (> (length object) 8))
+			0
+		      (char-code (char-upcase (aref object (- (length object) 3)))))))
        (dotimes (i (min 8 (length object)))
     (incf result result)
     (incf result

    