X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftypedefs.lisp;h=98c3980a0e9e377d6f40049a2d9b7e84d6629c50;hb=3fe0010d2777b41e01ea9b4a0f894cfa40f7df1b;hp=23179304d5bd9a472fefd64d5c4231fadd35c109;hpb=c41cb4c87eae7b04f844dca5f7edb5086c5d2d68;p=sbcl.git

diff --git a/src/code/typedefs.lisp b/src/code/typedefs.lisp
index 2317930..98c3980 100644
--- a/src/code/typedefs.lisp
+++ b/src/code/typedefs.lisp
@@ -77,7 +77,7 @@
   (enumerable nil :read-only t)
   ;; an arbitrary hash code used in EQ-style hashing of identity
   ;; (since EQ hashing can't be done portably)
-  (hash-value (random #.(ash 1 20))
+  (hash-value (random #.(ash 1 15))
 	      :type (and fixnum unsigned-byte)
 	      :read-only t)
   ;; Can this object contain other types? A global property of our