1 ;;;; that part of SXHASH logic which runs not only in the target Lisp but
2 ;;;; in the cross-compilation host Lisp
4 ;;;; This software is part of the SBCL system. See the README file for
7 ;;;; This software is derived from the CMU CL system, which was
8 ;;;; written at Carnegie Mellon University and released into the
9 ;;;; public domain. The software is in the public domain and is
10 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
11 ;;;; files for more information.
15 (sb!xc:define-modify-macro mixf (y) mix)
17 ;;; SXHASH of FLOAT values is defined directly in terms of DEFTRANSFORM in
18 ;;; order to avoid boxing.
19 (deftransform sxhash ((x) (single-float))
20 '(let ((bits (single-float-bits x)))
23 (logand most-positive-fixnum
26 (deftransform sxhash ((x) (double-float))
28 (hi (double-float-high-bits val))
29 (lo (double-float-low-bits val))
30 (hilo (logxor hi lo)))
33 (logand most-positive-fixnum
37 ;;; SXHASH of FIXNUM values is defined as a DEFTRANSFORM because it's so
39 (deftransform sxhash ((x) (fixnum))
40 '(logand most-positive-fixnum
42 (ash x -3) ; to get sign bit into hash
45 ;;;; Some other common SXHASH cases are defined as DEFTRANSFORMs in order to
46 ;;;; avoid having to do TYPECASE at runtime.
47 (deftransform sxhash ((x) (simple-string))
48 '(%sxhash-simple-string x))
49 (deftransform sxhash ((x) (symbol))
50 '(%sxhash-simple-string (symbol-name x)))