master: Stop trying to make deterministic standard-class hashes

snuglas via Sbcl-commits <[email protected]> Wed, 24 Jun 2026 11:48:18 +0000
Newsgroups gmane.lisp.steel-bank.cvs
Message-ID <[email protected]>
The branch "master" has been updated in SBCL:
       via  0907b4329e81585c7d6ee88fe51b4ec1eb3705b5 (commit)
      from  61b916416d427e471ab4f60643549acd6e3134fa (commit)

- Log -----------------------------------------------------------------
commit 0907b4329e81585c7d6ee88fe51b4ec1eb3705b5
Author: Douglas Katzman <[email protected]>
Date:   Wed Jun 24 07:48:07 2026 -0400

    Stop trying to make deterministic standard-class hashes
---
 src/pcl/wrapper.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/pcl/wrapper.lisp b/src/pcl/wrapper.lisp
index 7b7301492..30d1f4df0 100644
--- a/src/pcl/wrapper.lisp
+++ b/src/pcl/wrapper.lisp
@@ -71,7 +71,10 @@
                                               :name (and (symbolp name) name)))
                      (t
                       (bug "Got to T branch in ~S" 'make-wrapper))))))
-        (make-layout (hash-layout-name name) classoid
+       ;; There a difference of opinion as to whether it's more important to achieve
+       ;; reproducible builds or to support contrived edge cases.
+        (make-layout (hash-layout-name nil) ; NIL implies a random hash
+                     classoid
                      :bitmap +layout-all-tagged+
                      :invalid nil :length length
                      :flags (logior +pcl-object-layout-flag+ +strictly-boxed-flag+))))

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL