X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fgenesis.lisp;h=7ef58ec6f752893cd6283f6078de89cd7cb07b8f;hb=e0697854ef9f4999c8585b64be1b282ce4725176;hp=dac29001f63e4e879aa816f2339c29fe5407812a;hpb=7646aefa188758e2892fea2ad02be4f29b3938f2;p=sbcl.git

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index dac2900..7ef58ec 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -798,11 +798,9 @@
 					 (1- sb!vm:symbol-size)
 					 sb!vm:symbol-header-widetag)))
     (write-wordindexed symbol sb!vm:symbol-value-slot *unbound-marker*)
-    #!+x86
     (write-wordindexed symbol
 		       sb!vm:symbol-hash-slot
-		       (make-fixnum-descriptor
-			(1+ (random sb!xc:most-positive-fixnum))))
+		       (make-fixnum-descriptor 0))
     (write-wordindexed symbol sb!vm:symbol-plist-slot *nil-descriptor*)
     (write-wordindexed symbol sb!vm:symbol-name-slot
 		       (string-to-core name *dynamic*))