From bfa91ce2aff57a201f083be586da76dcd81e754a Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 6 May 1990 05:34:43 +0000
Subject: [PATCH] Use (ldb (byte 32 0) s-expr) instead of (abs s-expr) in
 sxhash of fixnums, cause the abs of a fixnum can be a bignum.

---
 code/hash.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/code/hash.lisp b/code/hash.lisp
index 8f798af4f..da755ecfa 100644
--- a/code/hash.lisp
+++ b/code/hash.lisp
@@ -414,7 +414,8 @@
   (typecase s-expr
     ;; The pointers and immediate types.
     (list (sxhash-list s-expr depth))
-    (fixnum (abs s-expr))
+    (fixnum
+     (ldb (byte 23 0) s-expr))
     #+nil
     (structure ???)
     ;; Other-pointer types.
-- 
GitLab