Skip to content
Snippets Groups Projects
Commit bfa91ce2 authored by wlott's avatar wlott
Browse files

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.
parent 6cc34caa
No related branches found
No related tags found
No related merge requests found
......@@ -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.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment