common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Optimize out a few instructions in perfect hash calculation

Browse source 
For sets of only character or only fixnum, there is no need to guard
against an object having the wrong type. So instead of doing
(if (fixnump x) (ldb ... x)) just use (ldb ... (get-lisp-obj-address x))
eliminating an initial branch. Also the AND operation - at least on
x86-64 - avoids use of a raw constant. This just changes some shifts
in the perfect hash expression. It drops a bit (or more) of precision,
but we're already doing that in descriptor-hash32 for the situations
where the keyset contains a mixture of immediates and symbols.
This commit is contained in:
Douglas Katzman 2025-07-07 11:06:38 +00:00
parent 0cfd774ba3
commit 43af8c9253
6 changed files with 327 additions and 359 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/code/stubs.lisp
View file

@ -167,7 +167,6 @@
(def symbol-%info) ; primitive reader always needs a stub (def symbol-%info) ; primitive reader always needs a stub
#-(or x86 x86-64 arm64 riscv) (def lra-code-header) #-(or x86 x86-64 arm64 riscv) (def lra-code-header)
(def %make-lisp-obj) (def %make-lisp-obj)
(def get-lisp-obj-address)
#+x86-64 #+x86-64
(def single-float-copysign (float float2)) (def single-float-copysign (float float2))
#+x86-64 #+x86-64

2
src/code/target-sxhash.lisp
View file

@ -625,4 +625,6 @@
(clear-info :function :inlining-data '%sxhash-simple-substring) (clear-info :function :inlining-data '%sxhash-simple-substring)
(clear-info :function :inlining-data '%sxhash-simple-substring/truncating) (clear-info :function :inlining-data '%sxhash-simple-substring/truncating)
;; interpreter stubs that are needed as soon as possible in warm build
(defun get-lisp-obj-address (x) (get-lisp-obj-address x))
(defun descriptor-hash32 (x) (descriptor-hash32 x)) (defun descriptor-hash32 (x) (descriptor-hash32 x))

63
src/compiler/sxhash.lisp
View file

@ -330,26 +330,18 @@
(setf (info :function :compiler-macro-function 'uint32-modularly) (setf (info :function :compiler-macro-function 'uint32-modularly)
#'sb-c::optimize-for-calc-phash) #'sb-c::optimize-for-calc-phash)
;;; Decide what types are in OBJECTS and return {FIXNUM|SYMBOL|CHARACTER|T}. ;;; Compute a bitmask over the possible types in OBJECTS
;;; Perhaps alternatively this could return an OR over types so the consumer (defconstant mph-keys-have-symbol 1)
;;; could decide to expand differently in various situations such as (defconstant mph-keys-have-fixnum 2)
;;; (OR SYMBOL FIXNUM). Because maybe the hash function should be: (defconstant mph-keys-have-char 4)
;;; (if (symbolp x) (f x) (ldb (byte 32 0) (get-lisp-obj-address))) (defconstant mph-keys-have-other 8)
;;; which contains exactly 1 type test, and if not symbol, there is no
;;; hazard in extracting low bits of a random descriptor.
;;; On the other hand, that's pretty darn near what happens anyway.
(defun minperfhash-key-universe-type (objects) (defun minperfhash-key-universe-type (objects)
(let ((types 0)) (let ((types 0))
(dolist (object objects (case types (dolist (object objects (if (/= types 0) types))
(#b001 'fixnum)
(#b010 'symbol)
(#b100 'character)
(0 'nil) ; if OBJECTS is NIL
(t 't)))
(setq types (logior (typecase object (setq types (logior (typecase object
(sb-xc:fixnum #b001) (sb-xc:fixnum mph-keys-have-fixnum)
(symbol #b010) (symbol mph-keys-have-symbol)
(character #b100) (character mph-keys-have-char)
(t (return nil))) (t (return nil)))
types))))) types)))))
@ -362,31 +354,44 @@
;;; The 32-bit hash is then fed into a perfect hash expression. ;;; The 32-bit hash is then fed into a perfect hash expression.
(defun prehash-expr-for-perfect-hash (obj keys) (defun prehash-expr-for-perfect-hash (obj keys)
(let ((type (minperfhash-key-universe-type keys))) (let ((type (minperfhash-key-universe-type keys)))
(ecase type (cond
((t symbol) ; most general hasher or just symbol #-64-bit ; avoid working with raw 32 bit quantities if we can
(multiple-value-bind (guard hash) ((= type mph-keys-have-char)
`(if (characterp ,obj) (char-code (truly-the character ,obj)) 0))
((logtest type mph-keys-have-symbol) ; some symbol in the keyset
(multiple-value-bind (guard hash)
(if (vop-existsp :translate hash-as-if-symbol-name) (if (vop-existsp :translate hash-as-if-symbol-name)
(values `(pointerp ,obj) `(hash-as-if-symbol-name ,obj)) (values `(pointerp ,obj) `(hash-as-if-symbol-name ,obj))
;; NON-NULL-SYMBOL-P is the less expensive test as it omits the OR ;; NON-NULL-SYMBOL-P is the less expensive test as it omits the OR
;; which accepts NIL along with OTHER-POINTER objects. ;; which accepts NIL along with OTHER-POINTER objects.
(values `(,(if (member nil keys) 'symbolp 'non-null-symbol-p) ,obj) (values `(,(if (member nil keys) 'symbolp 'non-null-symbol-p) ,obj)
`(symbol-name-hash (truly-the symbol ,obj)))) `(symbol-name-hash (truly-the symbol ,obj))))
`(if ,guard ,hash ,(if (eq type 't) `(descriptor-hash32 ,obj) 0)))) `(if ,guard
(character ,hash
`(if (characterp ,obj) (char-code (truly-the character ,obj)) 0)) ;; If the only accepted inputs are symbols, then any non-symbol can
(fixnum ;; get 0 for its hash
`(if (fixnump ,obj) (ldb (byte 32 0) (truly-the fixnum ,obj)) 0))))) ,(if (= type mph-keys-have-symbol) 0 `(descriptor-hash32 ,obj)))))
(t
;; LDB is a nop-op for 32-bit word size
`(ldb (byte 32 0) (get-lisp-obj-address ,obj))))))
;;; This is for use at compile-time, to build the array of uint32_t inputs ;;; This is for use at compile-time, to build the array of uint32_t inputs
;;; to the MPH generator after choosing the manner of prehashing. ;;; to the MPH generator after choosing the manner of prehashing.
;;; TODO: the prehash suld be rejiggered to use UNSIGNED-REG consistently, because the
;;; symbol-name hash vop returns unsigned-reg, and since we're willing to lose bits of precison
;;; in DESCRIPTOR-HASH32 there is really no reason to clear the fixnum tag mask.
;;; So just take 32 bits either from the symbol, or the low 32 descriptor bits as-is.
;;; However, to be even more flexible, then if there are hash collisions on the low 32 bits of
;;; the descriptor, we could look for any chunk of 32 bits that works out well.
(defun prehash-function-for-mph-generator (type) (defun prehash-function-for-mph-generator (type)
(case type (cond
((t symbol) ; most general hasher or just symbol #-64-bit ((= type mph-keys-have-char) #'char-code)
((logtest type mph-keys-have-symbol)
(lambda (x) (lambda (x)
(etypecase x (etypecase x
(symbol (symbol-name-hash x)) (symbol (symbol-name-hash x))
((or sb-xc:fixnum character) (descriptor-hash32 x))))) ((or sb-xc:fixnum character) (descriptor-hash32 x)))))
(character #'char-code) (t (lambda (x) (ldb (byte 32 0) (get-lisp-obj-address x))))))
(t (lambda (x) (ldb (byte 32 0) (the sb-xc:fixnum x))))))
;;; The CASE macro can use this predicate to decide whether to expand in a way ;;; The CASE macro can use this predicate to decide whether to expand in a way
;;; that selects a clause via a perfect hash versus the customary expansion ;;; that selects a clause via a perfect hash versus the customary expansion

149
xperfecthash30.lisp-expr
View file

@ -1,78 +1,72 @@
( (
(#(0 1 2 3) (#(0 4 8 C)
"((:NEAREST . 0) (:ZERO . 3) (:POSITIVE-INFINITY . 1) (:NEGATIVE-INFINITY . 2))" "((:NEAREST . 0) (:ZERO . 3) (:POSITIVE-INFINITY . 1) (:NEGATIVE-INFINITY . 2))"
"((& val 3))") "((& (>> val 2) 3))")
(#(0 1 2 4 5 6 C 10 14 18 1F) (#(0 4 8 10 14 18 30 40 50 60 7C)
"((:T . 31) (:LT . 16) (:LE . 20) (:EQ . 4) (:LNG . 6) (:GE . 12) (:NE . 24) (:NG . 20) (:LLT . 2) (:F . 0) (:LLE . 6) (:LGE . 5) (:LGT . 1) (:LNL . 5))" "((:T . 31) (:LT . 16) (:LE . 20) (:EQ . 4) (:LNG . 6) (:GE . 12) (:NE . 24) (:NG . 20) (:LLT . 2) (:F . 0) (:LLE . 6) (:LGE . 5) (:LGT . 1) (:LNL . 5))"
"((let ((tab #a((8) (unsigned-byte 8) 0 8 2 0 0 8 11 0))) "((let ((tab #a((8) (unsigned-byte 8) 0 8 2 0 0 8 11 0)))
(let ((b (& val #x7))) (let ((b (& (>> val 2) #x7)))
(let ((a (>> (<< val 27) 29))) (let ((a (>> (<< val 25) 29)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(0 1 2 11 12 13) (#(0 4 8 44 48 4C)
"(18 17 2 19 1 0)" "(18 17 2 19 1 0)"
"((& (+ val (>> val 3)) 7))") "((& (+ (>> val 2) (>> val 5)) 7))")
(#(0 1 2 12 13) (#(0 4 8 48 4C)
"(18 2 19 1 0)" "(18 2 19 1 0)"
"((& (+ val (>> val 4)) 7))") "((& (+ (>> val 2) (>> val 6)) 7))")
(#(0 1 5 6 7 8 F) (#(0 4 14 18 1C 20 3C)
"(8 7 0 15 1 5 6)" "(8 7 0 15 1 5 6)"
"((let ((tab #a((4) (unsigned-byte 8) 0 4 7 0))) "((let ((tab #a((4) (unsigned-byte 8) 0 4 7 0)))
(let ((b (& val #x3))) (let ((b (& (>> val 2) #x3)))
(let ((a (>> (<< val 28) 30))) (let ((a (>> (<< val 26) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(0 1 7 8 F) (#(0 4 1C 20 3C)
"(15 8 7 1 0)" "(15 8 7 1 0)"
"((let ((tab #a((4) (unsigned-byte 8) 0 4 0 0))) "((let ((tab #a((4) (unsigned-byte 8) 0 4 0 0)))
(let ((b (& val #x3))) (let ((b (& (>> val 2) #x3)))
(let ((a (>> (<< val 28) 30))) (let ((a (>> (<< val 26) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(0 2 3) (#(0 8 C)
"((:24-BIT . 0) (:53-BIT . 2) (:64-BIT . 3))" "((:24-BIT . 0) (:53-BIT . 2) (:64-BIT . 3))"
"((^ (& val 3) 2))") "((^ (& (>> val 2) 3) 2))")
(#(0 2 4 6 C E) (#(0 8 10 18 30 38)
"(14 12 4 2 6 0)" "(14 12 4 2 6 0)"
"((& (^ (>> val 1) (>> val 2)) 7))") "((& (^ (>> val 3) (>> val 4)) 7))")
(#(1 2 3 4 5 6 7 8) (#(4 8 C 10 14 18 1C 20)
"((2 FLOATING-POINT-OVERFLOW) (1 DIVISION-BY-ZERO) (3 DIVISION-BY-ZERO 4294966781) (4 FLOATING-POINT-OVERFLOW 4294966267) (5 FLOATING-POINT-UNDERFLOW 4294965239) (6 FLOATING-POINT-INEXACT 4294963183) (7 FLOATING-POINT-INVALID-OPERATION 4294967038) (8 FLOATING-POINT-EXCEPTION))" "((2 FLOATING-POINT-OVERFLOW) (1 DIVISION-BY-ZERO) (3 DIVISION-BY-ZERO 4294966781) (4 FLOATING-POINT-OVERFLOW 4294966267) (5 FLOATING-POINT-UNDERFLOW 4294965239) (6 FLOATING-POINT-INEXACT 4294963183) (7 FLOATING-POINT-INVALID-OPERATION 4294967038) (8 FLOATING-POINT-EXCEPTION))"
"((& val 7))") "((& (>> val 2) 7))")
(#(1 2 8 10 40) (#(4 8 20 40 100)
"(64 16 8 2 1)" "(64 16 8 2 1)"
"((& (+ (>> val 0) (>> val 1) (>> val 5)) 7))") "((& (+ (>> val 2) (>> val 3) (>> val 7)) 7))")
(#(2 3 5 8 C E) (#(8 C 14 20 30 38)
"(12 3 2 14 5 8)" "(12 3 2 14 5 8)"
"((let ((tab #a((4) (unsigned-byte 8) 7 0 0 2))) "((let ((tab #a((4) (unsigned-byte 8) 7 0 0 2)))
(let ((b (& val #x3))) (let ((b (& (>> val 2) #x3)))
(let ((a (>> (<< val 28) 30))) (let ((a (>> (<< val 26) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(2 3 5 C E) (#(8 C 14 30 38)
"(12 3 2 14 5)" "(12 3 2 14 5)"
"((let ((tab #a((4) (unsigned-byte 8) 7 0 0 2))) "((let ((tab #a((4) (unsigned-byte 8) 7 0 0 2)))
(let ((b (& val #x3))) (let ((b (& (>> val 2) #x3)))
(let ((a (>> (<< val 28) 30))) (let ((a (>> (<< val 26) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(2 3 6 8 C E) (#(8 C 18 20 30 38)
"(12 3 2 14 6 8)" "(12 3 2 14 6 8)"
"((let ((tab #a((4) (unsigned-byte 8) 7 0 0 2))) "((let ((tab #a((4) (unsigned-byte 8) 7 0 0 2)))
(let ((b (& val #x3))) (let ((b (& (>> val 2) #x3)))
(let ((a (>> (<< val 28) 30))) (let ((a (>> (<< val 26) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(2 3 8 9 C E) (#(8 C 20 24 30 38)
"(12 3 2 14 8 9)" "(12 3 2 14 8 9)"
"((let ((tab #a((4) (unsigned-byte 8) 7 0 0 1))) "((let ((tab #a((4) (unsigned-byte 8) 7 0 0 1)))
(let ((b (& val #x3))) (let ((b (& (>> val 2) #x3)))
(let ((a (>> (<< val 28) 30))) (let ((a (>> (<< val 26) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(2 3 8 C E) (#(8 C 20 30 38)
"(12 3 2 14 8)" "(12 3 2 14 8)"
"((let ((tab #a((4) (unsigned-byte 8) 3 0 4 1))) "((let ((tab #a((4) (unsigned-byte 8) 3 0 4 1)))
(let ((b (& (>> val 1) #x3))) (let ((b (& (>> val 3) #x3)))
(let ((a (>> (<< val 31) 30))) (let ((a (>> (<< val 29) 30)))
(^ a (aref tab b))))))")
(#(3 5 6 7 D)
"(7 5 6 3 13)"
"((let ((tab #a((4) (unsigned-byte 8) 7 0 0 1)))
(let ((b (>> (<< val 28) 30)))
(let ((a (& val #x3)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(A 3C 3F 5B 7B) (#(A 3C 3F 5B 7B)
"(#\\? #\\{ #\\[ #\\< #\\Newline)" "(#\\? #\\{ #\\[ #\\< #\\Newline)"
@ -80,6 +74,12 @@
(let ((b (& val #x3))) (let ((b (& val #x3)))
(let ((a (>> (<< val 25) 30))) (let ((a (>> (<< val 25) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(C 14 18 1C 34)
"(7 5 6 3 13)"
"((let ((tab #a((4) (unsigned-byte 8) 7 0 0 1)))
(let ((b (>> (<< val 26) 30)))
(let ((a (& (>> val 2) #x3)))
(^ a (aref tab b))))))")
(#(23 27 2B 2C 2D 3A 40 56 76) (#(23 27 2B 2C 2D 3A 40 56 76)
"(#\\@ #\\: #\\, #\\' #\\# #\\V #\\v #\\- #\\+)" "(#\\@ #\\: #\\, #\\' #\\# #\\V #\\v #\\- #\\+)"
"((let ((tab #a((8) (unsigned-byte 8) 0 2 0 0 4 0 10 0))) "((let ((tab #a((8) (unsigned-byte 8) 0 2 0 0 4 0 10 0)))
@ -108,52 +108,52 @@
(let ((b (& val #x3))) (let ((b (& val #x3)))
(let ((a (>> (<< val 27) 30))) (let ((a (>> (<< val 27) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(8A 8E 92 96 9A 9E A2 A6 AA AE B2 B6 BA BE C2 C6 CA CE D2 D6) (#(228 238 248 258 268 278 288 298 2A8 2B8 2C8 2D8 2E8 2F8 308 318 328 338 348 358)
"(138 210 206 194 190 186 182 178 174 170 166 162 158 154 150 146 142 202 198 214)" "(138 210 206 194 190 186 182 178 174 170 166 162 158 154 150 146 142 202 198 214)"
"((let ((tab #a((16) (unsigned-byte 8) 0 13 0 13 0 13 0 13 15 21 3 21 21 11 7 21))) "((let ((tab #a((16) (unsigned-byte 8) 0 13 0 13 0 13 0 13 15 21 3 21 21 11 7 21)))
(let ((b (& (>> val 2) #xf))) (let ((b (& (>> val 4) #xf)))
(let ((a (>> (<< val 25) 28))) (let ((a (>> (<< val 23) 28)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(8A 8E 92 96 9A 9E A2 A6 AA AE B2 B6 BA BE C2 C6 CA CE D2 D6 DA) (#(228 238 248 258 268 278 288 298 2A8 2B8 2C8 2D8 2E8 2F8 308 318 328 338 348 358 368)
"(138 210 206 194 190 186 182 178 174 170 166 162 158 154 150 146 142 202 198 218 214)" "(138 210 206 194 190 186 182 178 174 170 166 162 158 154 150 146 142 202 198 218 214)"
"((let ((tab #a((16) (unsigned-byte 8) 0 13 0 13 0 13 0 13 21 16 3 21 21 11 7 21))) "((let ((tab #a((16) (unsigned-byte 8) 0 13 0 13 0 13 0 13 21 16 3 21 21 11 7 21)))
(let ((b (& (>> val 2) #xf))) (let ((b (& (>> val 4) #xf)))
(let ((a (>> (<< val 25) 28))) (let ((a (>> (<< val 23) 28)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(8A AA AE B2 BE C2 C6) (#(228 2A8 2B8 2C8 2F8 308 318)
"(194 190 178 174 170 198 138)" "(194 190 178 174 170 198 138)"
"((let ((tab #a((4) (unsigned-byte 8) 6 0 0 4))) "((let ((tab #a((4) (unsigned-byte 8) 0 2 5 5)))
(+= val #x14650a3e) (+= val #x24be15b7)
(^= val (>> val 4)) (^= val (>> val 4))
(let ((b (& (>> val 1) #x3))) (let ((b (& val #x3)))
(let ((a (>> (u32+ val (<< val 26)) 30))) (let ((a (>> (u32+ val (<< val 24)) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(8A AA AE B2 BE C2 C6 DA) (#(228 2A8 2B8 2C8 2F8 308 318 368)
"(194 190 178 174 170 198 218 138)" "(194 190 178 174 170 198 218 138)"
"((let ((tab #a((4) (unsigned-byte 8) 0 0 7 4))) "((let ((tab #a((4) (unsigned-byte 8) 7 4 0 0)))
(+= val #xdb54415e) (+= val #x24be15b7)
(^= val (>> val 4)) (^= val (>> val 4))
(let ((b (& (>> val 2) #x3))) (let ((b (& val #x3)))
(let ((a (>> (u32+ val (<< val 27)) 30))) (let ((a (>> (u32+ val (<< val 24)) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(8E 92 96 9E A6 B2 B6 BA C2 D6) (#(238 248 258 278 298 2C8 2D8 2E8 308 358)
"(142 214 146 150 158 166 178 182 186 194)" "(142 214 146 150 158 166 178 182 186 194)"
"((let ((tab #a((8) (unsigned-byte 8) 12 0 0 0 5 0 4 8))) "((let ((tab #a((8) (unsigned-byte 8) 12 0 0 0 5 0 4 8)))
(let ((b (& (>> val 2) #x7))) (let ((b (& (>> val 4) #x7)))
(let ((a (>> (<< val 25) 29))) (let ((a (>> (<< val 23) 29)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(8E 92 96 9E A6 B2 B6 BA C2 D6 DA) (#(238 248 258 278 298 2C8 2D8 2E8 308 358 368)
"(142 214 218 146 150 158 166 178 182 186 194)" "(142 214 218 146 150 158 166 178 182 186 194)"
"((let ((tab #a((8) (unsigned-byte 8) 0 0 0 9 11 0 5 6))) "((let ((tab #a((8) (unsigned-byte 8) 0 0 0 9 11 0 5 6)))
(let ((b (& (>> val 2) #x7))) (let ((b (& (>> val 4) #x7)))
(let ((a (>> (<< val 25) 29))) (let ((a (>> (<< val 23) 29)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(13E 154 1BE 1D4) (#(4F8 550 6F8 750)
"(318 446 340 468)" "(318 446 340 468)"
"((& (>> val 6) 3))") "((& (>> val 8) 3))")
(#(1000 2000 4000 6000 8000 A000 C000) (#(4000 8000 10000 18000 20000 28000 30000)
"(4096 40960 49152 32768 24576 16384 8192)" "(4096 40960 49152 32768 24576 16384 8192)"
"((& (>> val 13) 7))") "((& (>> val 15) 7))")
(#(6641B 2D83FFB 3DD2F1F 166E98EA 18F3A192 19485E2B 1FF01E77) (#(6641B 2D83FFB 3DD2F1F 166E98EA 18F3A192 19485E2B 1FF01E77)
"(:ALLOW-OTHER-KEYS :SLOT-NAMES :METACLASS-CONSTRUCTOR :DD-TYPE :METACLASS-NAME :SUPERCLASS-NAME :CLASS-NAME)" "(:ALLOW-OTHER-KEYS :SLOT-NAMES :METACLASS-CONSTRUCTOR :DD-TYPE :METACLASS-NAME :SUPERCLASS-NAME :CLASS-NAME)"
"((& (^ (>> val 1) (>> val 20)) 7))") "((& (^ (>> val 1) (>> val 20)) 7))")
@ -284,9 +284,6 @@
(let ((b (& (>> val 12) #x7))) (let ((b (& (>> val 12) #x7)))
(let ((a (>> (<< val 31) 29))) (let ((a (>> (<< val 31) 29)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(79F3D1 B2C6780 EF3F4BC 1C96355F 1D057C78)
"(SB-BROTHERTREE::UNARY-NODE SB-LOCKLESS::LIST-NODE LAYOUT STRUCTURE-OBJECT T)"
"((& (^ (>> val 1) (>> val 3)) 7))")
(#(7E1321 1BF9BA5 24D3B50 2D83FFB 2E64121 6050970 6568C99 65871AE 6B647A0 7EE2BA1 805A8CE 870F40D 9C05C00 B32A898 B465CCD (#(7E1321 1BF9BA5 24D3B50 2D83FFB 2E64121 6050970 6568C99 65871AE 6B647A0 7EE2BA1 805A8CE 870F40D 9C05C00 B32A898 B465CCD
CC89B6A D4575D9 D64C851 EDCFD06 F463A15 1087745E 1088DA49 111EF72D 1256F00B 15306542 164A65E2 172C8C38 17C2457C 1A355FA0 CC89B6A D4575D9 D64C851 EDCFD06 F463A15 1087745E 1088DA49 111EF72D 1256F00B 15306542 164A65E2 172C8C38 17C2457C 1A355FA0
1A4BD0D1 1B50A359 1B5C8A6A 1BD8B4B6 1CFE2013 1D753C32 1E88666C 1E89C88A 1EDCE097 1F1704E1) 1A4BD0D1 1B50A359 1B5C8A6A 1BD8B4B6 1CFE2013 1D753C32 1E88666C 1E89C88A 1EDCE097 1F1704E1)
@ -1421,7 +1418,7 @@
(let ((a (>> (<< val 31) 29))) (let ((a (>> (<< val 31) 29)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(10D2EA4E 1224C557 17524A78 1769E419 183E6CEC 19577539 1C065CB8 1C26FCE6 1C8E20BF 1CAE048E 1D66C932) (#(10D2EA4E 1224C557 17524A78 1769E419 183E6CEC 19577539 1C065CB8 1C26FCE6 1C8E20BF 1CAE048E 1D66C932)
"(SB-C::CRETURN SB-C::CIF SB-C::ENTRY SB-C::MV-COMBINATION CAST SB-C::ARRAY-INDEX-CAST DELAY EXIT SB-C::ENCLOSE SB-C::CDYNAMIC-EXTENT SB-C:JUMP-TABLE)" "(SB-C::CRETURN SB-C::CIF SB-C::ENTRY SB-C::MV-COMBINATION DELAY SB-C::ARRAY-INDEX-CAST CAST EXIT SB-C::ENCLOSE SB-C::CDYNAMIC-EXTENT SB-C:JUMP-TABLE)"
"((let ((tab #a((8) (unsigned-byte 8) 12 1 13 2 0 0 4 0))) "((let ((tab #a((8) (unsigned-byte 8) 12 1 13 2 0 0 4 0)))
(let ((b (& (>> val 13) #x7))) (let ((b (& (>> val 13) #x7)))
(let ((a (>> (<< val 5) 29))) (let ((a (>> (<< val 5) 29)))
@ -1449,7 +1446,7 @@
(#(115209AA 13D49E10 1426586F 14891D3D 14FADC0A 1502A9DB 1581B093 15CBCE15 169E3C90 1793ACF5 180BD2A6 180C07C9 18D9EE98 (#(115209AA 13D49E10 1426586F 14891D3D 14FADC0A 1502A9DB 1581B093 15CBCE15 169E3C90 1793ACF5 180BD2A6 180C07C9 18D9EE98
18DED7BA 18DF2FFE 18EFF350 1924816D 1927B9CD 1A71F300 1AC04DEF 1BE6B677 1C93B267 1D06EE71 1D1DDF40 1D58AAD5 1DA983E2 18DED7BA 18DF2FFE 18EFF350 1924816D 1927B9CD 1A71F300 1AC04DEF 1BE6B677 1C93B267 1D06EE71 1D1DDF40 1D58AAD5 1DA983E2
1DB667FB 1E121A85 1ECA94F7) 1DB667FB 1E121A85 1ECA94F7)
"(CTYPE INTERSECTION-TYPE UNION-TYPE COMPOUND-TYPE CHARACTER-SET-TYPE ARRAY-TYPE MEMBER-TYPE HAIRY-TYPE UNKNOWN-TYPE NAMED-TYPE ALIEN-TYPE-TYPE NEGATION-TYPE NUMERIC-UNION-TYPE CONS-TYPE ARGS-TYPE FUN-DESIGNATOR-TYPE FUN-TYPE VALUES-TYPE CONSTANT-TYPE CLASSOID STATIC-CLASSOID STANDARD-CLASSOID STRUCTURE-CLASSOID CONDITION-CLASSOID BUILT-IN-CLASSOID UNDEFINED-CLASSOID SB-C::LVAR SB-C::LAMBDA-VAR CONSTANT)" "(UNDEFINED-CLASSOID BUILT-IN-CLASSOID CONDITION-CLASSOID STRUCTURE-CLASSOID STANDARD-CLASSOID STATIC-CLASSOID CLASSOID CONSTANT-TYPE VALUES-TYPE FUN-TYPE FUN-DESIGNATOR-TYPE ARGS-TYPE CONS-TYPE NUMERIC-UNION-TYPE NEGATION-TYPE ALIEN-TYPE-TYPE NAMED-TYPE UNKNOWN-TYPE HAIRY-TYPE MEMBER-TYPE ARRAY-TYPE CHARACTER-SET-TYPE COMPOUND-TYPE UNION-TYPE INTERSECTION-TYPE CTYPE SB-C::LVAR SB-C::LAMBDA-VAR CONSTANT)"
"((let ((tab #a((16) (unsigned-byte 8) 0 18 13 12 0 1 16 0 22 21 16 0 28 31 26 6))) "((let ((tab #a((16) (unsigned-byte 8) 0 18 13 12 0 1 16 0 22 21 16 0 28 31 26 6)))
(let ((b (& (>> val 2) #xf))) (let ((b (& (>> val 2) #xf)))
(let ((a (>> (<< val 7) 28))) (let ((a (>> (<< val 7) 28)))
@ -1494,7 +1491,7 @@
"(SB-VM::DISPLACED-FROM SB-VM::DISPLACED-P SB-VM::DISPLACEMENT SB-VM::ELEMENTS FILL-POINTER SB-VM::DATA)" "(SB-VM::DISPLACED-FROM SB-VM::DISPLACED-P SB-VM::DISPLACEMENT SB-VM::ELEMENTS FILL-POINTER SB-VM::DATA)"
"((& (- (>> val 21) (>> val 25)) 7))") "((& (- (>> val 21) (>> val 25)) 7))")
(#(18D9EE98 18DED7BA 18EFF350 1BE6B677 1D58AAD5) (#(18D9EE98 18DED7BA 18EFF350 1BE6B677 1D58AAD5)
"(NUMERIC-UNION-TYPE MEMBER-TYPE CHARACTER-SET-TYPE HAIRY-TYPE UNKNOWN-TYPE)" "(NUMERIC-UNION-TYPE MEMBER-TYPE CHARACTER-SET-TYPE UNKNOWN-TYPE HAIRY-TYPE)"
"((& (- val (>> val 21)) 7))") "((& (- val (>> val 21)) 7))")
(#(1CA2F2FA 1DA2F48D 1EA2F620 1FA2F7B3) (#(1CA2F2FA 1DA2F48D 1EA2F620 1FA2F7B3)
"#(:FCC0 :FCC1 :FCC2 :FCC3)" "#(:FCC0 :FCC1 :FCC2 :FCC3)"

167
xperfecthash61.lisp-expr
View file

@ -1,24 +1,24 @@
( (
(#(0 1 2 3) (#(0 8 10 18)
"((:NEAREST . 0) (:ZERO . 1) (:POSITIVE-INFINITY . 2) (:NEGATIVE-INFINITY . 3))" "((:NEAREST . 0) (:ZERO . 1) (:POSITIVE-INFINITY . 2) (:NEGATIVE-INFINITY . 3))"
"((& val 3))") "((& (>> val 3) 3))")
(#(0 1 2 4 5 6 C 10 14 18 1F) (#(0 8 10 20 28 30 60 80 A0 C0 F8)
"((:T . 31) (:LT . 16) (:LE . 20) (:EQ . 4) (:LNG . 6) (:GE . 12) (:NE . 24) (:NG . 20) (:LLT . 2) (:F . 0) (:LLE . 6) (:LGE . 5) (:LGT . 1) (:LNL . 5))" "((:T . 31) (:LT . 16) (:LE . 20) (:EQ . 4) (:LNG . 6) (:GE . 12) (:NE . 24) (:NG . 20) (:LLT . 2) (:F . 0) (:LLE . 6) (:LGE . 5) (:LGT . 1) (:LNL . 5))"
"((let ((tab #a((8) (unsigned-byte 8) 0 8 2 0 0 8 11 0))) "((let ((tab #a((8) (unsigned-byte 8) 0 8 2 0 0 8 11 0)))
(let ((b (& val #x7))) (let ((b (& (>> val 3) #x7)))
(let ((a (>> (<< val 27) 29))) (let ((a (>> (<< val 24) 29)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(0 1 5 6 7 8 F) (#(0 8 28 30 38 40 78)
"(8 7 0 15 1 5 6)" "(8 7 0 15 1 5 6)"
"((let ((tab #a((4) (unsigned-byte 8) 0 4 7 0))) "((let ((tab #a((4) (unsigned-byte 8) 0 4 7 0)))
(let ((b (& val #x3))) (let ((b (& (>> val 3) #x3)))
(let ((a (>> (<< val 28) 30))) (let ((a (>> (<< val 25) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(0 1 7 8 F) (#(0 8 38 40 78)
"(15 8 7 1 0)" "(15 8 7 1 0)"
"((let ((tab #a((4) (unsigned-byte 8) 0 4 0 0))) "((let ((tab #a((4) (unsigned-byte 8) 0 4 0 0)))
(let ((b (& val #x3))) (let ((b (& (>> val 3) #x3)))
(let ((a (>> (<< val 28) 30))) (let ((a (>> (<< val 25) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(0 732BDD9 6BC2D01D 841FB34E) (#(0 732BDD9 6BC2D01D 841FB34E)
"(NIL :STRINGS :BOTH :SYMBOLS)" "(NIL :STRINGS :BOTH :SYMBOLS)"
@ -124,98 +124,94 @@
(#(0 C49039A2 DB6D6FD7 E487643D F5B1443E) (#(0 C49039A2 DB6D6FD7 E487643D F5B1443E)
"(SIMPLE-VECTOR VECTOR CONS LIST NIL)" "(SIMPLE-VECTOR VECTOR CONS LIST NIL)"
"((& (+ (>> val 4) (>> val 19)) 7))") "((& (+ (>> val 4) (>> val 19)) 7))")
(#(1 2 3 4 5 6 7 8) (#(8 10 18 20 28 30 38 40)
"((2 FLOATING-POINT-OVERFLOW) (1 DIVISION-BY-ZERO) (3 DIVISION-BY-ZERO 4227858415) (4 FLOATING-POINT-OVERFLOW 4026531775) (5 FLOATING-POINT-UNDERFLOW 4160749535) (6 FLOATING-POINT-INEXACT 4261412855) (7 FLOATING-POINT-INVALID-OPERATION 3758096255) (8 FLOATING-POINT-EXCEPTION))" "((2 FLOATING-POINT-OVERFLOW) (1 DIVISION-BY-ZERO) (3 DIVISION-BY-ZERO 4227858415) (4 FLOATING-POINT-OVERFLOW 4026531775) (5 FLOATING-POINT-UNDERFLOW 4160749535) (6 FLOATING-POINT-INEXACT 4261412855) (7 FLOATING-POINT-INVALID-OPERATION 3758096255) (8 FLOATING-POINT-EXCEPTION))"
"((& val 7))") "((& (>> val 3) 7))")
(#(1 2 8 10 40) (#(8 10 40 80 200)
"(64 16 8 2 1)" "(64 16 8 2 1)"
"((& (+ (>> val 0) (>> val 1) (>> val 5)) 7))") "((& (+ (>> val 3) (>> val 4) (>> val 8)) 7))")
(#(2 3 5 8 C E) (#(10 18 28 40 60 70)
"(12 3 2 14 5 8)" "(12 3 2 14 5 8)"
"((let ((tab #a((4) (unsigned-byte 8) 7 0 0 2))) "((let ((tab #a((4) (unsigned-byte 8) 7 0 0 2)))
(let ((b (& val #x3))) (let ((b (& (>> val 3) #x3)))
(let ((a (>> (<< val 28) 30)))
(^ a (aref tab b))))))")
(#(2 3 5 C E)
"(12 3 2 14 5)"
"((let ((tab #a((4) (unsigned-byte 8) 7 0 0 2)))
(let ((b (& val #x3)))
(let ((a (>> (<< val 28) 30)))
(^ a (aref tab b))))))")
(#(2 3 6 8 C E)
"(12 3 2 14 6 8)"
"((let ((tab #a((4) (unsigned-byte 8) 7 0 0 2)))
(let ((b (& val #x3)))
(let ((a (>> (<< val 28) 30)))
(^ a (aref tab b))))))")
(#(2 3 8 9 C E)
"(12 3 2 14 8 9)"
"((let ((tab #a((4) (unsigned-byte 8) 7 0 0 1)))
(let ((b (& val #x3)))
(let ((a (>> (<< val 28) 30)))
(^ a (aref tab b))))))")
(#(2 3 8 C E)
"(12 3 2 14 8)"
"((let ((tab #a((4) (unsigned-byte 8) 3 0 4 1)))
(let ((b (& (>> val 1) #x3)))
(let ((a (>> (<< val 31) 30)))
(^ a (aref tab b))))))")
(#(8 10 20 40)
"(8 16 32 64)"
"((let ((b (& (>> val 5) 1)))
(^ (& (>> val 3) 3) b (<< b 1))))")
(#(A 3C 3F 5B 7B)
"(#\\? #\\{ #\\[ #\\< #\\Newline)"
"((let ((tab #a((4) (unsigned-byte 8) 5 0 0 0)))
(let ((b (& val #x3)))
(let ((a (>> (<< val 25) 30))) (let ((a (>> (<< val 25) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(23 27 2B 2C 2D 3A 40 56 76) (#(10 18 28 60 70)
"(#\\@ #\\: #\\, #\\' #\\# #\\V #\\v #\\- #\\+)" "(12 3 2 14 5)"
"((let ((tab #a((8) (unsigned-byte 8) 0 2 0 0 4 0 10 0))) "((let ((tab #a((4) (unsigned-byte 8) 7 0 0 2)))
(+= val #x1679e37f) (let ((b (& (>> val 3) #x3)))
(^= val (>> val 4)) (let ((a (>> (<< val 25) 30)))
(let ((b (& val #x7)))
(let ((a (>> (u32+ val (<< val 25)) 29)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(25 26 28 29 3B 3E 49 54 5F 7C 7E) (#(10 18 30 40 60 70)
"#(#\\I #\\T #\\% #\\& #\\| #\\_ #\\( #\\) #\\; #\\> #\\~)" "(12 3 2 14 6 8)"
"((let ((tab #a((8) (unsigned-byte 8) 11 4 0 2 13 7 0 1))) "((let ((tab #a((4) (unsigned-byte 8) 7 0 0 2)))
(let ((b (& val #x7))) (let ((b (& (>> val 3) #x3)))
(let ((a (>> (<< val 25) 29))) (let ((a (>> (<< val 25) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(44 45 46 4C 52 53) (#(10 18 40 48 60 70)
"(#\\R #\\L #\\D #\\F #\\S #\\E)" "(12 3 2 14 8 9)"
"((let ((tab #a((4) (unsigned-byte 8) 4 3 0 3))) "((let ((tab #a((4) (unsigned-byte 8) 7 0 0 1)))
(let ((b (& val #x3))) (let ((b (& (>> val 3) #x3)))
(let ((a (>> (<< val 27) 30))) (let ((a (>> (<< val 25) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(89 8D 91 95 99 9D A1 A5 A9 AD B1 B5 B9 BD C1 C5 C9 CD D1 D5 D9 DD E1 E5) (#(10 18 40 60 70)
"(12 3 2 14 8)"
"((let ((tab #a((4) (unsigned-byte 8) 3 0 4 1)))
(let ((b (& (>> val 4) #x3)))
(let ((a (>> (<< val 28) 30)))
(^ a (aref tab b))))))")
(#(448 468 488 4A8 4C8 4E8 508 528 548 568 588 5A8 5C8 5E8 608 628 648 668 688 6A8 6C8 6E8 708 728)
"(137 221 217 205 201 197 193 189 185 181 177 173 169 165 161 157 153 149 145 141 213 209 229 225)" "(137 221 217 205 201 197 193 189 185 181 177 173 169 165 161 157 153 149 145 141 213 209 229 225)"
"((let ((tab #a((16) (unsigned-byte 8) 31 24 0 13 0 13 0 13 1 12 16 22 16 18 21 22))) "((let ((tab #a((16) (unsigned-byte 8) 31 24 0 13 0 13 0 13 1 12 16 22 16 18 21 22)))
(let ((b (& (>> val 2) #xf))) (let ((b (& (>> val 5) #xf)))
(let ((a (>> (<< val 25) 28))) (let ((a (>> (<< val 22) 28)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(89 B1 B5 B9 C9 CD D5 D9) (#(448 588 5A8 5C8 648 668 6A8 6C8)
"(217 205 201 185 181 177 213 137)" "(217 205 201 185 181 177 213 137)"
"((let ((tab #a((4) (unsigned-byte 8) 7 0 3 7))) "((let ((tab #a((4) (unsigned-byte 8) 4 3 0 7)))
(+= val #x14650a3e) (+= val #x131bb8ed)
(^= val (>> val 4)) (^= val (>> val 4))
(let ((b (& (>> val 1) #x3))) (let ((b (& (>> val 5) #x3)))
(let ((a (>> (u32+ val (<< val 26)) 30))) (let ((a (>> (u32+ val (<< val 23)) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(8D 91 95 9D A5 AD B9 BD C1 C5 CD E1 E5) (#(468 488 4A8 4E8 528 568 5C8 5E8 608 628 668 708 728)
"(141 225 229 145 149 157 165 173 185 189 193 197 205)" "(141 225 229 145 149 157 165 173 185 189 193 197 205)"
"((let ((tab #a((8) (unsigned-byte 8) 13 0 0 8 4 1 4 0))) "((let ((tab #a((8) (unsigned-byte 8) 13 0 0 8 4 1 4 0)))
(let ((b (& (>> val 2) #x7))) (let ((b (& (>> val 5) #x7)))
(let ((a (>> (<< val 25) 29))) (let ((a (>> (<< val 22) 29)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(13E 154 1BE 1D4) (#(9F0 AA0 DF0 EA0)
"(318 446 340 468)" "(318 446 340 468)"
"((& (>> val 6) 3))") "((& (>> val 9) 3))")
(#(1000 2000 4000 6000 8000 A000 C000) (#(A51 3C51 3F51 5B51 7B51)
"(#\\? #\\{ #\\[ #\\< #\\Newline)"
"((let ((tab #a((4) (unsigned-byte 8) 5 0 0 0)))
(let ((b (& (>> val 8) #x3)))
(let ((a (>> (<< val 17) 30)))
(^ a (aref tab b))))))")
(#(2351 2751 2B51 2C51 2D51 3A51 4051 5651 7651)
"(#\\@ #\\: #\\, #\\' #\\# #\\V #\\v #\\- #\\+)"
"((let ((tab #a((8) (unsigned-byte 8) 5 0 0 12 4 0 0 0)))
(+= val #x9f330c7b)
(^= val (>> val 4))
(let ((b (& (>> val 8) #x7)))
(let ((a (>> (u32+ val (<< val 15)) 29)))
(^ a (aref tab b))))))")
(#(2551 2651 2851 2951 3B51 3E51 4951 5451 5F51 7C51 7E51)
"#(#\\I #\\T #\\% #\\& #\\| #\\_ #\\( #\\) #\\; #\\> #\\~)"
"((let ((tab #a((8) (unsigned-byte 8) 11 4 0 2 13 7 0 1)))
(let ((b (& (>> val 8) #x7)))
(let ((a (>> (<< val 17) 29)))
(^ a (aref tab b))))))")
(#(4451 4551 4651 4C51 5251 5351)
"(#\\R #\\L #\\D #\\F #\\S #\\E)"
"((let ((tab #a((4) (unsigned-byte 8) 4 3 0 3)))
(let ((b (& (>> val 8) #x3)))
(let ((a (>> (<< val 19) 30)))
(^ a (aref tab b))))))")
(#(8000 10000 20000 30000 40000 50000 60000)
"(4096 40960 49152 32768 24576 16384 8192)" "(4096 40960 49152 32768 24576 16384 8192)"
"((& (>> val 13) 7))") "((& (>> val 16) 7))")
(#(7FD94 39750D5C 42D83FFB 5F84C345 72E2CBDA EBF09BC1) (#(7FD94 39750D5C 42D83FFB 5F84C345 72E2CBDA EBF09BC1)
"(:ALLOW-OTHER-KEYS :Y-TYPE :X-TYPE :SAME-LEAF-NOT-COMPLEX :INTEGER :COMPLEX-P)" "(:ALLOW-OTHER-KEYS :Y-TYPE :X-TYPE :SAME-LEAF-NOT-COMPLEX :INTEGER :COMPLEX-P)"
"((& (- (>> val 4) (>> val 12)) 7))") "((& (- (>> val 4) (>> val 12)) 7))")
@ -380,7 +376,7 @@
(#(8D6A093 29FE83B4 2D3C0047 30EFFA5D 32030766 344955D3 3A384B97 444AF531 47AA782C 4AE88D7F 50613B7E 51AB5CD9 5595EEC3 636A739F (#(8D6A093 29FE83B4 2D3C0047 30EFFA5D 32030766 344955D3 3A384B97 444AF531 47AA782C 4AE88D7F 50613B7E 51AB5CD9 5595EEC3 636A739F
6964D143 6B01992A 7DEC68F1 86C51BD4 90EC2354 A258CBE6 AEE54B8F B84C6FDB B9D57393 C295156A CA1C9C88 D5530079 D5D0A901 6964D143 6B01992A 7DEC68F1 86C51BD4 90EC2354 A258CBE6 AEE54B8F B84C6FDB B9D57393 C295156A CA1C9C88 D5530079 D5D0A901
EB3E1439 F7167369) EB3E1439 F7167369)
"(CTYPE INTERSECTION-TYPE UNION-TYPE COMPOUND-TYPE CHARACTER-SET-TYPE ARRAY-TYPE MEMBER-TYPE HAIRY-TYPE UNKNOWN-TYPE NAMED-TYPE ALIEN-TYPE-TYPE NEGATION-TYPE NUMERIC-UNION-TYPE CONS-TYPE ARGS-TYPE FUN-DESIGNATOR-TYPE FUN-TYPE VALUES-TYPE CONSTANT-TYPE CLASSOID STATIC-CLASSOID STANDARD-CLASSOID STRUCTURE-CLASSOID CONDITION-CLASSOID BUILT-IN-CLASSOID UNDEFINED-CLASSOID SB-C::LVAR SB-C::LAMBDA-VAR CONSTANT)" "(UNDEFINED-CLASSOID BUILT-IN-CLASSOID CONDITION-CLASSOID STRUCTURE-CLASSOID STANDARD-CLASSOID STATIC-CLASSOID CLASSOID CONSTANT-TYPE VALUES-TYPE FUN-TYPE FUN-DESIGNATOR-TYPE ARGS-TYPE CONS-TYPE NUMERIC-UNION-TYPE NEGATION-TYPE ALIEN-TYPE-TYPE NAMED-TYPE UNKNOWN-TYPE HAIRY-TYPE MEMBER-TYPE ARRAY-TYPE CHARACTER-SET-TYPE COMPOUND-TYPE UNION-TYPE INTERSECTION-TYPE CTYPE SB-C::LVAR SB-C::LAMBDA-VAR CONSTANT)"
"((let ((tab #a((16) (unsigned-byte 8) 0 31 0 0 0 0 31 18 13 1 1 1 23 26 18 16))) "((let ((tab #a((16) (unsigned-byte 8) 0 31 0 0 0 0 31 18 13 1 1 1 23 26 18 16)))
(let ((b (& val #xf))) (let ((b (& val #xf)))
(let ((a (>> val 28))) (let ((a (>> val 28)))
@ -907,9 +903,6 @@
(#(2EF3F4BC 60BC6EF6 7F15A357 80D0C591 92FE1EC2 A245F357 AC841474) (#(2EF3F4BC 60BC6EF6 7F15A357 80D0C591 92FE1EC2 A245F357 AC841474)
"(COMPLEX-DOUBLE-FLOAT COMPLEX-SINGLE-FLOAT DOUBLE-FLOAT SINGLE-FLOAT SB-VM:SIGNED-WORD WORD T)" "(COMPLEX-DOUBLE-FLOAT COMPLEX-SINGLE-FLOAT DOUBLE-FLOAT SINGLE-FLOAT SB-VM:SIGNED-WORD WORD T)"
"((& (^ (>> val 4) (>> val 10)) 7))") "((& (^ (>> val 4) (>> val 10)) 7))")
(#(2EF3F4BC 7D057C78 AB2C6780 C079F3D1 DC96355F)
"(SB-BROTHERTREE::UNARY-NODE SB-LOCKLESS::LIST-NODE LAYOUT STRUCTURE-OBJECT T)"
"((& (^ (>> val 1) (>> val 3)) 7))")
(#(2EFA06BE 73D11A29 A3CDD395 B9968386) (#(2EFA06BE 73D11A29 A3CDD395 B9968386)
"(SB-PCL::READER SB-PCL::WRITER BOUNDP MAKUNBOUND)" "(SB-PCL::READER SB-PCL::WRITER BOUNDP MAKUNBOUND)"
"((& (>> val 3) 3))") "((& (>> val 3) 3))")

304
xperfecthash63.lisp-expr
View file

@ -1,27 +1,24 @@
( (
(#(0 1 2 3) (#(0 2 4 6)
"((:NEAREST . 0) (:ZERO . 3) (:POSITIVE-INFINITY . 1) (:NEGATIVE-INFINITY . 2))" "((:NEAREST . 0) (:ZERO . 3) (:POSITIVE-INFINITY . 1) (:NEGATIVE-INFINITY . 2))"
"((& val 3))") "((& (>> val 1) 3))")
(#(0 1 2 F 10 11 15 16) (#(0 2 4 1E 20 22 2A 2C)
"(15 16 21 22 2 17 1 0)" "(15 16 21 22 2 17 1 0)"
"((& (+ (>> val 0) (>> val 2) (>> val 3)) 7))") "((& (+ (>> val 1) (>> val 3) (>> val 4)) 7))")
(#(0 1 2 22 23 24) (#(0 2 4 44 46 48)
"(35 34 2 36 1 0)" "(35 34 2 36 1 0)"
"((& (+ val (>> val 5)) 7))") "((& (+ (>> val 1) (>> val 6)) 7))")
(#(0 1 2 23 24) (#(0 2 A C E 10 1E)
"(35 2 36 1 0)"
"((& val 7))")
(#(0 1 5 6 7 8 F)
"(8 7 0 15 1 5 6)" "(8 7 0 15 1 5 6)"
"((let ((tab #a((4) (unsigned-byte 8) 0 4 7 0))) "((let ((tab #a((4) (unsigned-byte 8) 0 4 7 0)))
(let ((b (& val #x3))) (let ((b (& (>> val 1) #x3)))
(let ((a (>> (<< val 28) 30))) (let ((a (>> (<< val 27) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(0 1 7 8 F) (#(0 2 E 10 1E)
"(15 8 7 1 0)" "(15 8 7 1 0)"
"((let ((tab #a((4) (unsigned-byte 8) 0 4 0 0))) "((let ((tab #a((4) (unsigned-byte 8) 0 4 0 0)))
(let ((b (& val #x3))) (let ((b (& (>> val 1) #x3)))
(let ((a (>> (<< val 28) 30))) (let ((a (>> (<< val 27) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(0 4 5 C D) (#(0 4 5 C D)
"(NIL 13 12 4 5)" "(NIL 13 12 4 5)"
@ -32,12 +29,6 @@
(#(0 732BDD9 6BC2D01D 841FB34E) (#(0 732BDD9 6BC2D01D 841FB34E)
"(NIL :STRINGS :BOTH :SYMBOLS)" "(NIL :STRINGS :BOTH :SYMBOLS)"
"((& (>> val 25) 3))") "((& (>> val 25) 3))")
(#(0 B445B28 1A7E09AF 2EF3F4BC 4A8C210D 72E2CBDA 80D0C591 9BAC0C5C A8892768 AC841474 C6B4780F D0BE7277 E331CAB8 E48D4754)
"(NIL COMPLEX INTEGER MOD SINGLE-FLOAT DOUBLE-FLOAT SIGNED-BYTE UNSIGNED-BYTE FIXNUM BIT CHARACTER STANDARD-CHAR BASE-CHAR T)"
"((let ((tab #a((8) (unsigned-byte 8) 0 13 11 2 0 8 5 3)))
(let ((b (& (>> val 4) #x7)))
(let ((a (>> (<< val 5) 29)))
(^ a (aref tab b))))))")
(#(0 B445B28 1A7E09AF 2EF3F4BC 4A8C210D 72E2CBDA 80D0C591 9BAC0C5C A8892768 AC841474 C6B4780F D0BE7277 E331CAB8 E48D4754 (#(0 B445B28 1A7E09AF 2EF3F4BC 4A8C210D 72E2CBDA 80D0C591 9BAC0C5C A8892768 AC841474 C6B4780F D0BE7277 E331CAB8 E48D4754
FEDA4470) FEDA4470)
"(NIL COMPLEX INTEGER MOD SINGLE-FLOAT DOUBLE-FLOAT SIGNED-BYTE UNSIGNED-BYTE FIXNUM BIT EXTENDED-CHAR CHARACTER STANDARD-CHAR BASE-CHAR T)" "(NIL COMPLEX INTEGER MOD SINGLE-FLOAT DOUBLE-FLOAT SIGNED-BYTE UNSIGNED-BYTE FIXNUM BIT EXTENDED-CHAR CHARACTER STANDARD-CHAR BASE-CHAR T)"
@ -129,196 +120,180 @@
(#(0 C49039A2 DB6D6FD7 E487643D F5B1443E) (#(0 C49039A2 DB6D6FD7 E487643D F5B1443E)
"(SIMPLE-VECTOR VECTOR CONS LIST NIL)" "(SIMPLE-VECTOR VECTOR CONS LIST NIL)"
"((& (+ (>> val 4) (>> val 19)) 7))") "((& (+ (>> val 4) (>> val 19)) 7))")
(#(1 2 3 4 5 6 7 8) (#(2 4 6 8 A C E 10)
"((8 FLOATING-POINT-OVERFLOW) (7 DIVISION-BY-ZERO) (1 DIVISION-BY-ZERO 4294966781) (2 FLOATING-POINT-OVERFLOW 4294966267) (3 FLOATING-POINT-UNDERFLOW 4294965239) (4 FLOATING-POINT-INEXACT 4294963183) (5 FLOATING-POINT-INVALID-OPERATION 4294967038) (6 FLOATING-POINT-EXCEPTION))" "((8 FLOATING-POINT-OVERFLOW) (7 DIVISION-BY-ZERO) (1 DIVISION-BY-ZERO 4294966781) (2 FLOATING-POINT-OVERFLOW 4294966267) (3 FLOATING-POINT-UNDERFLOW 4294965239) (4 FLOATING-POINT-INEXACT 4294963183) (5 FLOATING-POINT-INVALID-OPERATION 4294967038) (6 FLOATING-POINT-EXCEPTION))"
"((& val 7))") "((& (>> val 1) 7))")
(#(1 2 8 10 40) (#(2 4 10 20 80)
"(64 16 8 2 1)" "(64 16 8 2 1)"
"((& (+ (>> val 0) (>> val 1) (>> val 5)) 7))") "((& (+ (>> val 1) (>> val 2) (>> val 6)) 7))")
(#(2 3 5 8 C E) (#(4 6 A 10 18 1C)
"(12 3 2 14 5 8)" "(12 3 2 14 5 8)"
"((let ((tab #a((4) (unsigned-byte 8) 7 0 0 2))) "((let ((tab #a((4) (unsigned-byte 8) 7 0 0 2)))
(let ((b (& val #x3))) (let ((b (& (>> val 1) #x3)))
(let ((a (>> (<< val 28) 30))) (let ((a (>> (<< val 27) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(2 3 5 C E) (#(4 6 A 18 1C)
"(12 3 2 14 5)" "(12 3 2 14 5)"
"((let ((tab #a((4) (unsigned-byte 8) 7 0 0 2))) "((let ((tab #a((4) (unsigned-byte 8) 7 0 0 2)))
(let ((b (& val #x3))) (let ((b (& (>> val 1) #x3)))
(let ((a (>> (<< val 28) 30))) (let ((a (>> (<< val 27) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(2 3 6 8 C E) (#(4 6 C 10 18 1C)
"(12 3 2 14 6 8)" "(12 3 2 14 6 8)"
"((let ((tab #a((4) (unsigned-byte 8) 7 0 0 2))) "((let ((tab #a((4) (unsigned-byte 8) 7 0 0 2)))
(let ((b (& val #x3))) (let ((b (& (>> val 1) #x3)))
(let ((a (>> (<< val 28) 30))) (let ((a (>> (<< val 27) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(2 3 8 9 C E) (#(4 6 10 12 18 1C)
"(12 3 2 14 8 9)" "(12 3 2 14 8 9)"
"((let ((tab #a((4) (unsigned-byte 8) 7 0 0 1))) "((let ((tab #a((4) (unsigned-byte 8) 7 0 0 1)))
(let ((b (& val #x3))) (let ((b (& (>> val 1) #x3)))
(let ((a (>> (<< val 28) 30))) (let ((a (>> (<< val 27) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(2 3 8 C E) (#(4 6 10 18 1C)
"(12 3 2 14 8)" "(12 3 2 14 8)"
"((let ((tab #a((4) (unsigned-byte 8) 3 0 4 1))) "((let ((tab #a((4) (unsigned-byte 8) 3 0 4 1)))
(let ((b (& (>> val 1) #x3))) (let ((b (& (>> val 2) #x3)))
(let ((a (>> (<< val 31) 30))) (let ((a (>> (<< val 30) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(3 4 5 B 13) (#(6 8 A 16 26)
"(5 4 3 11 19)" "(5 4 3 11 19)"
"((let ((tab #a((4) (unsigned-byte 8) 3 4 0 0))) "((let ((tab #a((4) (unsigned-byte 8) 3 4 0 0)))
(let ((b (& val #x3))) (let ((b (& (>> val 1) #x3)))
(let ((a (>> (<< val 27) 30))) (let ((a (>> (<< val 26) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(3 4 5 C 14) (#(6 8 A 18 28)
"(5 4 3 12 20)" "(5 4 3 12 20)"
"((let ((tab #a((4) (unsigned-byte 8) 0 3 0 4))) "((let ((tab #a((4) (unsigned-byte 8) 0 3 0 4)))
(let ((b (& val #x3))) (let ((b (& (>> val 1) #x3)))
(let ((a (>> (<< val 27) 30))) (let ((a (>> (<< val 26) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(3 4 8 12 13 18) (#(6 8 10 24 26 30)
"(19 18 3 24 8 4)" "(19 18 3 24 8 4)"
"((let ((tab #a((4) (unsigned-byte 8) 0 2 7 1))) "((let ((tab #a((4) (unsigned-byte 8) 0 2 7 1)))
(let ((b (>> (<< val 27) 30))) (let ((b (>> (<< val 26) 30)))
(let ((a (& val #x3))) (let ((a (& (>> val 1) #x3)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(3 5 9 12 13 19) (#(6 A 12 24 26 32)
"(19 18 3 25 9 5)" "(19 18 3 25 9 5)"
"((let ((tab #a((4) (unsigned-byte 8) 0 3 7 1))) "((let ((tab #a((4) (unsigned-byte 8) 0 3 7 1)))
(let ((b (>> (<< val 27) 30))) (let ((b (>> (<< val 26) 30)))
(let ((a (& val #x3))) (let ((a (& (>> val 1) #x3)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(3 6 A 12 13) (#(6 C 14 24 26)
"(19 18 3 10 6)" "(19 18 3 10 6)"
"((let ((tab #a((4) (unsigned-byte 8) 0 6 2 0))) "((let ((tab #a((4) (unsigned-byte 8) 0 6 2 0)))
(let ((b (>> (<< val 27) 30))) (let ((b (>> (<< val 26) 30)))
(let ((a (& val #x3))) (let ((a (& (>> val 1) #x3)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(3 7 B 12 13) (#(6 E 16 24 26)
"(19 18 3 11 7)" "(19 18 3 11 7)"
"((let ((tab #a((4) (unsigned-byte 8) 0 0 2 7))) "((let ((tab #a((4) (unsigned-byte 8) 0 5 0 0)))
(+= val #x762d9085) (+= val #xd7f616cc)
(^= val (>> val 4))
(let ((b (& (>> val 1) #x3)))
(let ((a (>> (u32+ val (<< val 26)) 30)))
(^ a (aref tab b))))))")
(#(3 12 13 14 15 17)
"(19 23 20 21 18 3)"
"((let ((tab #a((4) (unsigned-byte 8) 0 7 3 6)))
(+= val #x62765a7a)
(^= val (>> val 4)) (^= val (>> val 4))
(let ((b (& val #x3))) (let ((b (& val #x3)))
(let ((a (>> (u32+ val (<< val 27)) 30))) (let ((a (>> (u32+ val (<< val 26)) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(4 7 8 B 13) (#(6 24 26 28 2A 2E)
"(19 23 20 21 18 3)"
"((let ((tab #a((4) (unsigned-byte 8) 2 0 7 3)))
(+= val #xaf3e5965)
(^= val (>> val 4))
(let ((b (& (>> val 1) #x3)))
(let ((a (>> (u32+ val (<< val 25)) 30)))
(^ a (aref tab b))))))")
(#(8 E 10 16 26)
"(11 19 7 8 4)" "(11 19 7 8 4)"
"((let ((tab #a((4) (unsigned-byte 8) 0 2 7 0))) "((let ((tab #a((4) (unsigned-byte 8) 0 2 7 0)))
(let ((b (>> (<< val 27) 30))) (let ((b (>> (<< val 26) 30)))
(let ((a (& val #x3))) (let ((a (& (>> val 1) #x3)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(8 10 20 40) (#(18 1A 1C 38 3A 3C)
"(8 16 32 64)"
"((let ((b (& (>> val 5) 1)))
(^ (& (>> val 3) 3) b (<< b 1))))")
(#(A 3C 3F 5B 7B)
"(#\\? #\\{ #\\[ #\\< #\\Newline)"
"((let ((tab #a((4) (unsigned-byte 8) 5 0 0 0)))
(let ((b (& val #x3)))
(let ((a (>> (<< val 25) 30)))
(^ a (aref tab b))))))")
(#(C D E 1C 1D 1E)
"(28 12 30 29 14 13)" "(28 12 30 29 14 13)"
"((let ((tab #a((4) (unsigned-byte 8) 4 0 2 4))) "((let ((tab #a((4) (unsigned-byte 8) 0 7 5 2)))
(+= val #xa738b2f0) (+= val #x6e27ea10)
(^= val (>> val 4))
(let ((b (& val #x3)))
(let ((a (>> (u32+ val (<< val 20)) 30)))
(^ a (aref tab b))))))")
(#(F 10 11 1F 20 21)
"(31 15 33 32 17 16)"
"((let ((tab #a((4) (unsigned-byte 8) 0 2 0 4)))
(let ((b (& val #x3)))
(let ((a (>> (<< val 26) 30)))
(^ a (aref tab b))))))")
(#(1C 1D 1E 2A 2B 2C)
"(30 29 28 44 43 42)"
"((& (- val (>> val 4)) 7))")
(#(1F 20 21 2E 2F 30)
"(33 32 31 48 47 46)"
"((let ((tab #a((4) (unsigned-byte 8) 7 2 1 0)))
(let ((b (& val #x3)))
(let ((a (>> (<< val 26) 30)))
(^ a (aref tab b))))))")
(#(23 27 2B 2C 2D 3A 40 56 76)
"(#\\@ #\\: #\\, #\\' #\\# #\\V #\\v #\\- #\\+)"
"((let ((tab #a((8) (unsigned-byte 8) 0 2 0 0 4 0 10 0)))
(+= val #x1679e37f)
(^= val (>> val 4))
(let ((b (& val #x7)))
(let ((a (>> (u32+ val (<< val 25)) 29)))
(^ a (aref tab b))))))")
(#(25 26 28 29 3B 3E 49 54 5F 7C 7E)
"#(#\\I #\\T #\\% #\\& #\\| #\\_ #\\( #\\) #\\; #\\> #\\~)"
"((let ((tab #a((8) (unsigned-byte 8) 11 4 0 2 13 7 0 1)))
(let ((b (& val #x7)))
(let ((a (>> (<< val 25) 29)))
(^ a (aref tab b))))))")
(#(44 45 46 4C 52 53)
"(#\\R #\\L #\\D #\\F #\\S #\\E)"
"((let ((tab #a((4) (unsigned-byte 8) 4 3 0 3)))
(let ((b (& val #x3)))
(let ((a (>> (<< val 27) 30)))
(^ a (aref tab b))))))")
(#(64 65 66 67 F0 F2 F3)
"(243 242 240 103 102 101 100)"
"((& (^ val (>> val 3)) 7))")
(#(89 8D 91 95 99 9D A1 A5 A9 AD B1 B5 B9 BD C1 C5 C9 CD D1 D5 D9 DD E1)
"(137 221 217 205 201 197 193 189 185 181 177 173 169 165 161 157 153 149 145 141 213 209 225)"
"((let ((tab #a((16) (unsigned-byte 8) 0 24 0 13 0 13 0 13 1 21 16 22 16 18 7 21)))
(let ((b (& (>> val 2) #xf)))
(let ((a (>> (<< val 25) 28)))
(^ a (aref tab b))))))")
(#(89 8D 91 95 99 9D A1 A5 A9 AD B1 B5 B9 BD C1 C5 C9 CD D1 D5 D9 DD E1 E5)
"(137 221 217 205 201 197 193 189 185 181 177 173 169 165 161 157 153 149 145 141 213 209 229 225)"
"((let ((tab #a((16) (unsigned-byte 8) 31 24 0 13 0 13 0 13 1 12 16 22 16 18 21 22)))
(let ((b (& (>> val 2) #xf)))
(let ((a (>> (<< val 25) 28)))
(^ a (aref tab b))))))")
(#(89 B1 B5 B9 C9 CD D5 D9)
"(217 205 201 185 181 177 213 137)"
"((let ((tab #a((4) (unsigned-byte 8) 7 0 3 7)))
(+= val #x14650a3e)
(^= val (>> val 4)) (^= val (>> val 4))
(let ((b (& (>> val 1) #x3))) (let ((b (& (>> val 1) #x3)))
(let ((a (>> (u32+ val (<< val 26)) 30))) (let ((a (>> (u32+ val (<< val 21)) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(8D 91 95 9D A5 AD B9 BD C1 C5 CD E1) (#(1E 20 22 3E 40 42)
"(141 225 145 149 157 165 173 185 189 193 197 205)" "(31 15 33 32 17 16)"
"((let ((tab #a((8) (unsigned-byte 8) 12 5 0 0 4 2 5 8))) "((let ((tab #a((4) (unsigned-byte 8) 0 2 0 4)))
(let ((b (& (>> val 2) #x7))) (let ((b (& (>> val 1) #x3)))
(let ((a (>> (<< val 25) 29))) (let ((a (>> (<< val 25) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(8D 91 95 9D A5 AD B9 BD C1 C5 CD E1 E5) (#(38 3A 3C 54 56 58)
"(30 29 28 44 43 42)"
"((& (- (>> val 1) (>> val 5)) 7))")
(#(3E 40 42 5C 5E 60)
"(33 32 31 48 47 46)"
"((let ((tab #a((4) (unsigned-byte 8) 7 2 1 0)))
(let ((b (& (>> val 1) #x3)))
(let ((a (>> (<< val 25) 30)))
(^ a (aref tab b))))))")
(#(C8 CA CC CE 1E0 1E4 1E6)
"(243 242 240 103 102 101 100)"
"((& (^ (>> val 1) (>> val 4)) 7))")
(#(112 11A 122 12A 132 13A 142 14A 152 15A 162 16A 172 17A 182 18A 192 19A 1A2 1AA 1B2 1BA 1C2 1CA)
"(137 221 217 205 201 197 193 189 185 181 177 173 169 165 161 157 153 149 145 141 213 209 229 225)"
"((let ((tab #a((16) (unsigned-byte 8) 31 24 0 13 0 13 0 13 1 12 16 22 16 18 21 22)))
(let ((b (& (>> val 3) #xf)))
(let ((a (>> (<< val 24) 28)))
(^ a (aref tab b))))))")
(#(112 162 16A 172 192 19A 1AA 1B2)
"(217 205 201 185 181 177 213 137)"
"((let ((tab #a((4) (unsigned-byte 8) 0 7 7 0)))
(+= val #x281c4049)
(^= val (>> val 4))
(let ((b (& (>> val 3) #x3)))
(let ((a (>> (u32+ val (<< val 25)) 30)))
(^ a (aref tab b))))))")
(#(11A 122 12A 13A 14A 15A 172 17A 182 18A 19A 1C2 1CA)
"(141 225 229 145 149 157 165 173 185 189 193 197 205)" "(141 225 229 145 149 157 165 173 185 189 193 197 205)"
"((let ((tab #a((8) (unsigned-byte 8) 13 0 0 8 4 1 4 0))) "((let ((tab #a((8) (unsigned-byte 8) 13 0 0 8 4 1 4 0)))
(let ((b (& (>> val 2) #x7))) (let ((b (& (>> val 3) #x7)))
(let ((a (>> (<< val 25) 29))) (let ((a (>> (<< val 24) 29)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(13E 154 1BE 1D4) (#(27C 2A8 37C 3A8)
"(318 446 340 468)" "(318 446 340 468)"
"((& (>> val 6) 3))") "((& (>> val 7) 3))")
(#(1000 2000 4000 6000 8000 A000 C000) (#(A51 3C51 3F51 5B51 7B51)
"(#\\? #\\{ #\\[ #\\< #\\Newline)"
"((let ((tab #a((4) (unsigned-byte 8) 5 0 0 0)))
(let ((b (& (>> val 8) #x3)))
(let ((a (>> (<< val 17) 30)))
(^ a (aref tab b))))))")
(#(2000 4000 8000 C000 10000 14000 18000)
"(4096 40960 49152 32768 24576 16384 8192)" "(4096 40960 49152 32768 24576 16384 8192)"
"((& (>> val 13) 7))") "((& (>> val 14) 7))")
(#(D807 DA10 DA20 DA21 DCE8 DE82 DE83) (#(2351 2751 2B51 2C51 2D51 3A51 4051 5651 7651)
"(#\\@ #\\: #\\, #\\' #\\# #\\V #\\v #\\- #\\+)"
"((let ((tab #a((8) (unsigned-byte 8) 5 0 0 12 4 0 0 0)))
(+= val #x9f330c7b)
(^= val (>> val 4))
(let ((b (& (>> val 8) #x7)))
(let ((a (>> (u32+ val (<< val 15)) 29)))
(^ a (aref tab b))))))")
(#(2551 2651 2851 2951 3B51 3E51 4951 5451 5F51 7C51 7E51)
"#(#\\I #\\T #\\% #\\& #\\| #\\_ #\\( #\\) #\\; #\\> #\\~)"
"((let ((tab #a((8) (unsigned-byte 8) 11 4 0 2 13 7 0 1)))
(let ((b (& (>> val 8) #x7)))
(let ((a (>> (<< val 17) 29)))
(^ a (aref tab b))))))")
(#(4451 4551 4651 4C51 5251 5351)
"(#\\R #\\L #\\D #\\F #\\S #\\E)"
"((let ((tab #a((4) (unsigned-byte 8) 4 3 0 3)))
(let ((b (& (>> val 8) #x3)))
(let ((a (>> (<< val 19) 30)))
(^ a (aref tab b))))))")
(#(1B00E 1B420 1B440 1B442 1B9D0 1BD04 1BD06)
"(55303 56963 56962 56552 55841 55840 55824)" "(55303 56963 56962 56552 55841 55840 55824)"
"((let ((tab #a((4) (unsigned-byte 8) 6 0 2 7))) "((let ((tab #a((4) (unsigned-byte 8) 7 7 0 2)))
(+= val #xcf72a6f6) (+= val #x66e9695)
(+= val (<< val 8)) (+= val (<< val 8))
(^= val (>> val 4)) (^= val (>> val 4))
(let ((b (& (>> val 8) #x3))) (let ((b (& val #x3)))
(let ((a (>> (u32+ val (<< val 13)) 30))) (let ((a (>> (u32+ val (<< val 14)) 30)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(7FD94 39750D5C 42D83FFB 5F84C345 72E2CBDA EBF09BC1) (#(7FD94 39750D5C 42D83FFB 5F84C345 72E2CBDA EBF09BC1)
"(:ALLOW-OTHER-KEYS :Y-TYPE :X-TYPE :SAME-LEAF-NOT-COMPLEX :INTEGER :COMPLEX-P)" "(:ALLOW-OTHER-KEYS :Y-TYPE :X-TYPE :SAME-LEAF-NOT-COMPLEX :INTEGER :COMPLEX-P)"
@ -699,7 +674,7 @@
(#(11131BE7 168C60FD 2D45A4CF 2E16A006 32030766 3AA6053C 44273B23 444AF531 47AA782C 5302EDCF 538C4003 5595EEC3 58D40BEE (#(11131BE7 168C60FD 2D45A4CF 2E16A006 32030766 3AA6053C 44273B23 444AF531 47AA782C 5302EDCF 538C4003 5595EEC3 58D40BEE
5CB9F779 634EB941 646135D9 6964D143 7058717C 7CFF98EB 7F255BE9 83A1A47F 86C51BD4 90EC2354 977E07FB 99AE692E B9D57393 5CB9F779 634EB941 646135D9 6964D143 7058717C 7CFF98EB 7F255BE9 83A1A47F 86C51BD4 90EC2354 977E07FB 99AE692E B9D57393
C7C3FCCE CFFE5CF3 D3774C34 E8C239EF FC8EAFE7) C7C3FCCE CFFE5CF3 D3774C34 E8C239EF FC8EAFE7)
"(CTYPE INTERSECTION-TYPE UNION-TYPE COMPOUND-TYPE CHARACTER-SET-TYPE ARRAY-TYPE MEMBER-TYPE HAIRY-TYPE UNKNOWN-TYPE NAMED-TYPE ALIEN-TYPE-TYPE NEGATION-TYPE NUMERIC-UNION-TYPE CONS-TYPE ARGS-TYPE FUN-DESIGNATOR-TYPE FUN-TYPE VALUES-TYPE CONSTANT-TYPE SIMD-PACK-TYPE SIMD-PACK-256-TYPE CLASSOID STATIC-CLASSOID STANDARD-CLASSOID STRUCTURE-CLASSOID CONDITION-CLASSOID BUILT-IN-CLASSOID UNDEFINED-CLASSOID SB-C::LVAR SB-C::LAMBDA-VAR CONSTANT)" "(UNDEFINED-CLASSOID BUILT-IN-CLASSOID CONDITION-CLASSOID STRUCTURE-CLASSOID STANDARD-CLASSOID STATIC-CLASSOID CLASSOID SIMD-PACK-256-TYPE SIMD-PACK-TYPE CONSTANT-TYPE VALUES-TYPE FUN-TYPE FUN-DESIGNATOR-TYPE ARGS-TYPE CONS-TYPE NUMERIC-UNION-TYPE NEGATION-TYPE ALIEN-TYPE-TYPE NAMED-TYPE UNKNOWN-TYPE HAIRY-TYPE MEMBER-TYPE ARRAY-TYPE CHARACTER-SET-TYPE COMPOUND-TYPE UNION-TYPE INTERSECTION-TYPE CTYPE SB-C::LVAR SB-C::LAMBDA-VAR CONSTANT)"
"((let ((tab #a((16) (unsigned-byte 8) 21 15 22 22 21 7 31 22 11 16 13 21 0 13 13 0))) "((let ((tab #a((16) (unsigned-byte 8) 21 15 22 22 21 7 31 22 11 16 13 21 0 13 13 0)))
(let ((b (& (>> val 9) #xf))) (let ((b (& (>> val 9) #xf)))
(let ((a (>> (<< val 7) 28))) (let ((a (>> (<< val 7) 28)))
@ -707,7 +682,7 @@
(#(11131BE7 168C60FD 2D45A4CF 2E16A006 32030766 3AA6053C 44273B23 444AF531 47AA782C 5302EDCF 538C4003 5595EEC3 58D40BEE (#(11131BE7 168C60FD 2D45A4CF 2E16A006 32030766 3AA6053C 44273B23 444AF531 47AA782C 5302EDCF 538C4003 5595EEC3 58D40BEE
5CB9F779 634EB941 646135D9 6964D143 7058717C 7CFF98EB 7F255BE9 86C51BD4 90EC2354 977E07FB 99AE692E B9D57393 CFFE5CF3 5CB9F779 634EB941 646135D9 6964D143 7058717C 7CFF98EB 7F255BE9 86C51BD4 90EC2354 977E07FB 99AE692E B9D57393 CFFE5CF3
D3774C34 E8C239EF FC8EAFE7) D3774C34 E8C239EF FC8EAFE7)
"(CTYPE INTERSECTION-TYPE UNION-TYPE COMPOUND-TYPE CHARACTER-SET-TYPE ARRAY-TYPE MEMBER-TYPE HAIRY-TYPE UNKNOWN-TYPE NAMED-TYPE ALIEN-TYPE-TYPE NEGATION-TYPE NUMERIC-UNION-TYPE CONS-TYPE ARGS-TYPE FUN-DESIGNATOR-TYPE FUN-TYPE VALUES-TYPE CONSTANT-TYPE CLASSOID STATIC-CLASSOID STANDARD-CLASSOID STRUCTURE-CLASSOID CONDITION-CLASSOID BUILT-IN-CLASSOID UNDEFINED-CLASSOID SB-C::LVAR SB-C::LAMBDA-VAR CONSTANT)" "(UNDEFINED-CLASSOID BUILT-IN-CLASSOID CONDITION-CLASSOID STRUCTURE-CLASSOID STANDARD-CLASSOID STATIC-CLASSOID CLASSOID CONSTANT-TYPE VALUES-TYPE FUN-TYPE FUN-DESIGNATOR-TYPE ARGS-TYPE CONS-TYPE NUMERIC-UNION-TYPE NEGATION-TYPE ALIEN-TYPE-TYPE NAMED-TYPE UNKNOWN-TYPE HAIRY-TYPE MEMBER-TYPE ARRAY-TYPE CHARACTER-SET-TYPE COMPOUND-TYPE UNION-TYPE INTERSECTION-TYPE CTYPE SB-C::LVAR SB-C::LAMBDA-VAR CONSTANT)"
"((let ((tab #a((16) (unsigned-byte 8) 21 17 11 3 15 9 31 20 11 21 16 31 0 13 19 0))) "((let ((tab #a((16) (unsigned-byte 8) 21 17 11 3 15 9 31 20 11 21 16 31 0 13 19 0)))
(let ((b (& (>> val 9) #xf))) (let ((b (& (>> val 9) #xf)))
(let ((a (>> (<< val 7) 28))) (let ((a (>> (<< val 7) 28)))
@ -840,7 +815,7 @@
"(:ALLOW-OTHER-KEYS :KEYS :TYPES :MAX-ARGS :MIN-ARGS)" "(:ALLOW-OTHER-KEYS :KEYS :TYPES :MAX-ARGS :MIN-ARGS)"
"((& (+ val (>> val 25)) 7))") "((& (+ val (>> val 25)) 7))")
(#(168C60FD 5CB9F779 6964D143 977E07FB CFFE5CF3) (#(168C60FD 5CB9F779 6964D143 977E07FB CFFE5CF3)
"(NUMERIC-UNION-TYPE MEMBER-TYPE CHARACTER-SET-TYPE HAIRY-TYPE UNKNOWN-TYPE)" "(NUMERIC-UNION-TYPE MEMBER-TYPE CHARACTER-SET-TYPE UNKNOWN-TYPE HAIRY-TYPE)"
"((& (- (>> val 4) (>> val 21)) 7))") "((& (- (>> val 4) (>> val 21)) 7))")
(#(168D24A7 2788924E 319945CE 34D9EA36 42D83FFB 73D73323 76F042E9 81133902 84F39EEA 8A49CBA5 94DE7EAB A078BD39 AB46FD79 (#(168D24A7 2788924E 319945CE 34D9EA36 42D83FFB 73D73323 76F042E9 81133902 84F39EEA 8A49CBA5 94DE7EAB A078BD39 AB46FD79
B5660628 C246F15A D745DDFD D7B21252 F87BBA2E) B5660628 C246F15A D745DDFD D7B21252 F87BBA2E)
@ -1154,9 +1129,6 @@
(#(2EF3F4BC 60BC6EF6 7F15A357 80D0C591 92FE1EC2 A245F357 AC841474) (#(2EF3F4BC 60BC6EF6 7F15A357 80D0C591 92FE1EC2 A245F357 AC841474)
"(COMPLEX-DOUBLE-FLOAT COMPLEX-SINGLE-FLOAT DOUBLE-FLOAT SINGLE-FLOAT SB-VM:SIGNED-WORD WORD T)" "(COMPLEX-DOUBLE-FLOAT COMPLEX-SINGLE-FLOAT DOUBLE-FLOAT SINGLE-FLOAT SB-VM:SIGNED-WORD WORD T)"
"((& (^ (>> val 4) (>> val 10)) 7))") "((& (^ (>> val 4) (>> val 10)) 7))")
(#(2EF3F4BC 7D057C78 AB2C6780 C079F3D1 DC96355F)
"(SB-BROTHERTREE::UNARY-NODE SB-LOCKLESS::LIST-NODE LAYOUT STRUCTURE-OBJECT T)"
"((& (^ (>> val 1) (>> val 3)) 7))")
(#(2EFA06BE 73D11A29 A3CDD395 B9968386) (#(2EFA06BE 73D11A29 A3CDD395 B9968386)
"(SB-PCL::READER SB-PCL::WRITER BOUNDP MAKUNBOUND)" "(SB-PCL::READER SB-PCL::WRITER BOUNDP MAKUNBOUND)"
"((& (>> val 3) 3))") "((& (>> val 3) 3))")
@ -1452,7 +1424,7 @@
(let ((a (>> (<< val 5) 29))) (let ((a (>> (<< val 5) 29)))
(^ a (aref tab b))))))") (^ a (aref tab b))))))")
(#(4D61368F 58110E7F 6D9A883D 742D4C54 74589D82 897B4656 9F7795D1 CE783BB2 EAA3DA5C EEB4A80D FD11F4B0) (#(4D61368F 58110E7F 6D9A883D 742D4C54 74589D82 897B4656 9F7795D1 CE783BB2 EAA3DA5C EEB4A80D FD11F4B0)
"(SB-C::CRETURN SB-C::CIF SB-C::ENTRY SB-C::MV-COMBINATION CAST SB-C::ARRAY-INDEX-CAST DELAY EXIT SB-C::ENCLOSE SB-C::CDYNAMIC-EXTENT SB-C:JUMP-TABLE)" "(SB-C::CRETURN SB-C::CIF SB-C::ENTRY SB-C::MV-COMBINATION DELAY SB-C::ARRAY-INDEX-CAST CAST EXIT SB-C::ENCLOSE SB-C::CDYNAMIC-EXTENT SB-C:JUMP-TABLE)"
"((let ((tab #a((8) (unsigned-byte 8) 13 5 0 0 5 12 2 0))) "((let ((tab #a((8) (unsigned-byte 8) 13 5 0 0 5 12 2 0)))
(let ((b (& val #x7))) (let ((b (& val #x7)))
(let ((a (>> (<< val 5) 29))) (let ((a (>> (<< val 5) 29)))