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