diff --git a/code/hash.lisp b/code/hash.lisp index 8f798af4fd4b3ea2a75d13ce2a9eaad775e852d4..da755ecfa84fd6aa535ede7fb839836732787c8b 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.