X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fclass.lisp;h=4e2d8fcc79cf43f280a27ea708ab57cec6911d2b;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=de34a74aff6b0ec5b44616c5abcc42b045629568;hpb=95f17ca63742f8c164309716b35bc25545a849a6;p=sbcl.git

diff --git a/src/code/class.lisp b/src/code/class.lisp
index de34a74..4e2d8fc 100644
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -106,6 +106,7 @@
   #-sb-xc-host (progn
                  (/show0 "processing *!INITIAL-LAYOUTS*")
                  (dolist (x *!initial-layouts*)
+                   (setf (layout-clos-hash (cdr x)) (random-layout-clos-hash))
                    (setf (gethash (car x) *forward-referenced-layouts*)
                          (cdr x)))
                  (/show0 "done processing *!INITIAL-LAYOUTS*")))