quicklisp 2019-08-13quicklisp 2019-10-08
agutilabcl-1.2.1-fasl42-linux-x86
(LOAD agutil FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD agutil OK)
agutilabcl-1.3.0-fasl42-linux-x86
(LOAD agutil FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD agutil OK)
agutilabcl-1.3.1-fasl42-linux-x86
(LOAD agutil FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD agutil OK)
agutilabcl-1.3.2-fasl42-linux-x86
(LOAD agutil FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD agutil OK)
agutilabcl-1.4.0-fasl42-linux-x86
(LOAD agutil FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD agutil OK)
agutilabcl-1.5.0-fasl43-bsd-x64
(LOAD agutil FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD agutil OK)
agutilabcl-1.5.0-fasl43-linux-x86
(LOAD agutil FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD agutil OK)
agutilecl-13.5.1-unknown-linux-i686-bytecode
(LOAD agutil FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized.
(LOAD agutil OK)
agutilecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD agutil CRASH)
(LOAD agutil OK)
agutilecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD agutil CRASH)
(LOAD agutil OK)
agutilecl-16.1.2-unknown-linux-x86-bytecode
(LOAD agutil CRASH)
(LOAD agutil OK)
agutilecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD agutil CRASH)
(LOAD agutil OK)
agutilecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD agutil FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD agutil OK)
arrivalecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD arrival FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD arrival OK)
ecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD arrival CRASH)
(LOAD arrival OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD arrival FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD arrival OK)
ecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD arrival CRASH)
(LOAD arrival OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD arrival FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD arrival OK)
asd-generatorabcl-1.3.0-fasl42-linux-x86
(LOAD asd-generator FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD asd-generator OK)
asd-generatorabcl-1.3.1-fasl42-linux-x86
(LOAD asd-generator FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD asd-generator OK)
asd-generatorabcl-1.3.2-fasl42-linux-x86
(LOAD asd-generator FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD asd-generator OK)
asd-generatorabcl-1.4.0-fasl42-linux-x86
(LOAD asd-generator FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD asd-generator OK)
asd-generatorabcl-1.5.0-fasl43-bsd-x64
(LOAD asd-generator FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD asd-generator OK)
asd-generatorabcl-1.5.0-fasl43-linux-x86
(LOAD asd-generator FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD asd-generator OK)
asd-generatorecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD asd-generator CRASH)
(LOAD asd-generator OK)
asd-generatorecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD asd-generator CRASH)
(LOAD asd-generator OK)
asd-generatorecl-16.1.2-unknown-linux-x86-bytecode
(LOAD asd-generator CRASH)
(LOAD asd-generator OK)
asd-generatorecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD asd-generator CRASH)
(LOAD asd-generator OK)
asd-generatorecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD asd-generator FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD asd-generator OK)
asdf-vizecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD asdf-viz CRASH)
(LOAD asdf-viz OK)
ecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD asdf-viz CRASH)
(LOAD asdf-viz OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD asdf-viz FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD asdf-viz OK)
ecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD asdf-viz CRASH)
(LOAD asdf-viz OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD asdf-viz FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD asdf-viz OK)
authenticated-encryptionecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD authenticated-encryption FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD authenticated-encryption-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD authenticated-encryption OK)
(LOAD authenticated-encryption-test OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD authenticated-encryption FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD authenticated-encryption-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD authenticated-encryption OK)
(LOAD authenticated-encryption-test OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD authenticated-encryption FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD authenticated-encryption-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD authenticated-encryption OK)
(LOAD authenticated-encryption-test OK)
avatar-apiecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD avatar-api FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD avatar-api-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD avatar-api OK)
(LOAD avatar-api-test OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD avatar-api FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD avatar-api-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD avatar-api OK)
(LOAD avatar-api-test OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD avatar-api FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD avatar-api-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD avatar-api OK)
(LOAD avatar-api-test OK)
aws-sign4ecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD aws-sign4 FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD aws-sign4 OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD aws-sign4 FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD aws-sign4 OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD aws-sign4 FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD aws-sign4 OK)
bit-opsabcl-1.2.1-fasl42-linux-x86
(LOAD bit-ops FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD bit-ops OK)
bit-opsabcl-1.3.0-fasl42-linux-x86
(LOAD bit-ops FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD bit-ops.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD bit-ops OK)
(LOAD bit-ops.test OK)
bit-opsabcl-1.3.1-fasl42-linux-x86
(LOAD bit-ops FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD bit-ops.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD bit-ops OK)
(LOAD bit-ops.test OK)
bit-opsabcl-1.3.2-fasl42-linux-x86
(LOAD bit-ops FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD bit-ops.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD bit-ops OK)
(LOAD bit-ops.test OK)
bit-opsabcl-1.4.0-fasl42-linux-x86
(LOAD bit-ops FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD bit-ops.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD bit-ops OK)
(LOAD bit-ops.test OK)
bit-opsabcl-1.5.0-fasl43-bsd-x64
(LOAD bit-ops FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD bit-ops.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD bit-ops OK)
(LOAD bit-ops.test OK)
bit-opsabcl-1.5.0-fasl43-linux-x86
(LOAD bit-ops FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD bit-ops.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD bit-ops OK)
(LOAD bit-ops.test OK)
bit-opsecl-13.5.1-unknown-linux-i686-bytecode
(LOAD bit-ops FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized.
(LOAD bit-ops OK)
bit-opsecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD bit-ops CRASH)
(LOAD bit-ops.test CRASH)
(LOAD bit-ops OK)
(LOAD bit-ops.test OK)
bit-opsecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD bit-ops CRASH)
(LOAD bit-ops.test CRASH)
(LOAD bit-ops OK)
(LOAD bit-ops.test OK)
bit-opsecl-16.1.2-unknown-linux-x86-bytecode
(LOAD bit-ops CRASH)
(LOAD bit-ops.test CRASH)
(LOAD bit-ops OK)
(LOAD bit-ops.test OK)
bit-opsecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD bit-ops CRASH)
(LOAD bit-ops.test CRASH)
(LOAD bit-ops OK)
(LOAD bit-ops.test OK)
bit-opsecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD bit-ops FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD bit-ops.test FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD bit-ops OK)
(LOAD bit-ops.test OK)
canecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD can-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD can-test OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD can-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD can-test OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD can-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD can-test OK)
cavemanabcl-1.3.0-fasl42-linux-x86
(LOAD caveman-test OK)
(LOAD caveman-test FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
abcl-1.3.1-fasl42-linux-x86
(LOAD caveman OK)
(LOAD caveman-middleware-dbimanager OK)
(LOAD caveman-test OK)
(LOAD caveman2-db OK)
(LOAD caveman FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
(LOAD caveman-middleware-dbimanager FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
(LOAD caveman-test FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
(LOAD caveman2-db FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
cerberusecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cerberus FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cerberus OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cerberus FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cerberus OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cerberus FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cerberus OK)
chameleonabcl-1.2.1-fasl42-linux-x86
(LOAD chameleon FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD chameleon OK)
abcl-1.3.0-fasl42-linux-x86
(LOAD chameleon FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD chameleon OK)
abcl-1.3.1-fasl42-linux-x86
(LOAD chameleon FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD chameleon OK)
abcl-1.3.2-fasl42-linux-x86
(LOAD chameleon FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD chameleon OK)
abcl-1.4.0-fasl42-linux-x86
(LOAD chameleon FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD chameleon OK)
abcl-1.5.0-fasl43-bsd-x64
(LOAD chameleon FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD chameleon OK)
abcl-1.5.0-fasl43-linux-x86
(LOAD chameleon FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD chameleon OK)
chirpecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD chirp FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD chirp-core FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD chirp-drakma FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD chirp OK)
(LOAD chirp-core OK)
(LOAD chirp-drakma OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD chirp FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD chirp-core FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD chirp-drakma FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD chirp OK)
(LOAD chirp-core OK)
(LOAD chirp-drakma OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD chirp FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD chirp-core FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD chirp-drakma FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD chirp OK)
(LOAD chirp-core OK)
(LOAD chirp-drakma OK)
cl+sslccl-1.11-r16702m-f101-linux-arm
(WHOLE-TEST-SUITE TIMEOUT)
(WHOLE-TEST-SUITE OK)
ecl-16.1.2-unknown-linux-x86-lisp-to-c
(WHOLE-TEST-SUITE FAIL) SB-BSD-SOCKETS::TRY-AGAIN-ERROR : Name service error in "get-host-by-name": TRY_AGAIN (No such file or directory)
(WHOLE-TEST-SUITE OK)
cl-azureecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-azure FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-azure OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-azure FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-azure OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-azure FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-azure OK)
cl-bip39ecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-bip39 FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-bip39 OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-bip39 FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-bip39 OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-bip39 FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-bip39 OK)
cl-bsonacl-10.0-linux-x86
(LOAD cl-bson OK)
(LOAD cl-bson-test OK)
(LOAD cl-bson FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
(LOAD cl-bson-test FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-bsonacl-10.0s-linux-x86
(LOAD cl-bson OK)
(LOAD cl-bson-test OK)
(LOAD cl-bson FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
(LOAD cl-bson-test FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-bsonacl-10.1-linux-x86
(LOAD cl-bson OK)
(LOAD cl-bson-test OK)
(LOAD cl-bson FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
(LOAD cl-bson-test FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-bsonacl-10.1s-linux-x86
(LOAD cl-bson OK)
(LOAD cl-bson-test OK)
(LOAD cl-bson FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
(LOAD cl-bson-test FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-bsonccl-1.10-r16196-f96-linux-x86
(LOAD cl-bson OK)
(LOAD cl-bson-test OK)
(LOAD cl-bson CRASH)
(LOAD cl-bson-test CRASH)
cl-bsonccl-1.11-5-rv1.11.5-f96-linux-x86
(LOAD cl-bson OK)
(LOAD cl-bson-test OK)
(LOAD cl-bson CRASH)
(LOAD cl-bson-test CRASH)
cl-bsonccl-1.11-r16635-f96-linux-x86
(LOAD cl-bson OK)
(LOAD cl-bson-test OK)
(LOAD cl-bson CRASH)
(LOAD cl-bson-test CRASH)
cl-bsonccl-1.11-r16702m-f101-linux-arm
(LOAD cl-bson OK)
(LOAD cl-bson-test OK)
(LOAD cl-bson CRASH)
(LOAD cl-bson-test CRASH)
cl-disqueacl-10.0-linux-x86
(LOAD cl-disque OK)
(LOAD cl-disque-test OK)
(LOAD cl-disque FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
(LOAD cl-disque-test FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-disqueacl-10.0m-linux-x86
(LOAD cl-disque OK)
(LOAD cl-disque FAIL) common-lisp:simple-error : Can't abbreviate and-it
cl-disqueacl-10.0ms-linux-x86
(LOAD cl-disque OK)
(LOAD cl-disque FAIL) common-lisp:simple-error : Can't abbreviate and-it
cl-disqueacl-10.0s-linux-x86
(LOAD cl-disque OK)
(LOAD cl-disque-test OK)
(LOAD cl-disque FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
(LOAD cl-disque-test FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-disqueacl-10.1-linux-x86
(LOAD cl-disque OK)
(LOAD cl-disque-test OK)
(LOAD cl-disque FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
(LOAD cl-disque-test FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-disqueacl-10.1m-linux-x86
(LOAD cl-disque OK)
(LOAD cl-disque FAIL) common-lisp:simple-error : Can't abbreviate and-it
cl-disqueacl-10.1ms-linux-x86
(LOAD cl-disque OK)
(LOAD cl-disque FAIL) common-lisp:simple-error : Can't abbreviate and-it
cl-disqueacl-10.1s-linux-x86
(LOAD cl-disque OK)
(LOAD cl-disque-test OK)
(LOAD cl-disque FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
(LOAD cl-disque-test FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-disqueccl-1.10-r16196-f96-linux-x86
(LOAD cl-disque OK)
(LOAD cl-disque-test OK)
(LOAD cl-disque CRASH)
(LOAD cl-disque-test CRASH)
cl-disqueccl-1.11-5-rv1.11.5-f96-linux-x86
(LOAD cl-disque OK)
(LOAD cl-disque-test OK)
(LOAD cl-disque CRASH)
(LOAD cl-disque-test CRASH)
cl-disqueccl-1.11-r16635-f96-linux-x86
(LOAD cl-disque OK)
(LOAD cl-disque-test OK)
(LOAD cl-disque CRASH)
(LOAD cl-disque-test CRASH)
cl-disqueccl-1.11-r16702m-f101-linux-arm
(LOAD cl-disque OK)
(LOAD cl-disque-test OK)
(LOAD cl-disque CRASH)
(LOAD cl-disque-test CRASH)
cl-dotenvecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-dotenv FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD cl-dotenv-test FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD cl-dotenv OK)
(LOAD cl-dotenv-test OK)
ecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD cl-dotenv CRASH)
(LOAD cl-dotenv-test CRASH)
(LOAD cl-dotenv OK)
(LOAD cl-dotenv-test OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-dotenv CRASH)
(LOAD cl-dotenv-test FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD cl-dotenv OK)
(LOAD cl-dotenv-test OK)
ecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD cl-dotenv CRASH)
(LOAD cl-dotenv-test CRASH)
(LOAD cl-dotenv OK)
(LOAD cl-dotenv-test OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-dotenv FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD cl-dotenv-test FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD cl-dotenv OK)
(LOAD cl-dotenv-test OK)
cl-dropboxecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-dropbox FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-dropbox OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-dropbox FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-dropbox OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-dropbox FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-dropbox OK)
cl-feedparserecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-feedparser CRASH)
(LOAD cl-feedparser FAIL) COMMON-LISP:SIMPLE-ERROR : (FUNCTION (T) BOOLEAN) is not a valid type specifier.
ecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD cl-feedparser CRASH)
(LOAD cl-feedparser-tests CRASH)
(LOAD cl-feedparser OK)
(LOAD cl-feedparser-tests OK)
ecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD cl-feedparser CRASH)
(LOAD cl-feedparser-tests CRASH)
(LOAD cl-feedparser OK)
(LOAD cl-feedparser-tests OK)
cl-fixturesacl-10.0-linux-x86
(LOAD cl-fixtures-test OK)
(LOAD cl-fixtures-test FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-fixturesacl-10.0s-linux-x86
(LOAD cl-fixtures-test OK)
(LOAD cl-fixtures-test FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-fixturesacl-10.1-linux-x86
(LOAD cl-fixtures-test OK)
(LOAD cl-fixtures-test FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-fixturesacl-10.1s-linux-x86
(LOAD cl-fixtures-test OK)
(LOAD cl-fixtures-test FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-fixturesccl-1.10-r16196-f96-linux-x86
(LOAD cl-fixtures-test OK)
(LOAD cl-fixtures-test CRASH)
cl-fixturesccl-1.11-5-rv1.11.5-f96-linux-x86
(LOAD cl-fixtures-test OK)
(LOAD cl-fixtures-test CRASH)
cl-fixturesccl-1.11-r16635-f96-linux-x86
(LOAD cl-fixtures-test OK)
(LOAD cl-fixtures-test CRASH)
cl-fixturesccl-1.11-r16702m-f101-linux-arm
(LOAD cl-fixtures-test OK)
(LOAD cl-fixtures-test CRASH)
cl-formsecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-forms FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-forms.demo FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-forms.djula FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-forms.test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-forms.who FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-forms OK)
(LOAD cl-forms.demo OK)
(LOAD cl-forms.djula OK)
(LOAD cl-forms.test OK)
(LOAD cl-forms.who OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-forms FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-forms.demo FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-forms.djula FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-forms.test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-forms.who FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-forms OK)
(LOAD cl-forms.demo OK)
(LOAD cl-forms.djula OK)
(LOAD cl-forms.test OK)
(LOAD cl-forms.who OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-forms FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-forms.demo FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-forms.djula FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-forms.test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-forms.who FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-forms OK)
(LOAD cl-forms.demo OK)
(LOAD cl-forms.djula OK)
(LOAD cl-forms.test OK)
(LOAD cl-forms.who OK)
cl-growlecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-growl FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-growl OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-growl FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-growl OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-growl FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-growl OK)
cl-ksuidecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-ksuid FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-ksuid OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-ksuid FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-ksuid OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-ksuid FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-ksuid OK)
cl-mongoecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-mongo FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-mongo OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-mongo FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-mongo OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-mongo FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-mongo OK)
cl-notebookacl-10.0-linux-x86
(LOAD cl-notebook OK)
(LOAD cl-notebook FAIL) COMMON-LISP:READER-ERROR : Package "ASDF/SESSION" not found. [file position = 9567]
cl-notebookacl-10.0m-linux-x86
(LOAD cl-notebook OK)
(LOAD cl-notebook FAIL) common-lisp:reader-error : Package "asdf/session" not found. [file position = 9567]
cl-notebookacl-10.0ms-linux-x86
(LOAD cl-notebook OK)
(LOAD cl-notebook FAIL) common-lisp:reader-error : Package "asdf/session" not found. [file position = 9567]
cl-notebookacl-10.0s-linux-x86
(LOAD cl-notebook OK)
(LOAD cl-notebook FAIL) COMMON-LISP:READER-ERROR : Package "ASDF/SESSION" not found. [file position = 9567]
cl-notebookacl-10.1-linux-x86
(LOAD cl-notebook OK)
(LOAD cl-notebook FAIL) COMMON-LISP:READER-ERROR : Package "ASDF/SESSION" not found. [file position = 9567]
cl-notebookacl-10.1m-linux-x86
(LOAD cl-notebook OK)
(LOAD cl-notebook FAIL) common-lisp:reader-error : Package "asdf/session" not found. [file position = 9567]
cl-notebookacl-10.1ms-linux-x86
(LOAD cl-notebook OK)
(LOAD cl-notebook FAIL) common-lisp:reader-error : Package "asdf/session" not found. [file position = 9567]
cl-notebookacl-10.1s-linux-x86
(LOAD cl-notebook OK)
(LOAD cl-notebook FAIL) COMMON-LISP:READER-ERROR : Package "ASDF/SESSION" not found. [file position = 9567]
cl-notebookccl-1.10-r16196-f96-linux-x86
(LOAD cl-notebook OK)
(LOAD cl-notebook FAIL) CCL::NO-SUCH-PACKAGE : There is no package named "ASDF/SESSION" .
cl-notebookccl-1.11-5-rv1.11.5-f96-linux-x86
(LOAD cl-notebook OK)
(LOAD cl-notebook FAIL) CCL::NO-SUCH-PACKAGE : There is no package named "ASDF/SESSION" .
cl-notebookccl-1.11-r16635-f96-linux-x86
(LOAD cl-notebook OK)
(LOAD cl-notebook FAIL) CCL::NO-SUCH-PACKAGE : There is no package named "ASDF/SESSION" .
cl-notebookccl-1.11-r16702m-f101-linux-arm
(LOAD cl-notebook OK)
(LOAD cl-notebook FAIL) CCL::NO-SUCH-PACKAGE : There is no package named "ASDF/SESSION" .
cl-notebooksbcl-1.2.6-linux-x86
(LOAD cl-notebook OK)
(LOAD cl-notebook FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "qlot/util" "lisp">
cl-notebooksbcl-1.3.12-linux-x86
(LOAD cl-notebook OK)
(LOAD cl-notebook FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "qlot/util" "lisp">
cl-notebooksbcl-1.3.17-linux-x86
(LOAD cl-notebook OK)
(LOAD cl-notebook FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "qlot/util" "lisp">
cl-notebooksbcl-1.3.20-linux-x86
(LOAD cl-notebook OK)
(LOAD cl-notebook FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "qlot/util" "lisp">
cl-notebooksbcl-1.3.21-linux-x86
(LOAD cl-notebook OK)
(LOAD cl-notebook FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "qlot/util" "lisp">
cl-oauthecl-16.0.0-98fc12d3-linux-i686-bytecode
(WHOLE-TEST-SUITE FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-oauth FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(WHOLE-TEST-SUITE OK)
(LOAD cl-oauth OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(WHOLE-TEST-SUITE FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-oauth FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(WHOLE-TEST-SUITE OK)
(LOAD cl-oauth OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-oauth FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-oauth OK)
cl-ohmacl-10.0-linux-x86
(LOAD cl-ohm OK)
(LOAD cl-ohm FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-ohmacl-10.0s-linux-x86
(LOAD cl-ohm OK)
(LOAD cl-ohm FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-ohmacl-10.1-linux-x86
(LOAD cl-ohm OK)
(LOAD cl-ohm FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-ohmacl-10.1s-linux-x86
(LOAD cl-ohm OK)
(LOAD cl-ohm FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-ohmccl-1.10-r16196-f96-linux-x86
(LOAD cl-ohm OK)
(LOAD cl-ohm CRASH)
cl-ohmccl-1.11-5-rv1.11.5-f96-linux-x86
(LOAD cl-ohm OK)
(LOAD cl-ohm CRASH)
cl-ohmccl-1.11-r16635-f96-linux-x86
(LOAD cl-ohm OK)
(LOAD cl-ohm CRASH)
cl-ohmccl-1.11-r16702m-f101-linux-arm
(LOAD cl-ohm OK)
(LOAD cl-ohm CRASH)
cl-one-time-passwordsecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-one-time-passwords FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-one-time-passwords-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-one-time-passwords OK)
(LOAD cl-one-time-passwords-test OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-one-time-passwords FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-one-time-passwords-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-one-time-passwords OK)
(LOAD cl-one-time-passwords-test OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-one-time-passwords FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-one-time-passwords-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-one-time-passwords OK)
(LOAD cl-one-time-passwords-test OK)
cl-parser-combinatorsecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD parser-combinators-tests CRASH)
(LOAD parser-combinators-tests OK)
cl-passecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-pass FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-pass-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-pass OK)
(LOAD cl-pass-test OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-pass FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-pass-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-pass OK)
(LOAD cl-pass-test OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-pass FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-pass-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-pass OK)
(LOAD cl-pass-test OK)
cl-postgres-plus-uuidecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-postgres-plus-uuid FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-postgres-plus-uuid OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-postgres-plus-uuid FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-postgres-plus-uuid OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-postgres-plus-uuid FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-postgres-plus-uuid OK)
cl-prolog2ecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-prolog2 FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2.bprolog FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2.bprolog.test CRASH)
(LOAD cl-prolog2.gprolog CRASH)
(LOAD cl-prolog2.gprolog.test FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2.swi CRASH)
(LOAD cl-prolog2.swi.test FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2.test CRASH)
(LOAD cl-prolog2.xsb FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2.xsb.test CRASH)
(LOAD cl-prolog2.yap FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2.yap.test CRASH)
(LOAD cl-prolog2 OK)
(LOAD cl-prolog2.bprolog OK)
(LOAD cl-prolog2.bprolog.test OK)
(LOAD cl-prolog2.gprolog OK)
(LOAD cl-prolog2.gprolog.test OK)
(LOAD cl-prolog2.swi OK)
(LOAD cl-prolog2.swi.test OK)
(LOAD cl-prolog2.test OK)
(LOAD cl-prolog2.xsb OK)
(LOAD cl-prolog2.xsb.test OK)
(LOAD cl-prolog2.yap OK)
(LOAD cl-prolog2.yap.test OK)
ecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD cl-prolog2 CRASH)
(LOAD cl-prolog2.bprolog CRASH)
(LOAD cl-prolog2.bprolog.test CRASH)
(LOAD cl-prolog2.gprolog CRASH)
(LOAD cl-prolog2.gprolog.test CRASH)
(LOAD cl-prolog2.swi CRASH)
(LOAD cl-prolog2.swi.test CRASH)
(LOAD cl-prolog2.test CRASH)
(LOAD cl-prolog2.xsb CRASH)
(LOAD cl-prolog2.xsb.test CRASH)
(LOAD cl-prolog2.yap CRASH)
(LOAD cl-prolog2.yap.test CRASH)
(LOAD cl-prolog2 OK)
(LOAD cl-prolog2.bprolog OK)
(LOAD cl-prolog2.bprolog.test OK)
(LOAD cl-prolog2.gprolog OK)
(LOAD cl-prolog2.gprolog.test OK)
(LOAD cl-prolog2.swi OK)
(LOAD cl-prolog2.swi.test OK)
(LOAD cl-prolog2.test OK)
(LOAD cl-prolog2.xsb OK)
(LOAD cl-prolog2.xsb.test OK)
(LOAD cl-prolog2.yap OK)
(LOAD cl-prolog2.yap.test OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-prolog2 CRASH)
(LOAD cl-prolog2.bprolog CRASH)
(LOAD cl-prolog2.bprolog.test FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2.gprolog FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2.gprolog.test CRASH)
(LOAD cl-prolog2.swi CRASH)
(LOAD cl-prolog2.swi.test FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2.test CRASH)
(LOAD cl-prolog2.xsb CRASH)
(LOAD cl-prolog2.xsb.test FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2.yap CRASH)
(LOAD cl-prolog2.yap.test FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2 OK)
(LOAD cl-prolog2.bprolog OK)
(LOAD cl-prolog2.bprolog.test OK)
(LOAD cl-prolog2.gprolog OK)
(LOAD cl-prolog2.gprolog.test OK)
(LOAD cl-prolog2.swi OK)
(LOAD cl-prolog2.swi.test OK)
(LOAD cl-prolog2.test OK)
(LOAD cl-prolog2.xsb OK)
(LOAD cl-prolog2.xsb.test OK)
(LOAD cl-prolog2.yap OK)
(LOAD cl-prolog2.yap.test OK)
ecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD cl-prolog2 CRASH)
(LOAD cl-prolog2.bprolog CRASH)
(LOAD cl-prolog2.bprolog.test CRASH)
(LOAD cl-prolog2.gprolog CRASH)
(LOAD cl-prolog2.gprolog.test CRASH)
(LOAD cl-prolog2.swi CRASH)
(LOAD cl-prolog2.swi.test CRASH)
(LOAD cl-prolog2.test CRASH)
(LOAD cl-prolog2.xsb CRASH)
(LOAD cl-prolog2.xsb.test CRASH)
(LOAD cl-prolog2.yap CRASH)
(LOAD cl-prolog2.yap.test CRASH)
(LOAD cl-prolog2 OK)
(LOAD cl-prolog2.bprolog OK)
(LOAD cl-prolog2.bprolog.test OK)
(LOAD cl-prolog2.gprolog OK)
(LOAD cl-prolog2.gprolog.test OK)
(LOAD cl-prolog2.swi OK)
(LOAD cl-prolog2.swi.test OK)
(LOAD cl-prolog2.test OK)
(LOAD cl-prolog2.xsb OK)
(LOAD cl-prolog2.xsb.test OK)
(LOAD cl-prolog2.yap OK)
(LOAD cl-prolog2.yap.test OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-prolog2 FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2.bprolog FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2.bprolog.test FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2.gprolog FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2.gprolog.test FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2.swi FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2.swi.test FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2.test FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2.xsb FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2.xsb.test FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2.yap FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2.yap.test FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD cl-prolog2 OK)
(LOAD cl-prolog2.bprolog OK)
(LOAD cl-prolog2.bprolog.test OK)
(LOAD cl-prolog2.gprolog OK)
(LOAD cl-prolog2.gprolog.test OK)
(LOAD cl-prolog2.swi OK)
(LOAD cl-prolog2.swi.test OK)
(LOAD cl-prolog2.test OK)
(LOAD cl-prolog2.xsb OK)
(LOAD cl-prolog2.xsb.test OK)
(LOAD cl-prolog2.yap OK)
(LOAD cl-prolog2.yap.test OK)
cl-redisacl-10.0-linux-x86
(LOAD cl-redis OK)
(LOAD cl-redis FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-redisacl-10.0m-linux-x86
(LOAD cl-redis OK)
(LOAD cl-redis FAIL) common-lisp:simple-error : Can't abbreviate and-it
cl-redisacl-10.0ms-linux-x86
(LOAD cl-redis OK)
(LOAD cl-redis FAIL) common-lisp:simple-error : Can't abbreviate and-it
cl-redisacl-10.0s-linux-x86
(LOAD cl-redis OK)
(LOAD cl-redis FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-redisacl-10.1-linux-x86
(LOAD cl-redis OK)
(LOAD cl-redis FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-redisacl-10.1m-linux-x86
(LOAD cl-redis OK)
(LOAD cl-redis FAIL) common-lisp:simple-error : Can't abbreviate and-it
cl-redisacl-10.1ms-linux-x86
(LOAD cl-redis OK)
(LOAD cl-redis FAIL) common-lisp:simple-error : Can't abbreviate and-it
cl-redisacl-10.1s-linux-x86
(LOAD cl-redis OK)
(LOAD cl-redis FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-redisccl-1.10-r16196-f96-linux-x86
(LOAD cl-redis OK)
(LOAD cl-redis CRASH)
cl-redisccl-1.11-5-rv1.11.5-f96-linux-x86
(LOAD cl-redis OK)
(LOAD cl-redis CRASH)
cl-redisccl-1.11-r16635-f96-linux-x86
(LOAD cl-redis OK)
(LOAD cl-redis CRASH)
cl-redisccl-1.11-r16702m-f101-linux-arm
(LOAD cl-redis OK)
(LOAD cl-redis CRASH)
cl-rrtabcl-1.4.0-fasl42-linux-x86
(LOAD cl-rrt.test OK)
(LOAD cl-rrt.test TIMEOUT)
abcl-1.5.0-fasl43-bsd-x64
(LOAD cl-rrt.test TIMEOUT)
(LOAD cl-rrt.test OK)
ecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-rrt.benchmark OK)
(LOAD cl-rrt.benchmark TIMEOUT)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-rrt.test OK)
(LOAD cl-rrt.test TIMEOUT)
cl-s3ecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-s3 FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-s3 OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-s3 FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-s3 OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-s3 FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-s3 OK)
cl-saslecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-sasl FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-sasl OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-sasl FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-sasl OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-sasl FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-sasl OK)
cl-satabcl-1.2.1-fasl42-linux-x86
(LOAD cl-sat FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD cl-sat OK)
cl-satabcl-1.3.0-fasl42-linux-x86
(LOAD cl-sat FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD cl-sat.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD cl-sat OK)
(LOAD cl-sat.test OK)
cl-satabcl-1.3.1-fasl42-linux-x86
(LOAD cl-sat FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD cl-sat.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD cl-sat OK)
(LOAD cl-sat.test OK)
cl-satabcl-1.3.2-fasl42-linux-x86
(LOAD cl-sat FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD cl-sat.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD cl-sat OK)
(LOAD cl-sat.test OK)
cl-satabcl-1.4.0-fasl42-linux-x86
(LOAD cl-sat FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD cl-sat.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD cl-sat OK)
(LOAD cl-sat.test OK)
cl-satabcl-1.5.0-fasl43-bsd-x64
(LOAD cl-sat FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD cl-sat.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD cl-sat OK)
(LOAD cl-sat.test OK)
cl-satabcl-1.5.0-fasl43-linux-x86
(LOAD cl-sat FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD cl-sat.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD cl-sat OK)
(LOAD cl-sat.test OK)
cl-satecl-13.5.1-unknown-linux-i686-bytecode
(LOAD cl-sat FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized.
(LOAD cl-sat OK)
cl-satecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-sat CRASH)
(LOAD cl-sat.test CRASH)
(LOAD cl-sat OK)
(LOAD cl-sat.test OK)
cl-satecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD cl-sat CRASH)
(LOAD cl-sat.test CRASH)
(LOAD cl-sat OK)
(LOAD cl-sat.test OK)
cl-satecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-sat CRASH)
(LOAD cl-sat.test FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD cl-sat OK)
(LOAD cl-sat.test OK)
cl-satecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD cl-sat CRASH)
(LOAD cl-sat.test CRASH)
(LOAD cl-sat OK)
(LOAD cl-sat.test OK)
cl-satecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-sat FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD cl-sat.test FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD cl-sat OK)
(LOAD cl-sat.test OK)
cl-sat.glucoseecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-sat.glucose CRASH)
(LOAD cl-sat.glucose.test CRASH)
(LOAD cl-sat.glucose FAIL) COMMON-LISP:SIMPLE-ERROR : none of the installation options are available! Supported packaging systems: (APT DNF YUM PACMAN YAOURT BREW MACPORTS FINK CHOCO)
(LOAD cl-sat.glucose.test FAIL) COMMON-LISP:SIMPLE-ERROR : none of the installation options are available! Supported packaging systems: (APT DNF YUM PACMAN YAOURT BREW MACPORTS FINK CHOCO)
ecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD cl-sat.glucose CRASH)
(LOAD cl-sat.glucose.test CRASH)
(LOAD cl-sat.glucose FAIL) COMMON-LISP:SIMPLE-ERROR : none of the installation options are available! Supported packaging systems: (APT DNF YUM PACMAN YAOURT BREW MACPORTS FINK CHOCO)
(LOAD cl-sat.glucose.test FAIL) COMMON-LISP:SIMPLE-ERROR : none of the installation options are available! Supported packaging systems: (APT DNF YUM PACMAN YAOURT BREW MACPORTS FINK CHOCO)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-sat.glucose CRASH)
(LOAD cl-sat.glucose FAIL) COMMON-LISP:SIMPLE-ERROR : none of the installation options are available! Supported packaging systems: (APT DNF YUM PACMAN YAOURT BREW MACPORTS FINK CHOCO)
ecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD cl-sat.glucose CRASH)
(LOAD cl-sat.glucose.test CRASH)
(LOAD cl-sat.glucose FAIL) COMMON-LISP:SIMPLE-ERROR : none of the installation options are available! Supported packaging systems: (APT DNF YUM PACMAN YAOURT BREW MACPORTS FINK CHOCO)
(LOAD cl-sat.glucose.test FAIL) COMMON-LISP:SIMPLE-ERROR : none of the installation options are available! Supported packaging systems: (APT DNF YUM PACMAN YAOURT BREW MACPORTS FINK CHOCO)
cl-sat.minisatecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-sat.minisat CRASH)
(LOAD cl-sat.minisat.test CRASH)
(LOAD cl-sat.minisat FAIL) COMMON-LISP:SIMPLE-ERROR : none of the installation options are available! Supported packaging systems: (APT DNF YUM PACMAN YAOURT BREW MACPORTS FINK CHOCO)
(LOAD cl-sat.minisat.test FAIL) COMMON-LISP:SIMPLE-ERROR : none of the installation options are available! Supported packaging systems: (APT DNF YUM PACMAN YAOURT BREW MACPORTS FINK CHOCO)
ecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD cl-sat.minisat CRASH)
(LOAD cl-sat.minisat.test CRASH)
(LOAD cl-sat.minisat FAIL) COMMON-LISP:SIMPLE-ERROR : none of the installation options are available! Supported packaging systems: (APT DNF YUM PACMAN YAOURT BREW MACPORTS FINK CHOCO)
(LOAD cl-sat.minisat.test FAIL) COMMON-LISP:SIMPLE-ERROR : none of the installation options are available! Supported packaging systems: (APT DNF YUM PACMAN YAOURT BREW MACPORTS FINK CHOCO)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-sat.minisat CRASH)
(LOAD cl-sat.minisat.test CRASH)
(LOAD cl-sat.minisat FAIL) COMMON-LISP:SIMPLE-ERROR : none of the installation options are available! Supported packaging systems: (APT DNF YUM PACMAN YAOURT BREW MACPORTS FINK CHOCO)
(LOAD cl-sat.minisat.test FAIL) COMMON-LISP:SIMPLE-ERROR : none of the installation options are available! Supported packaging systems: (APT DNF YUM PACMAN YAOURT BREW MACPORTS FINK CHOCO)
ecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD cl-sat.minisat CRASH)
(LOAD cl-sat.minisat.test CRASH)
(LOAD cl-sat.minisat FAIL) COMMON-LISP:SIMPLE-ERROR : none of the installation options are available! Supported packaging systems: (APT DNF YUM PACMAN YAOURT BREW MACPORTS FINK CHOCO)
(LOAD cl-sat.minisat.test FAIL) COMMON-LISP:SIMPLE-ERROR : none of the installation options are available! Supported packaging systems: (APT DNF YUM PACMAN YAOURT BREW MACPORTS FINK CHOCO)
cl-scramecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-scram FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-scram OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-scram FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-scram OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-scram FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-scram OK)
cl-scribdecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-scribd FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-scribd OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-scribd FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-scribd OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-scribd FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-scribd OK)
cl-shlexecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD shlex FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD shlex OK)
ecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD shlex CRASH)
(LOAD shlex FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<cl-source-file "shlex" "shlex">
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD shlex FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD shlex OK)
ecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD shlex CRASH)
(LOAD shlex OK)
cl-ssdbacl-10.0-linux-x86
(LOAD cl-ssdb OK)
(LOAD cl-ssdb-test OK)
(LOAD cl-ssdb FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
(LOAD cl-ssdb-test FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-ssdbacl-10.0m-linux-x86
(LOAD cl-ssdb OK)
(LOAD cl-ssdb FAIL) common-lisp:simple-error : Can't abbreviate and-it
cl-ssdbacl-10.0ms-linux-x86
(LOAD cl-ssdb OK)
(LOAD cl-ssdb FAIL) common-lisp:simple-error : Can't abbreviate and-it
cl-ssdbacl-10.0s-linux-x86
(LOAD cl-ssdb OK)
(LOAD cl-ssdb-test OK)
(LOAD cl-ssdb FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
(LOAD cl-ssdb-test FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-ssdbacl-10.1-linux-x86
(LOAD cl-ssdb OK)
(LOAD cl-ssdb-test OK)
(LOAD cl-ssdb FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
(LOAD cl-ssdb-test FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-ssdbacl-10.1m-linux-x86
(LOAD cl-ssdb OK)
(LOAD cl-ssdb FAIL) common-lisp:simple-error : Can't abbreviate and-it
cl-ssdbacl-10.1ms-linux-x86
(LOAD cl-ssdb OK)
(LOAD cl-ssdb FAIL) common-lisp:simple-error : Can't abbreviate and-it
cl-ssdbacl-10.1s-linux-x86
(LOAD cl-ssdb OK)
(LOAD cl-ssdb-test OK)
(LOAD cl-ssdb FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
(LOAD cl-ssdb-test FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
cl-ssdbccl-1.10-r16196-f96-linux-x86
(LOAD cl-ssdb OK)
(LOAD cl-ssdb-test OK)
(LOAD cl-ssdb CRASH)
(LOAD cl-ssdb-test CRASH)
cl-ssdbccl-1.11-5-rv1.11.5-f96-linux-x86
(LOAD cl-ssdb OK)
(LOAD cl-ssdb-test OK)
(LOAD cl-ssdb CRASH)
(LOAD cl-ssdb-test CRASH)
cl-ssdbccl-1.11-r16635-f96-linux-x86
(LOAD cl-ssdb OK)
(LOAD cl-ssdb-test OK)
(LOAD cl-ssdb CRASH)
(LOAD cl-ssdb-test CRASH)
cl-ssdbccl-1.11-r16702m-f101-linux-arm
(LOAD cl-ssdb OK)
(LOAD cl-ssdb-test OK)
(LOAD cl-ssdb CRASH)
(LOAD cl-ssdb-test CRASH)
cl-strftimecmu-snapshot-2014-12___20f_unicode_-linux-x86
(LOAD cl-strftime FAIL) C::COMPILER-ERROR : Misplaced declaration.
(LOAD cl-strftime CRASH)
ecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-strftime FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD cl-strftime OK)
ecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD cl-strftime CRASH)
(LOAD cl-strftime OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-strftime FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD cl-strftime OK)
ecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD cl-strftime CRASH)
(LOAD cl-strftime OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-strftime FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD cl-strftime OK)
cl-string-matchecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-string-match FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-string-match-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-string-match OK)
(LOAD cl-string-match-test OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-string-match FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-string-match-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-string-match OK)
(LOAD cl-string-match-test OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-string-match FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-string-match-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-string-match OK)
(LOAD cl-string-match-test OK)
cl-threadpoolecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD cl-threadpool-test OK)
(LOAD cl-threadpool-test CRASH)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-threadpool FAIL) EXT:SEGMENTATION-VIOLATION : Detected access to an invalid or protected memory address.
(LOAD cl-threadpool-test FAIL) EXT:SEGMENTATION-VIOLATION : Detected access to an invalid or protected memory address.
(LOAD cl-threadpool OK)
(LOAD cl-threadpool-test OK)
cl-torrentsabcl-1.3.2-fasl42-linux-x86
(LOAD torrents OK)
(LOAD torrents-test OK)
(LOAD torrents FAIL) COMMON-LISP:UNDEFINED-FUNCTION : The function ITEM is undefined.
(LOAD torrents-test FAIL) COMMON-LISP:UNDEFINED-FUNCTION : The function ITEM is undefined.
acl-10.0-linux-x86
(LOAD torrents OK)
(LOAD torrents-test OK)
(LOAD torrents FAIL) COMMON-LISP:SIMPLE-ERROR : Both prop: (DECLARE (IGNORABLE ENV)) and kind: (VALUES :DECLARE `(OPTIMIZER EXCL::BQ-COMMA (SECOND SPECIFIER))) args must be symbols.
(LOAD torrents-test FAIL) COMMON-LISP:SIMPLE-ERROR : Both prop: (DECLARE (IGNORABLE ENV)) and kind: (VALUES :DECLARE `(OPTIMIZER EXCL::BQ-COMMA (SECOND SPECIFIER))) args must be symbols.
acl-10.0s-linux-x86
(LOAD torrents OK)
(LOAD torrents-test OK)
(LOAD torrents FAIL) COMMON-LISP:SIMPLE-ERROR : Both prop: (DECLARE (IGNORABLE ENV)) and kind: (VALUES :DECLARE `(OPTIMIZER EXCL::BQ-COMMA (SECOND SPECIFIER))) args must be symbols.
(LOAD torrents-test FAIL) COMMON-LISP:SIMPLE-ERROR : Both prop: (DECLARE (IGNORABLE ENV)) and kind: (VALUES :DECLARE `(OPTIMIZER EXCL::BQ-COMMA (SECOND SPECIFIER))) args must be symbols.
acl-10.1-linux-x86
(LOAD torrents OK)
(LOAD torrents-test OK)
(LOAD torrents FAIL) COMMON-LISP:SIMPLE-ERROR : Both prop: (DECLARE (IGNORABLE ENV)) and kind: (VALUES :DECLARE `(OPTIMIZER EXCL::BQ-COMMA (SECOND SPECIFIER))) args must be symbols.
(LOAD torrents-test FAIL) COMMON-LISP:SIMPLE-ERROR : Both prop: (DECLARE (IGNORABLE ENV)) and kind: (VALUES :DECLARE `(OPTIMIZER EXCL::BQ-COMMA (SECOND SPECIFIER))) args must be symbols.
acl-10.1s-linux-x86
(LOAD torrents OK)
(LOAD torrents-test OK)
(LOAD torrents FAIL) COMMON-LISP:SIMPLE-ERROR : Both prop: (DECLARE (IGNORABLE ENV)) and kind: (VALUES :DECLARE `(OPTIMIZER EXCL::BQ-COMMA (SECOND SPECIFIER))) args must be symbols.
(LOAD torrents-test FAIL) COMMON-LISP:SIMPLE-ERROR : Both prop: (DECLARE (IGNORABLE ENV)) and kind: (VALUES :DECLARE `(OPTIMIZER EXCL::BQ-COMMA (SECOND SPECIFIER))) args must be symbols.
ecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD torrents OK)
(LOAD torrents FAIL) COMMON-LISP:SIMPLE-ERROR : +STORAGE-FOR-DEFLEX-VAR-SAFE-CHAR-MAP+ is an already defined constant whose value #*00000000000000000000000000000000000001000001111111111111111001001111111111111111111111111111111111111111111111111111111111101100 is not equal to the provided initial value #*00000000000000000000000000000000000001000001111111111111111001001111111111111111111111111111111101111111111111111111111111100000 under SERAPEUM::SAME-LITERAL-P.
cl-twitterecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-twit-repl FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-twitter FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD twitter-mongodb-driver FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-twit-repl OK)
(LOAD cl-twitter OK)
(LOAD twitter-mongodb-driver OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-twit-repl FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-twitter FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD twitter-mongodb-driver FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-twit-repl OK)
(LOAD cl-twitter OK)
(LOAD twitter-mongodb-driver OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-twit-repl FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-twitter FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD twitter-mongodb-driver FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-twit-repl OK)
(LOAD cl-twitter OK)
(LOAD twitter-mongodb-driver OK)
cl-xmppecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cl-xmpp FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-xmpp-sasl FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-xmpp-tls FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-xmpp OK)
(LOAD cl-xmpp-sasl OK)
(LOAD cl-xmpp-tls OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cl-xmpp FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-xmpp-sasl FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-xmpp-tls FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-xmpp OK)
(LOAD cl-xmpp-sasl OK)
(LOAD cl-xmpp-tls OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cl-xmpp FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-xmpp-sasl FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-xmpp-tls FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cl-xmpp OK)
(LOAD cl-xmpp-sasl OK)
(LOAD cl-xmpp-tls OK)
cl-yaclyamlccl-1.10-r16196-f96-linux-x86
(LOAD cl-yaclyaml OK)
(LOAD cl-yaclyaml CRASH)
ccl-1.11-5-rv1.11.5-f96-linux-x86
(LOAD cl-yaclyaml OK)
(LOAD cl-yaclyaml CRASH)
ccl-1.11-r16635-f96-linux-x86
(LOAD cl-yaclyaml OK)
(LOAD cl-yaclyaml CRASH)
ccl-1.11-r16702m-f101-linux-arm
(LOAD cl-yaclyaml OK)
(LOAD cl-yaclyaml CRASH)
sbcl-1.2.6-linux-x86
(LOAD cl-yaclyaml CRASH)
(LOAD cl-yaclyaml OK)
cl-yesqlecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD cl-yesql CRASH)
(LOAD cl-yesql FAIL) COMMON-LISP:SIMPLE-ERROR : * is not a valid type specifier.
ecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD cl-yesql CRASH)
(LOAD cl-yesql FAIL) COMMON-LISP:SIMPLE-ERROR : * is not a valid type specifier.
clackabcl-1.3.1-fasl42-linux-x86
(LOAD clack-middleware-auth-basic OK)
(LOAD clack-middleware-csrf OK)
(LOAD clack-middleware-dbi OK)
(LOAD clack-middleware-oauth OK)
(LOAD clack-middleware-postmodern OK)
(LOAD clack-session-store-dbi OK)
(LOAD clack-test OK)
(LOAD clack-v1-compat OK)
(LOAD t-clack-handler-fcgi OK)
(LOAD t-clack-handler-hunchentoot OK)
(LOAD t-clack-handler-toot OK)
(LOAD t-clack-handler-wookie OK)
(LOAD t-clack-middleware-auth-basic OK)
(LOAD t-clack-middleware-csrf OK)
(LOAD t-clack-v1-compat OK)
(LOAD clack-middleware-auth-basic FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
(LOAD clack-middleware-csrf FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
(LOAD clack-middleware-dbi FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
(LOAD clack-middleware-oauth FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
(LOAD clack-middleware-postmodern FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
(LOAD clack-session-store-dbi FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
(LOAD clack-test FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
(LOAD clack-v1-compat FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
(LOAD t-clack-handler-fcgi FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
(LOAD t-clack-handler-hunchentoot FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
(LOAD t-clack-handler-toot FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
(LOAD t-clack-handler-wookie FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
(LOAD t-clack-middleware-auth-basic FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
(LOAD t-clack-middleware-csrf FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
(LOAD t-clack-v1-compat FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
ecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD clack FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD clack OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD clack FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD clack OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD clack FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD clack OK)
clack-errorsecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD clack-errors FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD clack-errors-demo FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD clack-errors-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD lack-middleware-clack-errors FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD clack-errors OK)
(LOAD clack-errors-demo OK)
(LOAD clack-errors-test OK)
(LOAD lack-middleware-clack-errors OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD clack-errors FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD clack-errors-demo FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD clack-errors-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD lack-middleware-clack-errors FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD clack-errors OK)
(LOAD clack-errors-demo OK)
(LOAD clack-errors-test OK)
(LOAD lack-middleware-clack-errors OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD clack-errors FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD clack-errors-demo FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD clack-errors-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD lack-middleware-clack-errors FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD clack-errors OK)
(LOAD clack-errors-demo OK)
(LOAD clack-errors-test OK)
(LOAD lack-middleware-clack-errors OK)
clack-static-asset-middlewareecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD clack-static-asset-djula-helpers FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD clack-static-asset-middleware FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD clack-static-asset-middleware-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD clack-static-asset-djula-helpers OK)
(LOAD clack-static-asset-middleware OK)
(LOAD clack-static-asset-middleware-test OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD clack-static-asset-djula-helpers FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD clack-static-asset-middleware FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD clack-static-asset-middleware-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD clack-static-asset-djula-helpers OK)
(LOAD clack-static-asset-middleware OK)
(LOAD clack-static-asset-middleware-test OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD clack-static-asset-djula-helpers FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD clack-static-asset-middleware FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD clack-static-asset-middleware-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD clack-static-asset-djula-helpers OK)
(LOAD clack-static-asset-middleware OK)
(LOAD clack-static-asset-middleware-test OK)
clathecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cljwt-custom FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cljwt-custom OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cljwt-custom FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cljwt-custom OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cljwt-custom FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cljwt-custom OK)
colliflowerecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD colliflower FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD colliflower-fset CRASH)
(LOAD colliflower-test FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD garten FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD liter FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD colliflower OK)
(LOAD colliflower-fset OK)
(LOAD colliflower-test OK)
(LOAD garten OK)
(LOAD liter OK)
ecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD colliflower CRASH)
(LOAD colliflower-fset CRASH)
(LOAD colliflower-test CRASH)
(LOAD garten CRASH)
(LOAD liter CRASH)
(LOAD colliflower OK)
(LOAD colliflower-fset OK)
(LOAD colliflower-test OK)
(LOAD garten OK)
(LOAD liter OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD colliflower FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD colliflower-fset CRASH)
(LOAD colliflower-test FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD garten FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD liter FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD colliflower OK)
(LOAD colliflower-fset OK)
(LOAD colliflower-test OK)
(LOAD garten OK)
(LOAD liter OK)
ecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD colliflower CRASH)
(LOAD colliflower-fset CRASH)
(LOAD colliflower-test CRASH)
(LOAD garten CRASH)
(LOAD liter CRASH)
(LOAD colliflower OK)
(LOAD colliflower-fset OK)
(LOAD colliflower-test OK)
(LOAD garten OK)
(LOAD liter OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD colliflower FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD colliflower-fset FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD colliflower-test FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD garten FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD liter FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD colliflower OK)
(LOAD colliflower-fset OK)
(LOAD colliflower-test OK)
(LOAD garten OK)
(LOAD liter OK)
coronaabcl-1.3.1-fasl42-linux-x86
(LOAD corona-test OK)
(LOAD corona-test FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
ecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD corona FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD corona-web FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD corona OK)
(LOAD corona-web OK)
ecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD corona-test TIMEOUT)
(LOAD corona-test OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD corona FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD corona-web FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD corona OK)
(LOAD corona-web OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD corona FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD corona-web FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD corona OK)
(LOAD corona-web OK)
cqlclecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD cqlcl FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cqlcl OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD cqlcl FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cqlcl OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD cqlcl FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD cqlcl OK)
croatoanabcl-1.2.1-fasl42-linux-x86
(LOAD croatoan OK)
(LOAD croatoan-tests OK)
(LOAD croatoan FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
(LOAD croatoan-tests FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
ccl-1.9-r15756-f96-linux-x86
(LOAD croatoan OK)
(LOAD croatoan-tests OK)
(LOAD croatoan FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
(LOAD croatoan-tests FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
ecl-13.5.1-unknown-linux-i686-bytecode
(LOAD croatoan OK)
(LOAD croatoan-tests OK)
(LOAD croatoan FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
(LOAD croatoan-tests FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
ecl-13.5.1-unknown-linux-i686-lisp-to-c
(LOAD croatoan OK)
(LOAD croatoan-tests OK)
(LOAD croatoan FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
(LOAD croatoan-tests FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
sbcl-1.1.11-linux-x86
(LOAD croatoan OK)
(LOAD croatoan-tests OK)
(LOAD croatoan FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: READ error during COMPILE-FILE: You need ASDF >= 3.1 to load this system correctly.(in form starting at line: 1, column: 0, file-position: 0)
(LOAD croatoan-tests FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: READ error during COMPILE-FILE: You need ASDF >= 3.1 to load this system correctly.(in form starting at line: 1, column: 0, file-position: 0)
sbcl-1.1.16-linux-x86
(LOAD croatoan OK)
(LOAD croatoan-tests OK)
(LOAD croatoan FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: READ error during LOAD: You need ASDF >= 3.1 to load this system correctly.(in form starting at line: 1, column: 0, file-position: 0)
(LOAD croatoan-tests FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: READ error during LOAD: You need ASDF >= 3.1 to load this system correctly.(in form starting at line: 1, column: 0, file-position: 0)
crypto-shortcutsecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD crypto-shortcuts FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD crypto-shortcuts OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD crypto-shortcuts FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD crypto-shortcuts OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD crypto-shortcuts FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD crypto-shortcuts OK)
dartscluuidecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD darts.lib.uuid FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD darts.lib.uuid OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD darts.lib.uuid FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD darts.lib.uuid OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD darts.lib.uuid FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD darts.lib.uuid OK)
data-lensecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD data-lens FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD data-lens OK)
ecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD data-lens CRASH)
(LOAD data-lens OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD data-lens CRASH)
(LOAD data-lens OK)
ecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD data-lens CRASH)
(LOAD data-lens OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD data-lens FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD data-lens OK)
dexadorabcl-1.3.1-fasl42-linux-x86
(LOAD dexador-test OK)
(LOAD dexador-test FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
acl-10.0-linux-x86
(LOAD dexador-test OK)
(LOAD dexador-test FAIL) COMMON-LISP:READER-ERROR : Meaningless character name u2602 [file position = 20704]
acl-10.0s-linux-x86
(LOAD dexador-test OK)
(LOAD dexador-test FAIL) COMMON-LISP:READER-ERROR : Meaningless character name u2602 [file position = 20704]
acl-10.1-linux-x86
(LOAD dexador-test OK)
(LOAD dexador-test FAIL) COMMON-LISP:READER-ERROR : Meaningless character name u2602 [file position = 20704]
acl-10.1s-linux-x86
(LOAD dexador-test OK)
(LOAD dexador-test FAIL) COMMON-LISP:READER-ERROR : Meaningless character name u2602 [file position = 20704]
diff-match-patchabcl-1.3.0-fasl42-linux-x86
(LOAD diff-match-patch FAIL) COMMON-LISP:STORAGE-CONDITION : Stack overflow.
(LOAD diff-match-patch CRASH)
abcl-1.3.2-fasl42-linux-x86
(LOAD diff-match-patch CRASH)
(LOAD diff-match-patch FAIL) COMMON-LISP:STORAGE-CONDITION : Stack overflow.
dufyabcl-1.3.0-fasl42-linux-x86
(LOAD dufy FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD dufy OK)
dufyabcl-1.3.1-fasl42-linux-x86
(LOAD dufy FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD dufy OK)
dufyabcl-1.3.2-fasl42-linux-x86
(LOAD dufy FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD dufy OK)
dufyabcl-1.4.0-fasl42-linux-x86
(LOAD dufy FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD dufy OK)
dufyabcl-1.5.0-fasl43-bsd-x64
(LOAD dufy FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD dufy OK)
dufyabcl-1.5.0-fasl43-linux-x86
(LOAD dufy FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD dufy OK)
dufyacl-10.0-linux-x86
(LOAD dufy FAIL) COMMON-LISP:SIMPLE-ERROR : Both prop: (DECLARE (IGNORABLE ENV)) and kind: (VALUES :DECLARE `(OPTIMIZER EXCL::BQ-COMMA (SECOND SPECIFIER))) args must be symbols.
(LOAD dufy OK)
dufyacl-10.0s-linux-x86
(LOAD dufy FAIL) COMMON-LISP:SIMPLE-ERROR : Both prop: (DECLARE (IGNORABLE ENV)) and kind: (VALUES :DECLARE `(OPTIMIZER EXCL::BQ-COMMA (SECOND SPECIFIER))) args must be symbols.
(LOAD dufy OK)
dufyacl-10.1-linux-x86
(LOAD dufy FAIL) COMMON-LISP:SIMPLE-ERROR : Both prop: (DECLARE (IGNORABLE ENV)) and kind: (VALUES :DECLARE `(OPTIMIZER EXCL::BQ-COMMA (SECOND SPECIFIER))) args must be symbols.
(LOAD dufy OK)
dufyacl-10.1s-linux-x86
(LOAD dufy FAIL) COMMON-LISP:SIMPLE-ERROR : Both prop: (DECLARE (IGNORABLE ENV)) and kind: (VALUES :DECLARE `(OPTIMIZER EXCL::BQ-COMMA (SECOND SPECIFIER))) args must be symbols.
(LOAD dufy OK)
dufycmu-snapshot-2014-12___20f_unicode_-linux-x86
(LOAD dufy FAIL) C::COMPILER-ERROR : Misplaced declaration.
(LOAD dufy OK)
dufycmu-snapshot-2016-12__21b_unicode_-linux-x86
(LOAD dufy FAIL) C::COMPILER-ERROR : Misplaced declaration.
(LOAD dufy OK)
dufyecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD dufy CRASH)
(LOAD dufy FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<cl-source-file "dufy/core" "core" "deltae">
dufyecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD dufy CRASH)
(LOAD dufy FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<cl-source-file "dufy/core" "core" "deltae">
eazy-gnuplotabcl-1.2.1-fasl42-linux-x86
(LOAD eazy-gnuplot FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD eazy-gnuplot OK)
eazy-gnuplotabcl-1.3.0-fasl42-linux-x86
(LOAD eazy-gnuplot FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD eazy-gnuplot.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD eazy-gnuplot OK)
(LOAD eazy-gnuplot.test OK)
eazy-gnuplotabcl-1.3.1-fasl42-linux-x86
(LOAD eazy-gnuplot FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD eazy-gnuplot.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD eazy-gnuplot OK)
(LOAD eazy-gnuplot.test OK)
eazy-gnuplotabcl-1.3.2-fasl42-linux-x86
(LOAD eazy-gnuplot FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD eazy-gnuplot.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD eazy-gnuplot OK)
(LOAD eazy-gnuplot.test OK)
eazy-gnuplotabcl-1.5.0-fasl43-bsd-x64
(LOAD eazy-gnuplot FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD eazy-gnuplot.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD eazy-gnuplot OK)
(LOAD eazy-gnuplot.test OK)
eazy-gnuplotabcl-1.5.0-fasl43-linux-x86
(LOAD eazy-gnuplot FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD eazy-gnuplot.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD eazy-gnuplot OK)
(LOAD eazy-gnuplot.test OK)
eazy-gnuplotcmu-snapshot-2014-12___20f_unicode_-linux-x86
(LOAD eazy-gnuplot.test CRASH)
(LOAD eazy-gnuplot.test FAIL) C::COMPILER-ERROR : Misplaced declaration.
eazy-gnuplotecl-13.5.1-unknown-linux-i686-bytecode
(LOAD eazy-gnuplot FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized.
(LOAD eazy-gnuplot OK)
eazy-gnuplotecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD eazy-gnuplot FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD eazy-gnuplot.test FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD eazy-gnuplot OK)
(LOAD eazy-gnuplot.test OK)
eazy-gnuplotecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD eazy-gnuplot CRASH)
(LOAD eazy-gnuplot.test CRASH)
(LOAD eazy-gnuplot OK)
(LOAD eazy-gnuplot.test OK)
eazy-gnuplotecl-16.1.2-unknown-linux-x86-bytecode
(LOAD eazy-gnuplot CRASH)
(LOAD eazy-gnuplot.test FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD eazy-gnuplot OK)
(LOAD eazy-gnuplot.test OK)
eazy-gnuplotecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD eazy-gnuplot CRASH)
(LOAD eazy-gnuplot.test CRASH)
(LOAD eazy-gnuplot OK)
(LOAD eazy-gnuplot.test OK)
eazy-gnuplotecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD eazy-gnuplot FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD eazy-gnuplot.test FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD eazy-gnuplot OK)
(LOAD eazy-gnuplot.test OK)
eazy-projectabcl-1.3.0-fasl42-linux-x86
(LOAD eazy-project FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD eazy-project.autoload FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD eazy-project OK)
(LOAD eazy-project.autoload OK)
abcl-1.3.1-fasl42-linux-x86
(LOAD eazy-project FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD eazy-project.autoload FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD eazy-project OK)
(LOAD eazy-project.autoload OK)
abcl-1.3.2-fasl42-linux-x86
(LOAD eazy-project FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD eazy-project.autoload FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD eazy-project OK)
(LOAD eazy-project.autoload OK)
abcl-1.5.0-fasl43-bsd-x64
(LOAD eazy-project FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD eazy-project.autoload FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD eazy-project OK)
(LOAD eazy-project.autoload OK)
abcl-1.5.0-fasl43-linux-x86
(LOAD eazy-project FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD eazy-project.autoload FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD eazy-project.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD eazy-project CRASH)
(LOAD eazy-project.autoload CRASH)
(LOAD eazy-project.test CRASH)
elb-logecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD elb-log FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD elb-log-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD elb-log OK)
(LOAD elb-log-test OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD elb-log FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD elb-log-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD elb-log OK)
(LOAD elb-log-test OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD elb-log FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD elb-log-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD elb-log OK)
(LOAD elb-log-test OK)
f2clacl-10.0m-linux-x86
(LOAD toms419 TIMEOUT)
(LOAD toms419 FAIL) common-lisp:storage-condition : An explicit gc call caused a need for 268959744 more bytes of heap. The operating system will not make the space available because of a lack of swap space or some other operating system imposed limit or memory mapping collision.
acl-10.0ms-linux-x86
(LOAD toms419 FAIL) common-lisp:storage-condition : An allocation request for 8192 bytes caused a need for 264765440 more bytes of heap. The operating system will not make the space available because of a lack of swap space or some other operating system imposed limit or memory mapping collision.
(LOAD toms419 TIMEOUT)
acl-10.1m-linux-x86
(LOAD toms419 FAIL) common-lisp:storage-condition : An explicit gc call caused a need for 335020032 more bytes of heap. The operating system will not make the space available because of a lack of swap space or some other operating system imposed limit or memory mapping collision.
(LOAD toms419 TIMEOUT)
acl-10.1ms-linux-x86
(LOAD fishpack FAIL) common-lisp:storage-condition : An allocation request for 8192 bytes caused a need for 231211008 more bytes of heap. The operating system will not make the space available because of a lack of swap space or some other operating system imposed limit or memory mapping collision.
(LOAD toms715 TIMEOUT)
(LOAD fishpack TIMEOUT)
(LOAD toms715 FAIL) common-lisp:storage-condition : An allocation request for 4008 bytes caused a need for 256901120 more bytes of heap. The operating system will not make the space available because of a lack of swap space or some other operating system imposed limit or memory mapping collision.
sbcl-1.3.17-linux-x86
(LOAD toms717 CRASH)
(LOAD toms717 OK)
file-local-variableabcl-1.2.1-fasl42-linux-x86
(LOAD file-local-variable FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD file-local-variable OK)
file-local-variableabcl-1.3.0-fasl42-linux-x86
(LOAD file-local-variable FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD file-local-variable.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD file-local-variable OK)
(LOAD file-local-variable.test OK)
file-local-variableabcl-1.3.1-fasl42-linux-x86
(LOAD file-local-variable FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD file-local-variable.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD file-local-variable OK)
(LOAD file-local-variable.test OK)
file-local-variableabcl-1.3.2-fasl42-linux-x86
(LOAD file-local-variable FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD file-local-variable.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD file-local-variable OK)
(LOAD file-local-variable.test OK)
file-local-variableabcl-1.4.0-fasl42-linux-x86
(LOAD file-local-variable FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD file-local-variable.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD file-local-variable OK)
(LOAD file-local-variable.test OK)
file-local-variableabcl-1.5.0-fasl43-bsd-x64
(LOAD file-local-variable FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD file-local-variable.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD file-local-variable OK)
(LOAD file-local-variable.test OK)
file-local-variableabcl-1.5.0-fasl43-linux-x86
(LOAD file-local-variable FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD file-local-variable.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD file-local-variable OK)
(LOAD file-local-variable.test OK)
file-local-variableecl-13.5.1-unknown-linux-i686-bytecode
(LOAD file-local-variable FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized.
(LOAD file-local-variable OK)
file-local-variableecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD file-local-variable CRASH)
(LOAD file-local-variable.test CRASH)
(LOAD file-local-variable OK)
(LOAD file-local-variable.test OK)
file-local-variableecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD file-local-variable CRASH)
(LOAD file-local-variable.test CRASH)
(LOAD file-local-variable OK)
(LOAD file-local-variable.test OK)
file-local-variableecl-16.1.2-unknown-linux-x86-bytecode
(LOAD file-local-variable CRASH)
(LOAD file-local-variable.test CRASH)
(LOAD file-local-variable OK)
(LOAD file-local-variable.test OK)
file-local-variableecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD file-local-variable CRASH)
(LOAD file-local-variable.test CRASH)
(LOAD file-local-variable OK)
(LOAD file-local-variable.test OK)
file-local-variableecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD file-local-variable FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD file-local-variable.test FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD file-local-variable OK)
(LOAD file-local-variable.test OK)
format-string-builderecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD format-string-builder FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD format-string-builder OK)
ecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD format-string-builder CRASH)
(LOAD format-string-builder OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD format-string-builder FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD format-string-builder OK)
ecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD format-string-builder CRASH)
(LOAD format-string-builder OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD format-string-builder FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD format-string-builder OK)
fxmlecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD fxml FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD fxml OK)
ecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD fxml CRASH)
(LOAD fxml OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD fxml CRASH)
(LOAD fxml OK)
ecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD fxml CRASH)
(LOAD fxml OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD fxml FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD fxml OK)
generic-clabcl-1.2.1-fasl42-linux-x86
(LOAD generic-cl FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD generic-cl OK)
generic-clabcl-1.3.0-fasl42-linux-x86
(LOAD generic-cl FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD generic-cl OK)
generic-clabcl-1.3.1-fasl42-linux-x86
(LOAD generic-cl FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD generic-cl OK)
generic-clabcl-1.3.2-fasl42-linux-x86
(LOAD generic-cl FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD generic-cl OK)
generic-clabcl-1.4.0-fasl42-linux-x86
(LOAD generic-cl FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD generic-cl OK)
generic-clabcl-1.5.0-fasl43-bsd-x64
(LOAD generic-cl FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD generic-cl OK)
generic-clabcl-1.5.0-fasl43-linux-x86
(LOAD generic-cl FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD generic-cl OK)
generic-clecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD generic-cl CRASH)
(LOAD generic-cl OK)
generic-clecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD generic-cl CRASH)
(LOAD generic-cl OK)
hermeticecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD hermetic FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD hermetic OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD hermetic FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD hermetic OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD hermetic FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD hermetic OK)
hh-webecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD hh-web FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD hh-web OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD hh-web FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD hh-web OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD hh-web FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD hh-web OK)
hornerecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD horner FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD horner OK)
ecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD horner CRASH)
(LOAD horner OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD horner FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD horner OK)
ecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD horner CRASH)
(LOAD horner OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD horner FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD horner OK)
hu.dwim.commonecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD hu.dwim.common TIMEOUT)
(LOAD hu.dwim.common OK)
humblerecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD humbler FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD humbler OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD humbler FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD humbler OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD humbler FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD humbler OK)
hunchensocketecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD hunchensocket FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD hunchensocket OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD hunchensocket FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD hunchensocket OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD hunchensocket FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD hunchensocket OK)
hunchentoolsecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD hunchentools FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD hunchentools OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD hunchentools FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD hunchentools OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD hunchentools FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD hunchentools OK)
immutable-structabcl-1.2.1-fasl42-linux-x86
(LOAD immutable-struct FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD immutable-struct OK)
immutable-structabcl-1.3.0-fasl42-linux-x86
(LOAD immutable-struct FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD immutable-struct OK)
immutable-structabcl-1.3.1-fasl42-linux-x86
(LOAD immutable-struct FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD immutable-struct OK)
immutable-structabcl-1.3.2-fasl42-linux-x86
(LOAD immutable-struct FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD immutable-struct OK)
immutable-structabcl-1.4.0-fasl42-linux-x86
(LOAD immutable-struct FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD immutable-struct OK)
immutable-structabcl-1.5.0-fasl43-bsd-x64
(LOAD immutable-struct FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD immutable-struct OK)
immutable-structabcl-1.5.0-fasl43-linux-x86
(LOAD immutable-struct FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD immutable-struct OK)
immutable-structecl-13.5.1-unknown-linux-i686-bytecode
(LOAD immutable-struct FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized.
(LOAD immutable-struct OK)
immutable-structecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD immutable-struct CRASH)
(LOAD immutable-struct OK)
immutable-structecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD immutable-struct CRASH)
(LOAD immutable-struct OK)
immutable-structecl-16.1.2-unknown-linux-x86-bytecode
(LOAD immutable-struct CRASH)
(LOAD immutable-struct OK)
immutable-structecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD immutable-struct CRASH)
(LOAD immutable-struct OK)
immutable-structecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD immutable-struct FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD immutable-struct OK)
infix-mathecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD infix-math FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD infix-math OK)
ecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD infix-math CRASH)
(LOAD infix-math OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD infix-math FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD infix-math OK)
ecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD infix-math CRASH)
(LOAD infix-math OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD infix-math FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD infix-math OK)
inlined-generic-functionabcl-1.2.1-fasl42-linux-x86
(LOAD inlined-generic-function FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD inlined-generic-function OK)
inlined-generic-functionabcl-1.3.0-fasl42-linux-x86
(LOAD inlined-generic-function FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD inlined-generic-function.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD inlined-generic-function OK)
(LOAD inlined-generic-function.test OK)
inlined-generic-functionabcl-1.3.1-fasl42-linux-x86
(LOAD inlined-generic-function FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD inlined-generic-function.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD inlined-generic-function OK)
(LOAD inlined-generic-function.test OK)
inlined-generic-functionabcl-1.3.2-fasl42-linux-x86
(LOAD inlined-generic-function FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD inlined-generic-function.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD inlined-generic-function OK)
(LOAD inlined-generic-function.test OK)
inlined-generic-functionabcl-1.4.0-fasl42-linux-x86
(LOAD inlined-generic-function FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD inlined-generic-function.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD inlined-generic-function OK)
(LOAD inlined-generic-function.test OK)
inlined-generic-functionecl-13.5.1-unknown-linux-i686-bytecode
(LOAD inlined-generic-function FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized.
(LOAD inlined-generic-function OK)
inlined-generic-functionecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD inlined-generic-function FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD inlined-generic-function.test CRASH)
(LOAD inlined-generic-function OK)
(LOAD inlined-generic-function.test OK)
inlined-generic-functionecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD inlined-generic-function CRASH)
(LOAD inlined-generic-function.test CRASH)
(LOAD inlined-generic-function OK)
(LOAD inlined-generic-function.test OK)
inlined-generic-functionecl-16.1.2-unknown-linux-x86-bytecode
(LOAD inlined-generic-function FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD inlined-generic-function.test FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD inlined-generic-function OK)
(LOAD inlined-generic-function.test OK)
inlined-generic-functionecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD inlined-generic-function CRASH)
(LOAD inlined-generic-function.test CRASH)
(LOAD inlined-generic-function OK)
(LOAD inlined-generic-function.test OK)
inlined-generic-functionecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD inlined-generic-function FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD inlined-generic-function.test FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD inlined-generic-function OK)
(LOAD inlined-generic-function.test OK)
ironcladecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD ironclad FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD ironclad-text FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD ironclad OK)
(LOAD ironclad-text OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD ironclad FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD ironclad-text FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD ironclad OK)
(LOAD ironclad-text OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD ironclad FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD ironclad-text FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD ironclad OK)
(LOAD ironclad-text OK)
lackabcl-1.3.1-fasl42-linux-x86
(LOAD t-lack OK)
(LOAD t-lack-request OK)
(LOAD t-lack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
(LOAD t-lack-request FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
lackacl-10.0-linux-x86
(LOAD lack-session-store-redis OK)
(LOAD t-lack-session-store-redis OK)
(LOAD lack-session-store-redis FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
(LOAD t-lack-session-store-redis FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
lackacl-10.0s-linux-x86
(LOAD lack-session-store-redis OK)
(LOAD t-lack-session-store-redis OK)
(LOAD lack-session-store-redis FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
(LOAD t-lack-session-store-redis FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
lackacl-10.1-linux-x86
(LOAD lack-session-store-redis OK)
(LOAD t-lack-session-store-redis OK)
(LOAD lack-session-store-redis FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
(LOAD t-lack-session-store-redis FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
lackacl-10.1s-linux-x86
(LOAD lack-session-store-redis OK)
(LOAD t-lack-session-store-redis OK)
(LOAD lack-session-store-redis FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
(LOAD t-lack-session-store-redis FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
lackccl-1.10-r16196-f96-linux-x86
(LOAD lack-session-store-redis OK)
(LOAD t-lack-session-store-redis OK)
(LOAD lack-session-store-redis CRASH)
(LOAD t-lack-session-store-redis CRASH)
lackccl-1.11-5-rv1.11.5-f96-linux-x86
(LOAD lack-session-store-redis OK)
(LOAD t-lack-session-store-redis OK)
(LOAD lack-session-store-redis CRASH)
(LOAD t-lack-session-store-redis CRASH)
lackccl-1.11-r16635-f96-linux-x86
(LOAD lack-session-store-redis OK)
(LOAD t-lack-session-store-redis OK)
(LOAD lack-session-store-redis CRASH)
(LOAD t-lack-session-store-redis CRASH)
lackccl-1.11-r16702m-f101-linux-arm
(LOAD lack-session-store-redis OK)
(LOAD t-lack-session-store-redis OK)
(LOAD lack-session-store-redis CRASH)
(LOAD t-lack-session-store-redis CRASH)
lackecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD lack FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD lack-middleware-accesslog FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD lack-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD lack-util FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD t-lack-component FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD t-lack-middleware-accesslog FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD t-lack-middleware-auth-basic FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD t-lack-middleware-backtrace FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD t-lack-middleware-mount FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD t-lack-middleware-static FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD t-lack-util FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD lack OK)
(LOAD lack-middleware-accesslog OK)
(LOAD lack-test OK)
(LOAD lack-util OK)
(LOAD t-lack-component OK)
(LOAD t-lack-middleware-accesslog OK)
(LOAD t-lack-middleware-auth-basic OK)
(LOAD t-lack-middleware-backtrace OK)
(LOAD t-lack-middleware-mount OK)
(LOAD t-lack-middleware-static OK)
(LOAD t-lack-util OK)
lackecl-16.1.2-unknown-linux-x86-bytecode
(LOAD lack FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD lack-middleware-accesslog FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD lack-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD lack-util FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD t-lack-component FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD t-lack-middleware-accesslog FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD t-lack-middleware-auth-basic FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD t-lack-middleware-backtrace FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD t-lack-middleware-mount FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD t-lack-middleware-static FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD t-lack-util FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD lack OK)
(LOAD lack-middleware-accesslog OK)
(LOAD lack-test OK)
(LOAD lack-util OK)
(LOAD t-lack-component OK)
(LOAD t-lack-middleware-accesslog OK)
(LOAD t-lack-middleware-auth-basic OK)
(LOAD t-lack-middleware-backtrace OK)
(LOAD t-lack-middleware-mount OK)
(LOAD t-lack-middleware-static OK)
(LOAD t-lack-util OK)
lackecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD lack FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD lack-middleware-accesslog FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD lack-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD lack-util FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD t-lack-component FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD t-lack-middleware-accesslog FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD t-lack-middleware-auth-basic FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD t-lack-middleware-backtrace FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD t-lack-middleware-mount FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD t-lack-middleware-static FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD t-lack-util FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD lack OK)
(LOAD lack-middleware-accesslog OK)
(LOAD lack-test OK)
(LOAD lack-util OK)
(LOAD t-lack-component OK)
(LOAD t-lack-middleware-accesslog OK)
(LOAD t-lack-middleware-auth-basic OK)
(LOAD t-lack-middleware-backtrace OK)
(LOAD t-lack-middleware-mount OK)
(LOAD t-lack-middleware-static OK)
(LOAD t-lack-util OK)
lastfmsbcl-1.3.2.92-4077405-dirty-linux-arm
(LOAD lastfm OK)
(LOAD lastfm FAIL) SB-INT:BUG : failed AVER: (OR (SB-ARM-ASM::REGISTER-P SB-ARM-ASM::OPERAND) (TYPEP SB-ARM-ASM::OPERAND '(INTEGER 1 31))) This is probably a bug in SBCL itself. (Alternatively, SBCL might have been corrupted by bad user code, e.g. by an undefined Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers from alien code or from unsafe Lisp code; or there might be a bug in the OS or hardware that SBCL is running on.) If it seems to be a bug in SBCL itself, the maintainers would like to know about it. Bug reports are welcome on the SBCL mailing lists, which you can find at <http://sbcl.sourceforge.net/>.
lowlightecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD lowlight FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD lowlight.doc FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD lowlight.old FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD lowlight.tests CRASH)
(LOAD lowlight OK)
(LOAD lowlight.doc OK)
(LOAD lowlight.old OK)
(LOAD lowlight.tests OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD lowlight FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD lowlight.doc FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD lowlight.old CRASH)
(LOAD lowlight.tests FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD lowlight OK)
(LOAD lowlight.doc OK)
(LOAD lowlight.old OK)
(LOAD lowlight.tests OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD lowlight FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD lowlight.doc FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD lowlight.old FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD lowlight.tests FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD lowlight OK)
(LOAD lowlight.doc OK)
(LOAD lowlight.old OK)
(LOAD lowlight.tests OK)
lucerneabcl-1.3.1-fasl42-linux-x86
(LOAD lucerne OK)
(LOAD lucerne-auth OK)
(LOAD lucerne-hello-world OK)
(LOAD lucerne-test OK)
(LOAD lucerne-utweet OK)
(LOAD lucerne FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
(LOAD lucerne-auth FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
(LOAD lucerne-hello-world FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
(LOAD lucerne-test FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
(LOAD lucerne-utweet FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
mcclimabcl-1.3.0-fasl42-linux-x86
(LOAD clim-core FAIL) COMMON-LISP:SIMPLE-ERROR : GET-ENVIRONMENT-VARIABLE not implemented
(LOAD clim-postscript-font OK)
(LOAD esa-mcclim FAIL) COMMON-LISP:SIMPLE-ERROR : GET-ENVIRONMENT-VARIABLE not implemented
(LOAD slim FAIL) COMMON-LISP:SIMPLE-ERROR : GET-ENVIRONMENT-VARIABLE not implemented
(LOAD clim-core OK)
(LOAD clim-postscript-font FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD esa-mcclim OK)
(LOAD slim OK)
abcl-1.3.1-fasl42-linux-x86
(LOAD clim-core FAIL) COMMON-LISP:SIMPLE-ERROR : GET-ENVIRONMENT-VARIABLE not implemented
(LOAD clim-postscript-font OK)
(LOAD esa-mcclim FAIL) COMMON-LISP:SIMPLE-ERROR : GET-ENVIRONMENT-VARIABLE not implemented
(LOAD slim FAIL) COMMON-LISP:SIMPLE-ERROR : GET-ENVIRONMENT-VARIABLE not implemented
(LOAD clim-core OK)
(LOAD clim-postscript-font FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD esa-mcclim OK)
(LOAD slim OK)
abcl-1.3.2-fasl42-linux-x86
(LOAD clim-core FAIL) COMMON-LISP:SIMPLE-ERROR : GET-ENVIRONMENT-VARIABLE not implemented
(LOAD clim-postscript-font OK)
(LOAD esa-mcclim FAIL) COMMON-LISP:SIMPLE-ERROR : GET-ENVIRONMENT-VARIABLE not implemented
(LOAD slim FAIL) COMMON-LISP:SIMPLE-ERROR : GET-ENVIRONMENT-VARIABLE not implemented
(LOAD clim-core OK)
(LOAD clim-postscript-font FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD esa-mcclim OK)
(LOAD slim OK)
abcl-1.4.0-fasl42-linux-x86
(LOAD clim-core FAIL) COMMON-LISP:SIMPLE-ERROR : GET-ENVIRONMENT-VARIABLE not implemented
(LOAD clim-postscript-font OK)
(LOAD esa-mcclim FAIL) COMMON-LISP:SIMPLE-ERROR : GET-ENVIRONMENT-VARIABLE not implemented
(LOAD slim FAIL) COMMON-LISP:SIMPLE-ERROR : GET-ENVIRONMENT-VARIABLE not implemented
(LOAD clim-core OK)
(LOAD clim-postscript-font FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD esa-mcclim OK)
(LOAD slim OK)
abcl-1.5.0-fasl43-bsd-x64
(LOAD clim-core FAIL) COMMON-LISP:SIMPLE-ERROR : GET-ENVIRONMENT-VARIABLE not implemented
(LOAD clim-postscript-font OK)
(LOAD esa-mcclim FAIL) COMMON-LISP:SIMPLE-ERROR : GET-ENVIRONMENT-VARIABLE not implemented
(LOAD slim FAIL) COMMON-LISP:SIMPLE-ERROR : GET-ENVIRONMENT-VARIABLE not implemented
(LOAD clim-core OK)
(LOAD clim-postscript-font FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD esa-mcclim OK)
(LOAD slim OK)
abcl-1.5.0-fasl43-linux-x86
(LOAD clim-core FAIL) COMMON-LISP:SIMPLE-ERROR : GET-ENVIRONMENT-VARIABLE not implemented
(LOAD clim-postscript-font OK)
(LOAD esa-mcclim FAIL) COMMON-LISP:SIMPLE-ERROR : GET-ENVIRONMENT-VARIABLE not implemented
(LOAD slim FAIL) COMMON-LISP:SIMPLE-ERROR : GET-ENVIRONMENT-VARIABLE not implemented
(LOAD clim-core OK)
(LOAD clim-postscript-font FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD esa-mcclim OK)
(LOAD slim OK)
media-typesecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD media-types FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD media-types OK)
ecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD media-types CRASH)
(LOAD media-types OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD media-types FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD media-types OK)
ecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD media-types CRASH)
(LOAD media-types OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD media-types FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD media-types OK)
mexprccl-1.10-r16196-f96-linux-x86
(LOAD mexpr-tests OK)
(LOAD mexpr-tests CRASH)
ccl-1.11-5-rv1.11.5-f96-linux-x86
(LOAD mexpr-tests OK)
(LOAD mexpr-tests CRASH)
ccl-1.11-r16635-f96-linux-x86
(LOAD mexpr-tests OK)
(LOAD mexpr-tests CRASH)
ccl-1.11-r16702m-f101-linux-arm
(LOAD mexpr-tests OK)
(LOAD mexpr-tests CRASH)
mgl-paxecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD mgl-pax FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mgl-pax-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mgl-pax OK)
(LOAD mgl-pax-test OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD mgl-pax FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mgl-pax-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mgl-pax OK)
(LOAD mgl-pax-test OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD mgl-pax FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mgl-pax-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mgl-pax OK)
(LOAD mgl-pax-test OK)
micmacecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD micmac FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD micmac-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD micmac OK)
(LOAD micmac-test OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD micmac FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD micmac-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD micmac OK)
(LOAD micmac-test OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD micmac FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD micmac-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD micmac OK)
(LOAD micmac-test OK)
mitoecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD lack-middleware-mito FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mito FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mito-core FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mito-migration FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mito-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD lack-middleware-mito OK)
(LOAD mito OK)
(LOAD mito-core OK)
(LOAD mito-migration OK)
(LOAD mito-test OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD lack-middleware-mito FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mito FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mito-core FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mito-migration FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mito-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD lack-middleware-mito OK)
(LOAD mito OK)
(LOAD mito-core OK)
(LOAD mito-migration OK)
(LOAD mito-test OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD lack-middleware-mito FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mito FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mito-core FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mito-migration FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mito-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD lack-middleware-mito OK)
(LOAD mito OK)
(LOAD mito-core OK)
(LOAD mito-migration OK)
(LOAD mito-test OK)
mito-attachmentecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD mito-attachment FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mito-attachment OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD mito-attachment FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mito-attachment OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD mito-attachment FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mito-attachment OK)
mito-authecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD mito-auth FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mito-auth OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD mito-auth FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mito-auth OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD mito-auth FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD mito-auth OK)
moiraecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD moira CRASH)
(LOAD moira FAIL) COMMON-LISP:SIMPLE-ERROR : Cannot find out entry point for binary file /home/testgrid/cl-test-grid/work-dir/agent/test-runs/20191014075654-ecl-16.0.0-98fc12d3-linux-i686-lisp-to-c/fasl/ql/dists/quicklisp/software/osicat-20190710-git/posix/wrappers__wrapper.o
ecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD moira CRASH)
(LOAD moira OK)
northecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD north FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD north-core FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD north-drakma FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD north OK)
(LOAD north-core OK)
(LOAD north-drakma OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD north FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD north-core FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD north-drakma FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD north OK)
(LOAD north-core OK)
(LOAD north-drakma OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD north FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD north-core FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD north-drakma FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD north OK)
(LOAD north-core OK)
(LOAD north-drakma OK)
originsbcl-1.4.8.openbsd.0-bsd-x64
(LOAD origin.test FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "origin.test" "mat4">
(LOAD origin.test TIMEOUT)
overlordecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD overlord CRASH)
(LOAD overlord FAIL) SI:SIMPLE-PROGRAM-ERROR : In form (INCF (ENSURE2 (TARGET-TABLE-REF TABLE (KEY TARGET)) 0)) Wrong number of arguments passed to function ENSURE2.
petalispabcl-1.2.1-fasl42-linux-x86
(LOAD petalisp.utilities FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD petalisp.utilities OK)
petalispabcl-1.3.0-fasl42-linux-x86
(LOAD petalisp.utilities FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD petalisp.utilities OK)
petalispabcl-1.3.1-fasl42-linux-x86
(LOAD petalisp.utilities FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD petalisp.utilities OK)
petalispabcl-1.3.2-fasl42-linux-x86
(LOAD petalisp.utilities FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD petalisp.utilities OK)
petalispabcl-1.4.0-fasl42-linux-x86
(LOAD petalisp.utilities FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD petalisp.utilities OK)
petalispabcl-1.5.0-fasl43-bsd-x64
(LOAD petalisp.utilities FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD petalisp.utilities OK)
petalispabcl-1.5.0-fasl43-linux-x86
(LOAD petalisp.utilities FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD petalisp.utilities OK)
petalispccl-1.10-r16196-f96-linux-x86
(LOAD petalisp.core FAIL) COMMON-LISP:UNBOUND-VARIABLE : Unbound variable: TYPE-CODE-LIMIT
(LOAD petalisp.reference-backend FAIL) COMMON-LISP:UNBOUND-VARIABLE : Unbound variable: TYPE-CODE-LIMIT
(LOAD petalisp.core OK)
(LOAD petalisp.reference-backend OK)
petalispccl-1.11-5-rv1.11.5-f96-linux-x86
(LOAD petalisp.core FAIL) COMMON-LISP:UNBOUND-VARIABLE : Unbound variable: TYPE-CODE-LIMIT
(LOAD petalisp.reference-backend FAIL) COMMON-LISP:UNBOUND-VARIABLE : Unbound variable: TYPE-CODE-LIMIT
(LOAD petalisp.core OK)
(LOAD petalisp.reference-backend OK)
petalispccl-1.11-r16635-f96-linux-x86
(LOAD petalisp.core FAIL) COMMON-LISP:UNBOUND-VARIABLE : Unbound variable: TYPE-CODE-LIMIT
(LOAD petalisp.reference-backend FAIL) COMMON-LISP:UNBOUND-VARIABLE : Unbound variable: TYPE-CODE-LIMIT
(LOAD petalisp.core OK)
(LOAD petalisp.reference-backend OK)
petalispccl-1.11-r16702m-f101-linux-arm
(LOAD petalisp.core FAIL) COMMON-LISP:UNBOUND-VARIABLE : Unbound variable: TYPE-CODE-LIMIT
(LOAD petalisp.reference-backend FAIL) COMMON-LISP:UNBOUND-VARIABLE : Unbound variable: TYPE-CODE-LIMIT
(LOAD petalisp.core OK)
(LOAD petalisp.reference-backend OK)
petalispcmu-snapshot-2014-12___20f_unicode_-linux-x86
(LOAD petalisp.test-suite FAIL) C::COMPILER-ERROR : Misplaced declaration.
(LOAD petalisp.test-suite CRASH)
petalispecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD petalisp.native-backend CRASH)
(LOAD petalisp.native-backend FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/PETALISP.TYPE-INFERENCE:AND-FN| is not compatible with the function AND-FN.
petalispecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD petalisp CRASH)
(LOAD petalisp.api CRASH)
(LOAD petalisp.core CRASH)
(LOAD petalisp.examples CRASH)
(LOAD petalisp.graphviz CRASH)
(LOAD petalisp.ir CRASH)
(LOAD petalisp.ir-backend CRASH)
(LOAD petalisp.native-backend CRASH)
(LOAD petalisp.reference-backend CRASH)
(LOAD petalisp.test-suite CRASH)
(LOAD petalisp FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/PETALISP.TYPE-INFERENCE:AND-FN| is not compatible with the function AND-FN.
(LOAD petalisp.api FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/PETALISP.TYPE-INFERENCE:AND-FN| is not compatible with the function AND-FN.
(LOAD petalisp.core FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/PETALISP.TYPE-INFERENCE:AND-FN| is not compatible with the function AND-FN.
(LOAD petalisp.examples FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/PETALISP.TYPE-INFERENCE:AND-FN| is not compatible with the function AND-FN.
(LOAD petalisp.graphviz FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/PETALISP.TYPE-INFERENCE:AND-FN| is not compatible with the function AND-FN.
(LOAD petalisp.ir FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/PETALISP.TYPE-INFERENCE:AND-FN| is not compatible with the function AND-FN.
(LOAD petalisp.ir-backend FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/PETALISP.TYPE-INFERENCE:AND-FN| is not compatible with the function AND-FN.
(LOAD petalisp.native-backend FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/PETALISP.TYPE-INFERENCE:AND-FN| is not compatible with the function AND-FN.
(LOAD petalisp.reference-backend FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/PETALISP.TYPE-INFERENCE:AND-FN| is not compatible with the function AND-FN.
(LOAD petalisp.test-suite FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/PETALISP.TYPE-INFERENCE:AND-FN| is not compatible with the function AND-FN.
petalispecl-16.1.2-unknown-linux-x86-bytecode
(LOAD petalisp.api CRASH)
(LOAD petalisp.reference-backend CRASH)
(LOAD petalisp.test-suite CRASH)
(LOAD petalisp.api FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/PETALISP.TYPE-INFERENCE:AND-FN| is not compatible with the function AND-FN.
(LOAD petalisp.reference-backend FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/PETALISP.TYPE-INFERENCE:AND-FN| is not compatible with the function AND-FN.
(LOAD petalisp.test-suite FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/PETALISP.TYPE-INFERENCE:AND-FN| is not compatible with the function AND-FN.
petalispecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD petalisp CRASH)
(LOAD petalisp.api CRASH)
(LOAD petalisp.core CRASH)
(LOAD petalisp.examples CRASH)
(LOAD petalisp.graphviz CRASH)
(LOAD petalisp.ir CRASH)
(LOAD petalisp.ir-backend CRASH)
(LOAD petalisp.native-backend CRASH)
(LOAD petalisp.reference-backend CRASH)
(LOAD petalisp.test-suite CRASH)
(LOAD petalisp FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/COMMON-LISP:REALP| is not compatible with the function REALP.
(LOAD petalisp.api FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/COMMON-LISP:REALP| is not compatible with the function REALP.
(LOAD petalisp.core FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/COMMON-LISP:REALP| is not compatible with the function REALP.
(LOAD petalisp.examples FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/COMMON-LISP:REALP| is not compatible with the function REALP.
(LOAD petalisp.graphviz FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/COMMON-LISP:REALP| is not compatible with the function REALP.
(LOAD petalisp.ir FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/COMMON-LISP:REALP| is not compatible with the function REALP.
(LOAD petalisp.ir-backend FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/COMMON-LISP:REALP| is not compatible with the function REALP.
(LOAD petalisp.native-backend FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/COMMON-LISP:REALP| is not compatible with the function REALP.
(LOAD petalisp.reference-backend FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/COMMON-LISP:REALP| is not compatible with the function REALP.
(LOAD petalisp.test-suite FAIL) COMMON-LISP:SIMPLE-ERROR : The lambda list of the external rule |SPECIALIZE/COMMON-LISP:REALP| is not compatible with the function REALP.
petalispsbcl-1.2.6-linux-x86
(LOAD petalisp.graphviz OK)
(LOAD petalisp.graphviz FAIL) SB-INT:SIMPLE-PARSE-ERROR : junk in string ".2 "
petalispsbcl-1.3.12-linux-x86
(LOAD petalisp.api OK)
(LOAD petalisp.examples OK)
(LOAD petalisp.graphviz OK)
(LOAD petalisp.test-suite OK)
(LOAD petalisp.api FAIL) SB-INT:SIMPLE-PARSE-ERROR : junk in string ".2 "
(LOAD petalisp.examples FAIL) SB-INT:SIMPLE-PARSE-ERROR : junk in string ".2 "
(LOAD petalisp.graphviz FAIL) SB-INT:SIMPLE-PARSE-ERROR : junk in string ".2 "
(LOAD petalisp.test-suite FAIL) SB-INT:SIMPLE-PARSE-ERROR : junk in string ".2 "
piggyback-parametersabcl-1.3.0-fasl42-linux-x86
(LOAD piggyback-parameters FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system ironclad from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/ironclad-v0.46/ironclad.asd: don't recognize component type :TEST-VECTOR-FILE
(LOAD piggyback-parameters OK)
piggyback-parametersabcl-1.3.1-fasl42-linux-x86
(LOAD piggyback-parameters FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD piggyback-parameters OK)
piggyback-parametersabcl-1.3.2-fasl42-linux-x86
(LOAD piggyback-parameters FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD piggyback-parameters OK)
piggyback-parametersabcl-1.4.0-fasl42-linux-x86
(LOAD piggyback-parameters FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD piggyback-parameters OK)
piggyback-parametersabcl-1.5.0-fasl43-bsd-x64
(LOAD piggyback-parameters FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD piggyback-parameters OK)
piggyback-parametersabcl-1.5.0-fasl43-linux-x86
(LOAD piggyback-parameters FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD piggyback-parameters OK)
piggyback-parametersecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD piggyback-parameters FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD piggyback-parameters OK)
piggyback-parametersecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD piggyback-parameters FAIL) COMMON-LISP:SIMPLE-ERROR : * is not a valid type specifier.
(LOAD piggyback-parameters OK)
piggyback-parametersecl-16.1.2-unknown-linux-x86-bytecode
(LOAD piggyback-parameters FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD piggyback-parameters OK)
piggyback-parametersecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD piggyback-parameters FAIL) COMMON-LISP:SIMPLE-ERROR : * is not a valid type specifier.
(LOAD piggyback-parameters OK)
piggyback-parametersecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD piggyback-parameters FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD piggyback-parameters OK)
piggyback-parameterssbcl-1.3.2.92-4077405-dirty-linux-arm
(LOAD piggyback-parameters FAIL) SB-INT:BUG : failed AVER: (OR (SB-ARM-ASM::REGISTER-P SB-ARM-ASM::OPERAND) (TYPEP SB-ARM-ASM::OPERAND '(INTEGER 1 31))) This is probably a bug in SBCL itself. (Alternatively, SBCL might have been corrupted by bad user code, e.g. by an undefined Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers from alien code or from unsafe Lisp code; or there might be a bug in the OS or hardware that SBCL is running on.) If it seems to be a bug in SBCL itself, the maintainers would like to know about it. Bug reports are welcome on the SBCL mailing lists, which you can find at <http://sbcl.sourceforge.net/>.
(LOAD piggyback-parameters OK)
psychiqacl-10.0-linux-x86
(LOAD psychiq OK)
(LOAD psychiq-test OK)
(LOAD psychiq FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
(LOAD psychiq-test FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
psychiqacl-10.0s-linux-x86
(LOAD psychiq OK)
(LOAD psychiq-test OK)
(LOAD psychiq FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
(LOAD psychiq-test FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
psychiqacl-10.1-linux-x86
(LOAD psychiq OK)
(LOAD psychiq-test OK)
(LOAD psychiq FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
(LOAD psychiq-test FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
psychiqacl-10.1s-linux-x86
(LOAD psychiq OK)
(LOAD psychiq-test OK)
(LOAD psychiq FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
(LOAD psychiq-test FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
psychiqccl-1.10-r16196-f96-linux-x86
(LOAD psychiq OK)
(LOAD psychiq-test OK)
(LOAD psychiq CRASH)
(LOAD psychiq-test CRASH)
psychiqccl-1.11-5-rv1.11.5-f96-linux-x86
(LOAD psychiq OK)
(LOAD psychiq-test OK)
(LOAD psychiq CRASH)
(LOAD psychiq-test CRASH)
psychiqccl-1.11-r16635-f96-linux-x86
(LOAD psychiq OK)
(LOAD psychiq-test OK)
(LOAD psychiq CRASH)
(LOAD psychiq-test CRASH)
psychiqccl-1.11-r16702m-f101-linux-arm
(LOAD psychiq OK)
(LOAD psychiq-test OK)
(LOAD psychiq CRASH)
(LOAD psychiq-test CRASH)
py4clabcl-1.4.0-fasl42-linux-x86
(LOAD py4cl OK)
(LOAD py4cl FAIL) COMMON-LISP:PROGRAM-ERROR : Wrong number of arguments for DEFCONSTANT.
py4clabcl-1.5.0-fasl43-bsd-x64
(LOAD py4cl OK)
(LOAD py4cl FAIL) COMMON-LISP:PROGRAM-ERROR : Wrong number of arguments for DEFCONSTANT.
py4clabcl-1.5.0-fasl43-linux-x86
(LOAD py4cl OK)
(LOAD py4cl FAIL) COMMON-LISP:PROGRAM-ERROR : Wrong number of arguments for DEFCONSTANT.
py4clccl-1.10-r16196-f96-linux-x86
(LOAD py4cl FAIL) COMMON-LISP:SIMPLE-ERROR : Reader error: No external symbol named "LAUNCH-PROGRAM" in package #<Package "UIOP/DRIVER"> .
(LOAD py4cl OK)
py4clccl-1.11-5-rv1.11.5-f96-linux-x86
(LOAD py4cl FAIL) COMMON-LISP:SIMPLE-ERROR : Reader error: No external symbol named "LAUNCH-PROGRAM" in package #<Package "UIOP/DRIVER"> .
(LOAD py4cl OK)
py4clccl-1.11-r16635-f96-linux-x86
(LOAD py4cl FAIL) COMMON-LISP:SIMPLE-ERROR : Reader error: No external symbol named "LAUNCH-PROGRAM" in package #<Package "UIOP/DRIVER"> .
(LOAD py4cl OK)
py4clccl-1.9-r15756-f96-linux-x86
(LOAD py4cl FAIL) COMMON-LISP:SIMPLE-ERROR : Reader error: No external symbol named "LAUNCH-PROGRAM" in package #<Package "UIOP/DRIVER"> .
(LOAD py4cl OK)
py4clecl-13.5.1-unknown-linux-i686-bytecode
(LOAD py4cl FAIL) COMMON-LISP:SIMPLE-ERROR : Cannot find the external symbol LAUNCH-PROGRAM in #<"UIOP/DRIVER" package>.
(LOAD py4cl OK)
py4clecl-13.5.1-unknown-linux-i686-lisp-to-c
(LOAD py4cl FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<cl-source-file "py4cl" "python-process">
(LOAD py4cl OK)
py4clecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD py4cl FAIL) COMMON-LISP:SIMPLE-ERROR : Cannot find the external symbol LAUNCH-PROGRAM in #<"UIOP/DRIVER" package>.
(LOAD py4cl OK)
py4clecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD py4cl FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<cl-source-file "py4cl" "python-process">
(LOAD py4cl OK)
py4clecl-16.1.2-unknown-linux-x86-bytecode
(LOAD py4cl FAIL) COMMON-LISP:SIMPLE-ERROR : Cannot find the external symbol LAUNCH-PROGRAM in #<"UIOP/DRIVER" package>.
(LOAD py4cl OK)
py4clecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD py4cl FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<cl-source-file "py4cl" "python-process">
(LOAD py4cl OK)
py4clsbcl-1.1.11-linux-x86
(LOAD py4cl FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "py4cl" "python-process">
(LOAD py4cl OK)
py4clsbcl-1.1.16-linux-x86
(LOAD py4cl FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "py4cl" "python-process">
(LOAD py4cl OK)
py4clsbcl-1.2.6-linux-x86
(LOAD py4cl FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "py4cl" "python-process">
(LOAD py4cl OK)
py4clsbcl-1.3.12-linux-x86
(LOAD py4cl FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "py4cl" "python-process">
(LOAD py4cl OK)
py4clsbcl-1.3.17-linux-x86
(LOAD py4cl FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "py4cl" "python-process">
(LOAD py4cl OK)
py4clsbcl-1.3.20-linux-x86
(LOAD py4cl FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "py4cl" "python-process">
(LOAD py4cl OK)
py4clsbcl-1.3.21-linux-x86
(LOAD py4cl FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "py4cl" "python-process">
(LOAD py4cl OK)
qlotabcl-1.3.2-fasl42-linux-x86
(LOAD qlot OK)
(LOAD qlot FAIL) COMMON-LISP:READER-ERROR : The package "ASDF/SESSION" can't be found.
qlotabcl-1.4.0-fasl42-linux-x86
(LOAD qlot OK)
(LOAD qlot FAIL) COMMON-LISP:READER-ERROR : The package "ASDF/SESSION" can't be found.
qlotabcl-1.5.0-fasl43-bsd-x64
(LOAD qlot OK)
(LOAD qlot FAIL) COMMON-LISP:READER-ERROR : The package "ASDF/SESSION" can't be found.
qlotabcl-1.5.0-fasl43-linux-x86
(LOAD qlot OK)
(LOAD qlot FAIL) COMMON-LISP:READER-ERROR : The package "ASDF/SESSION" can't be found.
qlotacl-10.0-linux-x86
(LOAD qlot OK)
(LOAD qlot FAIL) COMMON-LISP:READER-ERROR : Package "ASDF/SESSION" not found. [file position = 9567]
qlotacl-10.0m-linux-x86
(LOAD qlot OK)
(LOAD qlot FAIL) common-lisp:reader-error : Package "asdf/session" not found. [file position = 9567]
qlotacl-10.0ms-linux-x86
(LOAD qlot OK)
(LOAD qlot FAIL) common-lisp:reader-error : Package "asdf/session" not found. [file position = 9567]
qlotacl-10.0s-linux-x86
(LOAD qlot OK)
(LOAD qlot FAIL) COMMON-LISP:READER-ERROR : Package "ASDF/SESSION" not found. [file position = 9567]
qlotacl-10.1-linux-x86
(LOAD qlot OK)
(LOAD qlot FAIL) COMMON-LISP:READER-ERROR : Package "ASDF/SESSION" not found. [file position = 9567]
qlotacl-10.1m-linux-x86
(LOAD qlot OK)
(LOAD qlot FAIL) common-lisp:reader-error : Package "asdf/session" not found. [file position = 9567]
qlotacl-10.1ms-linux-x86
(LOAD qlot OK)
(LOAD qlot FAIL) common-lisp:reader-error : Package "asdf/session" not found. [file position = 9567]
qlotacl-10.1s-linux-x86
(LOAD qlot OK)
(LOAD qlot FAIL) COMMON-LISP:READER-ERROR : Package "ASDF/SESSION" not found. [file position = 9567]
qlotccl-1.10-r16196-f96-linux-x86
(LOAD qlot OK)
(LOAD qlot FAIL) CCL::NO-SUCH-PACKAGE : There is no package named "ASDF/SESSION" .
qlotccl-1.11-5-rv1.11.5-f96-linux-x86
(LOAD qlot OK)
(LOAD qlot FAIL) CCL::NO-SUCH-PACKAGE : There is no package named "ASDF/SESSION" .
qlotccl-1.11-r16635-f96-linux-x86
(LOAD qlot OK)
(LOAD qlot FAIL) CCL::NO-SUCH-PACKAGE : There is no package named "ASDF/SESSION" .
qlotccl-1.11-r16702m-f101-linux-arm
(LOAD qlot OK)
(LOAD qlot FAIL) CCL::NO-SUCH-PACKAGE : There is no package named "ASDF/SESSION" .
qlotcmu-snapshot-2014-12___20f_unicode_-linux-x86
(LOAD qlot OK)
(LOAD qlot FAIL) C::COMPILER-READ-ERROR : Read error at 9584: "(asdf/session:with-asdf-session/\ (:override t)" Reader error at 9599 on #<Stream for file "/home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/qlot-20191007-git/util.lisp">: package "ASDF/SESSION" not found
qlotcmu-snapshot-2016-12__21b_unicode_-linux-x86
(LOAD qlot OK)
(LOAD qlot FAIL) C::COMPILER-READ-ERROR : Read error at 9584: "(asdf/session:with-asdf-session/\ (:override t)" Reader error at 9599 on #<Stream for file "/home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/qlot-20191007-git/util.lisp">: package "ASDF/SESSION" not found
qlotecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD qlot OK)
(LOAD qlot FAIL) COMMON-LISP:SIMPLE-ERROR : There is no package with the name ASDF/SESSION.
qlotecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD qlot OK)
(LOAD qlot FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<cl-source-file "qlot/util" "lisp">
qlotecl-16.1.2-unknown-linux-x86-bytecode
(LOAD qlot OK)
(LOAD qlot FAIL) COMMON-LISP:SIMPLE-ERROR : There is no package with the name ASDF/SESSION.
qlotecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD qlot OK)
(LOAD qlot FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<cl-source-file "qlot/util" "lisp">
qlotecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD qlot OK)
(LOAD qlot FAIL) COMMON-LISP:SIMPLE-ERROR : There is no package with the name ASDF/SESSION.
qlotsbcl-1.2.6-linux-x86
(LOAD qlot OK)
(LOAD qlot FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "qlot/util" "lisp">
qlotsbcl-1.3.12-linux-x86
(LOAD qlot OK)
(LOAD qlot FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "qlot/util" "lisp">
qlotsbcl-1.3.17-linux-x86
(LOAD qlot OK)
(LOAD qlot FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "qlot/util" "lisp">
qlotsbcl-1.3.2.92-4077405-dirty-linux-arm
(LOAD qlot OK)
(LOAD qlot FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "qlot/util" "lisp">
qlotsbcl-1.3.20-linux-x86
(LOAD qlot OK)
(LOAD qlot FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "qlot/util" "lisp">
qlotsbcl-1.3.21-linux-x86
(LOAD qlot OK)
(LOAD qlot FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "qlot/util" "lisp">
qmyndecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD qmynd FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD qmynd-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD qmynd OK)
(LOAD qmynd-test OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD qmynd FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD qmynd-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD qmynd OK)
(LOAD qmynd-test OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD qmynd FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD qmynd-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD qmynd OK)
(LOAD qmynd-test OK)
racersbcl-1.3.21-linux-x86
(LOAD racer CRASH)
(LOAD racer OK)
random-sampleecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD random-sample FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD random-sample OK)
ecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD random-sample CRASH)
(LOAD random-sample OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD random-sample FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD random-sample OK)
ecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD random-sample CRASH)
(LOAD random-sample OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD random-sample FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD random-sample OK)
remote-jsecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD remote-js FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD remote-js-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD remote-js OK)
(LOAD remote-js-test OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD remote-js FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD remote-js-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD remote-js OK)
(LOAD remote-js-test OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD remote-js FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD remote-js-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD remote-js OK)
(LOAD remote-js-test OK)
replicabcl-1.2.1-fasl42-linux-x86
(LOAD replic OK)
(LOAD replic-test OK)
(LOAD replic FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
(LOAD replic-test FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
replicabcl-1.3.0-fasl42-linux-x86
(LOAD replic OK)
(LOAD replic-test OK)
(LOAD replic FAIL) COMMON-LISP:UNDEFINED-FUNCTION : The function ITEM is undefined.
(LOAD replic-test FAIL) COMMON-LISP:UNDEFINED-FUNCTION : The function ITEM is undefined.
replicabcl-1.3.1-fasl42-linux-x86
(LOAD replic OK)
(LOAD replic-test OK)
(LOAD replic FAIL) COMMON-LISP:UNDEFINED-FUNCTION : The function ITEM is undefined.
(LOAD replic-test FAIL) COMMON-LISP:UNDEFINED-FUNCTION : The function ITEM is undefined.
replicabcl-1.3.2-fasl42-linux-x86
(LOAD replic OK)
(LOAD replic-test OK)
(LOAD replic FAIL) COMMON-LISP:UNDEFINED-FUNCTION : The function ITEM is undefined.
(LOAD replic-test FAIL) COMMON-LISP:UNDEFINED-FUNCTION : The function ITEM is undefined.
replicacl-10.0-linux-x86
(LOAD replic OK)
(LOAD replic-test OK)
(LOAD replic FAIL) COMMON-LISP:SIMPLE-ERROR : Both prop: (DECLARE (IGNORABLE ENV)) and kind: (VALUES :DECLARE `(OPTIMIZER EXCL::BQ-COMMA (SECOND SPECIFIER))) args must be symbols.
(LOAD replic-test FAIL) COMMON-LISP:SIMPLE-ERROR : Both prop: (DECLARE (IGNORABLE ENV)) and kind: (VALUES :DECLARE `(OPTIMIZER EXCL::BQ-COMMA (SECOND SPECIFIER))) args must be symbols.
replicacl-10.0s-linux-x86
(LOAD replic OK)
(LOAD replic-test OK)
(LOAD replic FAIL) COMMON-LISP:SIMPLE-ERROR : Both prop: (DECLARE (IGNORABLE ENV)) and kind: (VALUES :DECLARE `(OPTIMIZER EXCL::BQ-COMMA (SECOND SPECIFIER))) args must be symbols.
(LOAD replic-test FAIL) COMMON-LISP:SIMPLE-ERROR : Both prop: (DECLARE (IGNORABLE ENV)) and kind: (VALUES :DECLARE `(OPTIMIZER EXCL::BQ-COMMA (SECOND SPECIFIER))) args must be symbols.
replicacl-10.1-linux-x86
(LOAD replic OK)
(LOAD replic-test OK)
(LOAD replic FAIL) COMMON-LISP:SIMPLE-ERROR : Both prop: (DECLARE (IGNORABLE ENV)) and kind: (VALUES :DECLARE `(OPTIMIZER EXCL::BQ-COMMA (SECOND SPECIFIER))) args must be symbols.
(LOAD replic-test FAIL) COMMON-LISP:SIMPLE-ERROR : Both prop: (DECLARE (IGNORABLE ENV)) and kind: (VALUES :DECLARE `(OPTIMIZER EXCL::BQ-COMMA (SECOND SPECIFIER))) args must be symbols.
replicacl-10.1s-linux-x86
(LOAD replic OK)
(LOAD replic-test OK)
(LOAD replic FAIL) COMMON-LISP:SIMPLE-ERROR : Both prop: (DECLARE (IGNORABLE ENV)) and kind: (VALUES :DECLARE `(OPTIMIZER EXCL::BQ-COMMA (SECOND SPECIFIER))) args must be symbols.
(LOAD replic-test FAIL) COMMON-LISP:SIMPLE-ERROR : Both prop: (DECLARE (IGNORABLE ENV)) and kind: (VALUES :DECLARE `(OPTIMIZER EXCL::BQ-COMMA (SECOND SPECIFIER))) args must be symbols.
replicecl-13.5.1-unknown-linux-i686-bytecode
(LOAD replic OK)
(LOAD replic-test OK)
(LOAD replic FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
(LOAD replic-test FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
replicecl-13.5.1-unknown-linux-i686-lisp-to-c
(LOAD replic OK)
(LOAD replic-test OK)
(LOAD replic FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
(LOAD replic-test FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
replicecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD replic OK)
(LOAD replic FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<cl-source-file "shlex" "shlex">
replicecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD replic OK)
(LOAD replic FAIL) COMMON-LISP:SIMPLE-ERROR : +STORAGE-FOR-DEFLEX-VAR-SAFE-CHAR-MAP+ is an already defined constant whose value #*00000000000000000000000000000000000001000001111111111111111001001111111111111111111111111110000101111111111111111111111111111111 is not equal to the provided initial value #*00000000000000000000000000000000000001000001111111111111111001001111111111111111111111111110000101111111111111111111111111100000 under SERAPEUM::SAME-LITERAL-P.
replicsbcl-1.1.11-linux-x86
(LOAD replic OK)
(LOAD replic-test OK)
(LOAD replic FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: READ error during COMPILE-FILE: You need ASDF >= 3.1 to load this system correctly.(in form starting at line: 1, column: 0, file-position: 0)
(LOAD replic-test FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: READ error during COMPILE-FILE: You need ASDF >= 3.1 to load this system correctly.(in form starting at line: 1, column: 0, file-position: 0)
replicsbcl-1.1.16-linux-x86
(LOAD replic OK)
(LOAD replic-test OK)
(LOAD replic FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: READ error during LOAD: You need ASDF >= 3.1 to load this system correctly.(in form starting at line: 1, column: 0, file-position: 0)
(LOAD replic-test FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: READ error during LOAD: You need ASDF >= 3.1 to load this system correctly.(in form starting at line: 1, column: 0, file-position: 0)
restricted-functionsabcl-1.2.1-fasl42-linux-x86
(LOAD restricted-functions FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD restricted-functions OK)
restricted-functionsabcl-1.3.0-fasl42-linux-x86
(LOAD restricted-functions FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD restricted-functions OK)
restricted-functionsabcl-1.3.1-fasl42-linux-x86
(LOAD restricted-functions FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD restricted-functions OK)
restricted-functionsabcl-1.3.2-fasl42-linux-x86
(LOAD restricted-functions FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD restricted-functions OK)
restricted-functionsabcl-1.4.0-fasl42-linux-x86
(LOAD restricted-functions FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD restricted-functions OK)
restricted-functionsabcl-1.5.0-fasl43-bsd-x64
(LOAD restricted-functions FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD restricted-functions OK)
restricted-functionsabcl-1.5.0-fasl43-linux-x86
(LOAD restricted-functions FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD restricted-functions OK)
restricted-functionscmu-snapshot-2014-12___20f_unicode_-linux-x86
(LOAD restricted-functions CRASH)
(LOAD restricted-functions FAIL) C::COMPILER-ERROR : Misplaced declaration.
restricted-functionsecl-13.5.1-unknown-linux-i686-bytecode
(LOAD restricted-functions FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized.
(LOAD restricted-functions OK)
restricted-functionsecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD restricted-functions CRASH)
(LOAD restricted-functions OK)
restricted-functionsecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD restricted-functions CRASH)
(LOAD restricted-functions OK)
restricted-functionsecl-16.1.2-unknown-linux-x86-bytecode
(LOAD restricted-functions CRASH)
(LOAD restricted-functions OK)
restricted-functionsecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD restricted-functions CRASH)
(LOAD restricted-functions OK)
restricted-functionsecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD restricted-functions FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD restricted-functions OK)
rockabcl-1.3.1-fasl42-linux-x86
(LOAD rock-test FAIL) IT.BESE.FIVEAM::CHECK-FAILURE : The following check failed: ((ROCK:BUILD :ROCK-TEST)) Test didn't finish.
(LOAD rock-test OK)
rutilsacl-10.0-linux-x86
(LOAD rutils OK)
(LOAD rutils FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
rutilsacl-10.0m-linux-x86
(LOAD rutils OK)
(LOAD rutils FAIL) common-lisp:simple-error : Can't abbreviate and-it
rutilsacl-10.0ms-linux-x86
(LOAD rutils OK)
(LOAD rutils FAIL) common-lisp:simple-error : Can't abbreviate and-it
rutilsacl-10.0s-linux-x86
(LOAD rutils OK)
(LOAD rutils FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
rutilsacl-10.1-linux-x86
(LOAD rutils OK)
(LOAD rutils FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
rutilsacl-10.1m-linux-x86
(LOAD rutils OK)
(LOAD rutils FAIL) common-lisp:simple-error : Can't abbreviate and-it
rutilsacl-10.1ms-linux-x86
(LOAD rutils OK)
(LOAD rutils FAIL) common-lisp:simple-error : Can't abbreviate and-it
rutilsacl-10.1s-linux-x86
(LOAD rutils OK)
(LOAD rutils FAIL) COMMON-LISP:SIMPLE-ERROR : Can't abbreviate AND-IT
rutilsccl-1.10-r16196-f96-linux-x86
(LOAD rutils OK)
(LOAD rutils-test OK)
(LOAD rutilsx OK)
(LOAD rutils CRASH)
(LOAD rutils-test CRASH)
(LOAD rutilsx CRASH)
rutilsccl-1.11-5-rv1.11.5-f96-linux-x86
(LOAD rutils OK)
(LOAD rutils-test OK)
(LOAD rutilsx OK)
(LOAD rutils CRASH)
(LOAD rutils-test CRASH)
(LOAD rutilsx CRASH)
rutilsccl-1.11-r16635-f96-linux-x86
(LOAD rutils OK)
(LOAD rutils-test OK)
(LOAD rutilsx OK)
(LOAD rutils CRASH)
(LOAD rutils-test CRASH)
(LOAD rutilsx CRASH)
rutilsccl-1.11-r16702m-f101-linux-arm
(LOAD rutils OK)
(LOAD rutils-test OK)
(LOAD rutilsx OK)
(LOAD rutils CRASH)
(LOAD rutils-test CRASH)
(LOAD rutilsx CRASH)
semantic-spinneretecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD semantic-spinneret FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD semantic-spinneret OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD semantic-spinneret FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD semantic-spinneret OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD semantic-spinneret FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD semantic-spinneret OK)
serapeumecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD serapeum FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD serapeum OK)
ecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD serapeum CRASH)
(LOAD serapeum OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD serapeum FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD serapeum OK)
ecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD serapeum CRASH)
(LOAD serapeum OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD serapeum FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD serapeum OK)
should-testccl-1.10-r16196-f96-linux-x86
(LOAD should-test OK)
(LOAD should-test CRASH)
ccl-1.11-5-rv1.11.5-f96-linux-x86
(LOAD should-test OK)
(LOAD should-test CRASH)
ccl-1.11-r16635-f96-linux-x86
(LOAD should-test OK)
(LOAD should-test CRASH)
ccl-1.11-r16702m-f101-linux-arm
(LOAD should-test OK)
(LOAD should-test CRASH)
simplified-typesabcl-1.2.1-fasl42-linux-x86
(LOAD simplified-types FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD simplified-types-test-suite FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD simplified-types OK)
(LOAD simplified-types-test-suite OK)
simplified-typesabcl-1.3.0-fasl42-linux-x86
(LOAD simplified-types FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD simplified-types-test-suite FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD simplified-types OK)
(LOAD simplified-types-test-suite OK)
simplified-typesabcl-1.3.1-fasl42-linux-x86
(LOAD simplified-types FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD simplified-types-test-suite FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD simplified-types OK)
(LOAD simplified-types-test-suite OK)
simplified-typesabcl-1.3.2-fasl42-linux-x86
(LOAD simplified-types FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD simplified-types-test-suite FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD simplified-types OK)
(LOAD simplified-types-test-suite OK)
simplified-typesabcl-1.4.0-fasl42-linux-x86
(LOAD simplified-types FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD simplified-types-test-suite FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD simplified-types OK)
(LOAD simplified-types-test-suite OK)
simplified-typesabcl-1.5.0-fasl43-bsd-x64
(LOAD simplified-types FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD simplified-types-test-suite FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD simplified-types OK)
(LOAD simplified-types-test-suite OK)
simplified-typesabcl-1.5.0-fasl43-linux-x86
(LOAD simplified-types FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD simplified-types-test-suite FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD simplified-types OK)
(LOAD simplified-types-test-suite OK)
simplified-typesecl-13.5.1-unknown-linux-i686-bytecode
(LOAD simplified-types FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized.
(LOAD simplified-types-test-suite FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized.
(LOAD simplified-types OK)
(LOAD simplified-types-test-suite OK)
simplified-typesecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD simplified-types FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD simplified-types-test-suite FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD simplified-types OK)
(LOAD simplified-types-test-suite OK)
simplified-typesecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD simplified-types CRASH)
(LOAD simplified-types-test-suite CRASH)
(LOAD simplified-types OK)
(LOAD simplified-types-test-suite OK)
simplified-typesecl-16.1.2-unknown-linux-x86-bytecode
(LOAD simplified-types FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD simplified-types-test-suite FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD simplified-types OK)
(LOAD simplified-types-test-suite OK)
simplified-typesecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD simplified-types CRASH)
(LOAD simplified-types-test-suite CRASH)
(LOAD simplified-types OK)
(LOAD simplified-types-test-suite OK)
simplified-typesecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD simplified-types FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD simplified-types-test-suite FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD simplified-types OK)
(LOAD simplified-types-test-suite OK)
snmpecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD snmp FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD snmp-server FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD snmp-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD snmp-ui FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD snmp OK)
(LOAD snmp-server OK)
(LOAD snmp-test OK)
(LOAD snmp-ui OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD snmp FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD snmp-server FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD snmp-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD snmp-ui FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD snmp OK)
(LOAD snmp-server OK)
(LOAD snmp-test OK)
(LOAD snmp-ui OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD snmp FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD snmp-server FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD snmp-test FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD snmp-ui FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD snmp OK)
(LOAD snmp-server OK)
(LOAD snmp-test OK)
(LOAD snmp-ui OK)
southecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD south FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD south OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD south FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD south OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD south FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD south OK)
spellcmu-snapshot-2014-12___20f_unicode_-linux-x86
(LOAD spell TIMEOUT)
(LOAD spell FAIL) KERNEL:HEAP-OVERFLOW : Heap (dynamic space) overflow
cmu-snapshot-2016-12__21b_unicode_-linux-x86
(LOAD spell FAIL) KERNEL:HEAP-OVERFLOW : Heap (dynamic space) overflow
(LOAD spell TIMEOUT)
spinneretecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD spinneret FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD spinneret OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD spinneret FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD spinneret OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD spinneret FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD spinneret OK)
static-dispatchabcl-1.2.1-fasl42-linux-x86
(LOAD static-dispatch FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD static-dispatch OK)
static-dispatchabcl-1.3.0-fasl42-linux-x86
(LOAD static-dispatch FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD static-dispatch OK)
static-dispatchabcl-1.3.1-fasl42-linux-x86
(LOAD static-dispatch FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD static-dispatch OK)
static-dispatchabcl-1.3.2-fasl42-linux-x86
(LOAD static-dispatch FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD static-dispatch OK)
static-dispatchabcl-1.4.0-fasl42-linux-x86
(LOAD static-dispatch FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD static-dispatch OK)
static-dispatchabcl-1.5.0-fasl43-bsd-x64
(LOAD static-dispatch FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD static-dispatch OK)
static-dispatchabcl-1.5.0-fasl43-linux-x86
(LOAD static-dispatch FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD static-dispatch OK)
static-dispatchecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD static-dispatch CRASH)
(LOAD static-dispatch OK)
static-dispatchecl-16.1.2-unknown-linux-x86-bytecode
(LOAD static-dispatch CRASH)
(LOAD static-dispatch FAIL) SI:SIMPLE-PROGRAM-ERROR : In form (EXT:LAMBDA-BLOCK NIL) LAMBDA: No lambda list.
static-dispatchecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD static-dispatch CRASH)
(LOAD static-dispatch OK)
studio-clientecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD studio-client FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD studio-client OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD studio-client FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD studio-client OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD studio-client FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD studio-client OK)
triviaabcl-1.2.1-fasl42-linux-x86
(LOAD trivia FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.balland2006 FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.benchmark FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.cffi FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.level2 FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.ppcre FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.trivial FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia OK)
(LOAD trivia.balland2006 OK)
(LOAD trivia.benchmark OK)
(LOAD trivia.cffi OK)
(LOAD trivia.level2 OK)
(LOAD trivia.ppcre OK)
(LOAD trivia.trivial OK)
triviaabcl-1.3.0-fasl42-linux-x86
(LOAD trivia FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.balland2006 FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.benchmark FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.cffi FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.level2 FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.ppcre FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.quasiquote FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.trivial FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia OK)
(LOAD trivia.balland2006 OK)
(LOAD trivia.benchmark OK)
(LOAD trivia.cffi OK)
(LOAD trivia.level2 OK)
(LOAD trivia.ppcre OK)
(LOAD trivia.quasiquote OK)
(LOAD trivia.test OK)
(LOAD trivia.trivial OK)
triviaabcl-1.3.1-fasl42-linux-x86
(LOAD trivia FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.balland2006 FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.benchmark FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.cffi FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.level2 FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.ppcre FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.quasiquote FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.trivial FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia OK)
(LOAD trivia.balland2006 OK)
(LOAD trivia.benchmark OK)
(LOAD trivia.cffi OK)
(LOAD trivia.level2 OK)
(LOAD trivia.ppcre OK)
(LOAD trivia.quasiquote OK)
(LOAD trivia.test OK)
(LOAD trivia.trivial OK)
triviaabcl-1.3.2-fasl42-linux-x86
(LOAD trivia FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.balland2006 FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.benchmark FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.cffi FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.level2 FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.ppcre FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.quasiquote FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.trivial FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia OK)
(LOAD trivia.balland2006 OK)
(LOAD trivia.benchmark OK)
(LOAD trivia.cffi OK)
(LOAD trivia.level2 OK)
(LOAD trivia.ppcre OK)
(LOAD trivia.quasiquote OK)
(LOAD trivia.test OK)
(LOAD trivia.trivial OK)
triviaabcl-1.4.0-fasl42-linux-x86
(LOAD trivia FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.balland2006 FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.benchmark FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.level2 FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.ppcre FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.quasiquote FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.trivial FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia OK)
(LOAD trivia.balland2006 OK)
(LOAD trivia.benchmark OK)
(LOAD trivia.level2 OK)
(LOAD trivia.ppcre OK)
(LOAD trivia.quasiquote OK)
(LOAD trivia.trivial OK)
triviaabcl-1.5.0-fasl43-bsd-x64
(LOAD trivia FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.balland2006 FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.benchmark FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.level2 FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.ppcre FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.quasiquote FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.trivial FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia OK)
(LOAD trivia.balland2006 OK)
(LOAD trivia.benchmark OK)
(LOAD trivia.level2 OK)
(LOAD trivia.ppcre OK)
(LOAD trivia.quasiquote OK)
(LOAD trivia.trivial OK)
triviaabcl-1.5.0-fasl43-linux-x86
(LOAD trivia FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.balland2006 FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.benchmark FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.cffi FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.level2 FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.ppcre FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.quasiquote FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia.trivial FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivia OK)
(LOAD trivia.balland2006 OK)
(LOAD trivia.benchmark OK)
(LOAD trivia.cffi CRASH)
(LOAD trivia.level2 OK)
(LOAD trivia.ppcre OK)
(LOAD trivia.quasiquote OK)
(LOAD trivia.test CRASH)
(LOAD trivia.trivial OK)
triviacmu-snapshot-2014-12___20f_unicode_-linux-x86
(LOAD trivia.level2 CRASH)
(LOAD trivia.level2 FAIL) C::COMPILER-ERROR : Misplaced declaration.
trivial-continuationabcl-1.3.0-fasl42-linux-x86
(LOAD trivial-continuation FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system ironclad from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/ironclad-v0.46/ironclad.asd: don't recognize component type :TEST-VECTOR-FILE
(LOAD trivial-continuation OK)
trivial-continuationabcl-1.3.1-fasl42-linux-x86
(LOAD trivial-continuation FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-continuation OK)
trivial-continuationabcl-1.3.2-fasl42-linux-x86
(LOAD trivial-continuation FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-continuation OK)
trivial-continuationabcl-1.4.0-fasl42-linux-x86
(LOAD trivial-continuation FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-continuation OK)
trivial-continuationabcl-1.5.0-fasl43-bsd-x64
(LOAD trivial-continuation FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-continuation OK)
trivial-continuationabcl-1.5.0-fasl43-linux-x86
(LOAD trivial-continuation FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-continuation OK)
trivial-continuationcmu-snapshot-2014-12___20f_unicode_-linux-x86
(LOAD trivial-continuation FAIL) C::COMPILER-ERROR : (during macroexpansion) Error in function LISP::ASSERT-ERROR: The assertion (OR (NULL OPTS) (EQ (POP TYPE-LIST) '&OPTIONAL)) failed.
(LOAD trivial-continuation OK)
trivial-continuationcmu-snapshot-2016-12__21b_unicode_-linux-x86
(LOAD trivial-continuation FAIL) C::COMPILER-ERROR : (during macroexpansion) Error in function LISP::ASSERT-ERROR: The assertion (OR (NULL OPTS) (EQ (POP TYPE-LIST) '&OPTIONAL)) failed.
(LOAD trivial-continuation OK)
trivial-continuationecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD trivial-continuation FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-continuation OK)
trivial-continuationecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD trivial-continuation FAIL) COMMON-LISP:SIMPLE-ERROR : * is not a valid type specifier.
(LOAD trivial-continuation OK)
trivial-continuationecl-16.1.2-unknown-linux-x86-bytecode
(LOAD trivial-continuation FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-continuation OK)
trivial-continuationecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD trivial-continuation FAIL) COMMON-LISP:SIMPLE-ERROR : * is not a valid type specifier.
(LOAD trivial-continuation OK)
trivial-continuationecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD trivial-continuation FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-continuation OK)
trivial-continuationsbcl-1.3.2.92-4077405-dirty-linux-arm
(LOAD trivial-continuation FAIL) SB-INT:BUG : failed AVER: (OR (SB-ARM-ASM::REGISTER-P SB-ARM-ASM::OPERAND) (TYPEP SB-ARM-ASM::OPERAND '(INTEGER 1 31))) This is probably a bug in SBCL itself. (Alternatively, SBCL might have been corrupted by bad user code, e.g. by an undefined Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers from alien code or from unsafe Lisp code; or there might be a bug in the OS or hardware that SBCL is running on.) If it seems to be a bug in SBCL itself, the maintainers would like to know about it. Bug reports are welcome on the SBCL mailing lists, which you can find at <http://sbcl.sourceforge.net/>.
(LOAD trivial-continuation OK)
trivial-downloadabcl-1.3.1-fasl42-linux-x86
(LOAD trivial-download-test OK)
(LOAD trivial-download-test FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system rove from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/rove-20191007-git/rove.asd: don't recognize component type :PACKAGE-INFERRED-SYSTEM
trivial-hashtable-serializeabcl-1.2.1-fasl42-linux-x86
(LOAD trivial-hashtable-serialize FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
(LOAD trivial-hashtable-serialize OK)
trivial-hashtable-serializeabcl-1.3.0-fasl42-linux-x86
(LOAD trivial-hashtable-serialize FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system ironclad from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/ironclad-v0.46/ironclad.asd: don't recognize component type :TEST-VECTOR-FILE
(LOAD trivial-hashtable-serialize OK)
trivial-hashtable-serializeabcl-1.3.1-fasl42-linux-x86
(LOAD trivial-hashtable-serialize FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-hashtable-serialize OK)
trivial-hashtable-serializeabcl-1.3.2-fasl42-linux-x86
(LOAD trivial-hashtable-serialize FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-hashtable-serialize OK)
trivial-hashtable-serializeabcl-1.4.0-fasl42-linux-x86
(LOAD trivial-hashtable-serialize FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-hashtable-serialize OK)
trivial-hashtable-serializeabcl-1.5.0-fasl43-bsd-x64
(LOAD trivial-hashtable-serialize FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-hashtable-serialize OK)
trivial-hashtable-serializeabcl-1.5.0-fasl43-linux-x86
(LOAD trivial-hashtable-serialize FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-hashtable-serialize OK)
trivial-hashtable-serializeccl-1.9-r15756-f96-linux-x86
(LOAD trivial-hashtable-serialize FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
(LOAD trivial-hashtable-serialize OK)
trivial-hashtable-serializecmu-snapshot-2013-04__20d_unicode_-linux-x86
(LOAD trivial-hashtable-serialize FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: Error in function "Top-Level Form": You need ASDF >= 3.1 to load this system correctly.
(LOAD trivial-hashtable-serialize OK)
trivial-hashtable-serializecmu-snapshot-2014-01__20e_unicode_-linux-x86
(LOAD trivial-hashtable-serialize FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: Error in function "Top-Level Form": You need ASDF >= 3.1 to load this system correctly.
(LOAD trivial-hashtable-serialize OK)
trivial-hashtable-serializecmu-snapshot-2014-05-dirty__20e_unicode_-linux-x86
(LOAD trivial-hashtable-serialize FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: Error in function "Top-Level Form": You need ASDF >= 3.1 to load this system correctly.
(LOAD trivial-hashtable-serialize OK)
trivial-hashtable-serializecmu-snapshot-2014-12___20f_unicode_-linux-x86
(LOAD trivial-hashtable-serialize FAIL) C::COMPILER-ERROR : (during macroexpansion) Error in function LISP::ASSERT-ERROR: The assertion (OR (NULL OPTS) (EQ (POP TYPE-LIST) '&OPTIONAL)) failed.
(LOAD trivial-hashtable-serialize OK)
trivial-hashtable-serializecmu-snapshot-2016-12__21b_unicode_-linux-x86
(LOAD trivial-hashtable-serialize FAIL) C::COMPILER-ERROR : (during macroexpansion) Error in function LISP::ASSERT-ERROR: The assertion (OR (NULL OPTS) (EQ (POP TYPE-LIST) '&OPTIONAL)) failed.
(LOAD trivial-hashtable-serialize OK)
trivial-hashtable-serializeecl-13.5.1-unknown-linux-i686-bytecode
(LOAD trivial-hashtable-serialize FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
(LOAD trivial-hashtable-serialize OK)
trivial-hashtable-serializeecl-13.5.1-unknown-linux-i686-lisp-to-c
(LOAD trivial-hashtable-serialize FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
(LOAD trivial-hashtable-serialize OK)
trivial-hashtable-serializeecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD trivial-hashtable-serialize FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-hashtable-serialize OK)
trivial-hashtable-serializeecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD trivial-hashtable-serialize FAIL) COMMON-LISP:SIMPLE-ERROR : * is not a valid type specifier.
(LOAD trivial-hashtable-serialize OK)
trivial-hashtable-serializeecl-16.1.2-unknown-linux-x86-bytecode
(LOAD trivial-hashtable-serialize FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-hashtable-serialize OK)
trivial-hashtable-serializeecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD trivial-hashtable-serialize FAIL) COMMON-LISP:SIMPLE-ERROR : * is not a valid type specifier.
(LOAD trivial-hashtable-serialize OK)
trivial-hashtable-serializeecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD trivial-hashtable-serialize FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-hashtable-serialize OK)
trivial-hashtable-serializesbcl-1.1.11-linux-x86
(LOAD trivial-hashtable-serialize FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: READ error during COMPILE-FILE: You need ASDF >= 3.1 to load this system correctly.(in form starting at line: 1, column: 0, file-position: 0)
(LOAD trivial-hashtable-serialize OK)
trivial-hashtable-serializesbcl-1.1.16-linux-x86
(LOAD trivial-hashtable-serialize FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: READ error during LOAD: You need ASDF >= 3.1 to load this system correctly.(in form starting at line: 1, column: 0, file-position: 0)
(LOAD trivial-hashtable-serialize OK)
trivial-hashtable-serializesbcl-1.3.2.92-4077405-dirty-linux-arm
(LOAD trivial-hashtable-serialize FAIL) SB-INT:BUG : failed AVER: (OR (SB-ARM-ASM::REGISTER-P SB-ARM-ASM::OPERAND) (TYPEP SB-ARM-ASM::OPERAND '(INTEGER 1 31))) This is probably a bug in SBCL itself. (Alternatively, SBCL might have been corrupted by bad user code, e.g. by an undefined Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers from alien code or from unsafe Lisp code; or there might be a bug in the OS or hardware that SBCL is running on.) If it seems to be a bug in SBCL itself, the maintainers would like to know about it. Bug reports are welcome on the SBCL mailing lists, which you can find at <http://sbcl.sourceforge.net/>.
(LOAD trivial-hashtable-serialize OK)
trivial-json-codecabcl-1.3.0-fasl42-linux-x86
(LOAD trivial-json-codec FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system ironclad from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/ironclad-v0.46/ironclad.asd: don't recognize component type :TEST-VECTOR-FILE
(LOAD trivial-json-codec OK)
trivial-json-codecabcl-1.3.1-fasl42-linux-x86
(LOAD trivial-json-codec FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-json-codec OK)
trivial-json-codecabcl-1.3.2-fasl42-linux-x86
(LOAD trivial-json-codec FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-json-codec OK)
trivial-json-codecabcl-1.4.0-fasl42-linux-x86
(LOAD trivial-json-codec FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-json-codec OK)
trivial-json-codecabcl-1.5.0-fasl43-bsd-x64
(LOAD trivial-json-codec FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-json-codec OK)
trivial-json-codecabcl-1.5.0-fasl43-linux-x86
(LOAD trivial-json-codec FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-json-codec OK)
trivial-json-codeccmu-snapshot-2014-12___20f_unicode_-linux-x86
(LOAD trivial-json-codec FAIL) C::COMPILER-ERROR : (during macroexpansion) Error in function LISP::ASSERT-ERROR: The assertion (OR (NULL OPTS) (EQ (POP TYPE-LIST) '&OPTIONAL)) failed.
(LOAD trivial-json-codec OK)
trivial-json-codeccmu-snapshot-2016-12__21b_unicode_-linux-x86
(LOAD trivial-json-codec FAIL) C::COMPILER-ERROR : (during macroexpansion) Error in function LISP::ASSERT-ERROR: The assertion (OR (NULL OPTS) (EQ (POP TYPE-LIST) '&OPTIONAL)) failed.
(LOAD trivial-json-codec OK)
trivial-json-codececl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD trivial-json-codec FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-json-codec OK)
trivial-json-codececl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD trivial-json-codec FAIL) COMMON-LISP:SIMPLE-ERROR : * is not a valid type specifier.
(LOAD trivial-json-codec OK)
trivial-json-codececl-16.1.2-unknown-linux-x86-bytecode
(LOAD trivial-json-codec FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-json-codec OK)
trivial-json-codececl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD trivial-json-codec FAIL) COMMON-LISP:SIMPLE-ERROR : * is not a valid type specifier.
(LOAD trivial-json-codec OK)
trivial-json-codececl-16.1.3-unknown-bsd-x64-bytecode
(LOAD trivial-json-codec FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-json-codec OK)
trivial-json-codecsbcl-1.3.2.92-4077405-dirty-linux-arm
(LOAD trivial-json-codec FAIL) SB-INT:BUG : failed AVER: (OR (SB-ARM-ASM::REGISTER-P SB-ARM-ASM::OPERAND) (TYPEP SB-ARM-ASM::OPERAND '(INTEGER 1 31))) This is probably a bug in SBCL itself. (Alternatively, SBCL might have been corrupted by bad user code, e.g. by an undefined Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers from alien code or from unsafe Lisp code; or there might be a bug in the OS or hardware that SBCL is running on.) If it seems to be a bug in SBCL itself, the maintainers would like to know about it. Bug reports are welcome on the SBCL mailing lists, which you can find at <http://sbcl.sourceforge.net/>.
(LOAD trivial-json-codec OK)
trivial-monitored-threadabcl-1.3.0-fasl42-linux-x86
(LOAD trivial-monitored-thread FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system ironclad from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/ironclad-v0.46/ironclad.asd: don't recognize component type :TEST-VECTOR-FILE
(LOAD trivial-monitored-thread OK)
trivial-monitored-threadabcl-1.3.1-fasl42-linux-x86
(LOAD trivial-monitored-thread FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-monitored-thread OK)
trivial-monitored-threadabcl-1.3.2-fasl42-linux-x86
(LOAD trivial-monitored-thread FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-monitored-thread OK)
trivial-monitored-threadabcl-1.4.0-fasl42-linux-x86
(LOAD trivial-monitored-thread FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-monitored-thread OK)
trivial-monitored-threadabcl-1.5.0-fasl43-bsd-x64
(LOAD trivial-monitored-thread FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-monitored-thread OK)
trivial-monitored-threadabcl-1.5.0-fasl43-linux-x86
(LOAD trivial-monitored-thread FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-monitored-thread OK)
trivial-monitored-threadcmu-snapshot-2014-12___20f_unicode_-linux-x86
(LOAD trivial-monitored-thread FAIL) C::COMPILER-ERROR : (during macroexpansion) Error in function LISP::ASSERT-ERROR: The assertion (OR (NULL OPTS) (EQ (POP TYPE-LIST) '&OPTIONAL)) failed.
(LOAD trivial-monitored-thread OK)
trivial-monitored-threadcmu-snapshot-2016-12__21b_unicode_-linux-x86
(LOAD trivial-monitored-thread FAIL) C::COMPILER-ERROR : (during macroexpansion) Error in function LISP::ASSERT-ERROR: The assertion (OR (NULL OPTS) (EQ (POP TYPE-LIST) '&OPTIONAL)) failed.
(LOAD trivial-monitored-thread OK)
trivial-monitored-threadecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD trivial-monitored-thread FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-monitored-thread OK)
trivial-monitored-threadecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD trivial-monitored-thread FAIL) COMMON-LISP:SIMPLE-ERROR : * is not a valid type specifier.
(LOAD trivial-monitored-thread OK)
trivial-monitored-threadecl-16.1.2-unknown-linux-x86-bytecode
(LOAD trivial-monitored-thread FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-monitored-thread OK)
trivial-monitored-threadecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD trivial-monitored-thread FAIL) COMMON-LISP:SIMPLE-ERROR : * is not a valid type specifier.
(LOAD trivial-monitored-thread OK)
trivial-monitored-threadecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD trivial-monitored-thread FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-monitored-thread OK)
trivial-monitored-threadsbcl-1.3.2.92-4077405-dirty-linux-arm
(LOAD trivial-monitored-thread FAIL) SB-INT:BUG : failed AVER: (OR (SB-ARM-ASM::REGISTER-P SB-ARM-ASM::OPERAND) (TYPEP SB-ARM-ASM::OPERAND '(INTEGER 1 31))) This is probably a bug in SBCL itself. (Alternatively, SBCL might have been corrupted by bad user code, e.g. by an undefined Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers from alien code or from unsafe Lisp code; or there might be a bug in the OS or hardware that SBCL is running on.) If it seems to be a bug in SBCL itself, the maintainers would like to know about it. Bug reports are welcome on the SBCL mailing lists, which you can find at <http://sbcl.sourceforge.net/>.
(LOAD trivial-monitored-thread OK)
trivial-object-lockabcl-1.3.0-fasl42-linux-x86
(LOAD trivial-object-lock FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system ironclad from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/ironclad-v0.46/ironclad.asd: don't recognize component type :TEST-VECTOR-FILE
(LOAD trivial-object-lock OK)
trivial-object-lockabcl-1.3.1-fasl42-linux-x86
(LOAD trivial-object-lock FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-object-lock OK)
trivial-object-lockabcl-1.3.2-fasl42-linux-x86
(LOAD trivial-object-lock FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-object-lock OK)
trivial-object-lockabcl-1.4.0-fasl42-linux-x86
(LOAD trivial-object-lock FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-object-lock OK)
trivial-object-lockabcl-1.5.0-fasl43-bsd-x64
(LOAD trivial-object-lock FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-object-lock OK)
trivial-object-lockabcl-1.5.0-fasl43-linux-x86
(LOAD trivial-object-lock FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-object-lock OK)
trivial-object-lockcmu-snapshot-2014-12___20f_unicode_-linux-x86
(LOAD trivial-object-lock FAIL) C::COMPILER-ERROR : (during macroexpansion) Error in function LISP::ASSERT-ERROR: The assertion (OR (NULL OPTS) (EQ (POP TYPE-LIST) '&OPTIONAL)) failed.
(LOAD trivial-object-lock OK)
trivial-object-lockcmu-snapshot-2016-12__21b_unicode_-linux-x86
(LOAD trivial-object-lock FAIL) C::COMPILER-ERROR : (during macroexpansion) Error in function LISP::ASSERT-ERROR: The assertion (OR (NULL OPTS) (EQ (POP TYPE-LIST) '&OPTIONAL)) failed.
(LOAD trivial-object-lock OK)
trivial-object-lockecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD trivial-object-lock FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-object-lock OK)
trivial-object-lockecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD trivial-object-lock FAIL) COMMON-LISP:SIMPLE-ERROR : * is not a valid type specifier.
(LOAD trivial-object-lock OK)
trivial-object-lockecl-16.1.2-unknown-linux-x86-bytecode
(LOAD trivial-object-lock FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-object-lock OK)
trivial-object-lockecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD trivial-object-lock FAIL) COMMON-LISP:SIMPLE-ERROR : * is not a valid type specifier.
(LOAD trivial-object-lock OK)
trivial-object-lockecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD trivial-object-lock FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-object-lock OK)
trivial-object-locksbcl-1.3.2.92-4077405-dirty-linux-arm
(LOAD trivial-object-lock FAIL) SB-INT:BUG : failed AVER: (OR (SB-ARM-ASM::REGISTER-P SB-ARM-ASM::OPERAND) (TYPEP SB-ARM-ASM::OPERAND '(INTEGER 1 31))) This is probably a bug in SBCL itself. (Alternatively, SBCL might have been corrupted by bad user code, e.g. by an undefined Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers from alien code or from unsafe Lisp code; or there might be a bug in the OS or hardware that SBCL is running on.) If it seems to be a bug in SBCL itself, the maintainers would like to know about it. Bug reports are welcome on the SBCL mailing lists, which you can find at <http://sbcl.sourceforge.net/>.
(LOAD trivial-object-lock OK)
trivial-pooled-databaseabcl-1.3.0-fasl42-linux-x86
(LOAD trivial-pooled-database FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system ironclad from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/ironclad-v0.46/ironclad.asd: don't recognize component type :TEST-VECTOR-FILE
(LOAD trivial-pooled-database OK)
trivial-pooled-databaseabcl-1.3.1-fasl42-linux-x86
(LOAD trivial-pooled-database FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-pooled-database OK)
trivial-pooled-databaseabcl-1.3.2-fasl42-linux-x86
(LOAD trivial-pooled-database FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-pooled-database OK)
trivial-pooled-databaseabcl-1.4.0-fasl42-linux-x86
(LOAD trivial-pooled-database FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-pooled-database OK)
trivial-pooled-databaseabcl-1.5.0-fasl43-bsd-x64
(LOAD trivial-pooled-database FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-pooled-database OK)
trivial-pooled-databaseabcl-1.5.0-fasl43-linux-x86
(LOAD trivial-pooled-database FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-pooled-database OK)
trivial-pooled-databaseecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD trivial-pooled-database FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-pooled-database OK)
trivial-pooled-databaseecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD trivial-pooled-database FAIL) COMMON-LISP:SIMPLE-ERROR : * is not a valid type specifier.
(LOAD trivial-pooled-database OK)
trivial-pooled-databaseecl-16.1.2-unknown-linux-x86-bytecode
(LOAD trivial-pooled-database FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-pooled-database OK)
trivial-pooled-databaseecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD trivial-pooled-database FAIL) COMMON-LISP:SIMPLE-ERROR : * is not a valid type specifier.
(LOAD trivial-pooled-database OK)
trivial-pooled-databaseecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD trivial-pooled-database FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-pooled-database OK)
trivial-pooled-databasesbcl-1.3.2.92-4077405-dirty-linux-arm
(LOAD trivial-pooled-database FAIL) SB-INT:BUG : failed AVER: (OR (SB-ARM-ASM::REGISTER-P SB-ARM-ASM::OPERAND) (TYPEP SB-ARM-ASM::OPERAND '(INTEGER 1 31))) This is probably a bug in SBCL itself. (Alternatively, SBCL might have been corrupted by bad user code, e.g. by an undefined Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers from alien code or from unsafe Lisp code; or there might be a bug in the OS or hardware that SBCL is running on.) If it seems to be a bug in SBCL itself, the maintainers would like to know about it. Bug reports are welcome on the SBCL mailing lists, which you can find at <http://sbcl.sourceforge.net/>.
(LOAD trivial-pooled-database OK)
trivial-timerabcl-1.3.0-fasl42-linux-x86
(LOAD trivial-timer FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system ironclad from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/ironclad-v0.46/ironclad.asd: don't recognize component type :TEST-VECTOR-FILE
(LOAD trivial-timer OK)
trivial-timerabcl-1.3.1-fasl42-linux-x86
(LOAD trivial-timer FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-timer OK)
trivial-timerabcl-1.3.2-fasl42-linux-x86
(LOAD trivial-timer FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-timer OK)
trivial-timerabcl-1.4.0-fasl42-linux-x86
(LOAD trivial-timer FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-timer OK)
trivial-timerabcl-1.5.0-fasl43-bsd-x64
(LOAD trivial-timer FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-timer OK)
trivial-timerabcl-1.5.0-fasl43-linux-x86
(LOAD trivial-timer FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-timer OK)
trivial-timercmu-snapshot-2014-12___20f_unicode_-linux-x86
(LOAD trivial-timer FAIL) C::COMPILER-ERROR : (during macroexpansion) Error in function LISP::ASSERT-ERROR: The assertion (OR (NULL OPTS) (EQ (POP TYPE-LIST) '&OPTIONAL)) failed.
(LOAD trivial-timer OK)
trivial-timercmu-snapshot-2016-12__21b_unicode_-linux-x86
(LOAD trivial-timer FAIL) C::COMPILER-ERROR : (during macroexpansion) Error in function LISP::ASSERT-ERROR: The assertion (OR (NULL OPTS) (EQ (POP TYPE-LIST) '&OPTIONAL)) failed.
(LOAD trivial-timer OK)
trivial-utilitiesabcl-1.2.1-fasl42-linux-x86
(LOAD trivial-utilities FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
(LOAD trivial-utilities OK)
trivial-utilitiesabcl-1.3.0-fasl42-linux-x86
(LOAD trivial-utilities FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system ironclad from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/ironclad-v0.46/ironclad.asd: don't recognize component type :TEST-VECTOR-FILE
(LOAD trivial-utilities OK)
trivial-utilitiesabcl-1.3.1-fasl42-linux-x86
(LOAD trivial-utilities FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-utilities OK)
trivial-utilitiesabcl-1.3.2-fasl42-linux-x86
(LOAD trivial-utilities FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-utilities OK)
trivial-utilitiesabcl-1.4.0-fasl42-linux-x86
(LOAD trivial-utilities FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-utilities OK)
trivial-utilitiesabcl-1.5.0-fasl43-bsd-x64
(LOAD trivial-utilities FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-utilities OK)
trivial-utilitiesabcl-1.5.0-fasl43-linux-x86
(LOAD trivial-utilities FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-utilities OK)
trivial-utilitiesccl-1.9-r15756-f96-linux-x86
(LOAD trivial-utilities FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
(LOAD trivial-utilities OK)
trivial-utilitiescmu-snapshot-2013-04__20d_unicode_-linux-x86
(LOAD trivial-utilities FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: Error in function "Top-Level Form": You need ASDF >= 3.1 to load this system correctly.
(LOAD trivial-utilities OK)
trivial-utilitiescmu-snapshot-2014-01__20e_unicode_-linux-x86
(LOAD trivial-utilities FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: Error in function "Top-Level Form": You need ASDF >= 3.1 to load this system correctly.
(LOAD trivial-utilities OK)
trivial-utilitiescmu-snapshot-2014-05-dirty__20e_unicode_-linux-x86
(LOAD trivial-utilities FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: Error in function "Top-Level Form": You need ASDF >= 3.1 to load this system correctly.
(LOAD trivial-utilities OK)
trivial-utilitiescmu-snapshot-2014-12___20f_unicode_-linux-x86
(LOAD trivial-utilities FAIL) C::COMPILER-ERROR : (during macroexpansion) Error in function LISP::ASSERT-ERROR: The assertion (OR (NULL OPTS) (EQ (POP TYPE-LIST) '&OPTIONAL)) failed.
(LOAD trivial-utilities OK)
trivial-utilitiescmu-snapshot-2016-12__21b_unicode_-linux-x86
(LOAD trivial-utilities FAIL) C::COMPILER-ERROR : (during macroexpansion) Error in function LISP::ASSERT-ERROR: The assertion (OR (NULL OPTS) (EQ (POP TYPE-LIST) '&OPTIONAL)) failed.
(LOAD trivial-utilities OK)
trivial-utilitiesecl-13.5.1-unknown-linux-i686-bytecode
(LOAD trivial-utilities FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
(LOAD trivial-utilities OK)
trivial-utilitiesecl-13.5.1-unknown-linux-i686-lisp-to-c
(LOAD trivial-utilities FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
(LOAD trivial-utilities OK)
trivial-utilitiesecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD trivial-utilities FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-utilities OK)
trivial-utilitiesecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD trivial-utilities FAIL) COMMON-LISP:SIMPLE-ERROR : * is not a valid type specifier.
(LOAD trivial-utilities OK)
trivial-utilitiesecl-16.1.2-unknown-linux-x86-bytecode
(LOAD trivial-utilities FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-utilities OK)
trivial-utilitiesecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD trivial-utilities FAIL) COMMON-LISP:SIMPLE-ERROR : * is not a valid type specifier.
(LOAD trivial-utilities OK)
trivial-utilitiesecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD trivial-utilities FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-utilities OK)
trivial-utilitiessbcl-1.1.11-linux-x86
(LOAD trivial-utilities FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: READ error during COMPILE-FILE: You need ASDF >= 3.1 to load this system correctly.(in form starting at line: 1, column: 0, file-position: 0)
(LOAD trivial-utilities OK)
trivial-utilitiessbcl-1.1.16-linux-x86
(LOAD trivial-utilities FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: READ error during LOAD: You need ASDF >= 3.1 to load this system correctly.(in form starting at line: 1, column: 0, file-position: 0)
(LOAD trivial-utilities OK)
trivial-utilitiessbcl-1.3.2.92-4077405-dirty-linux-arm
(LOAD trivial-utilities FAIL) SB-INT:BUG : failed AVER: (OR (SB-ARM-ASM::REGISTER-P SB-ARM-ASM::OPERAND) (TYPEP SB-ARM-ASM::OPERAND '(INTEGER 1 31))) This is probably a bug in SBCL itself. (Alternatively, SBCL might have been corrupted by bad user code, e.g. by an undefined Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers from alien code or from unsafe Lisp code; or there might be a bug in the OS or hardware that SBCL is running on.) If it seems to be a bug in SBCL itself, the maintainers would like to know about it. Bug reports are welcome on the SBCL mailing lists, which you can find at <http://sbcl.sourceforge.net/>.
(LOAD trivial-utilities OK)
trivial-variable-bindingsabcl-1.2.1-fasl42-linux-x86
(LOAD trivial-variable-bindings FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
(LOAD trivial-variable-bindings OK)
trivial-variable-bindingsabcl-1.3.0-fasl42-linux-x86
(LOAD trivial-variable-bindings FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system ironclad from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/ironclad-v0.46/ironclad.asd: don't recognize component type :TEST-VECTOR-FILE
(LOAD trivial-variable-bindings OK)
trivial-variable-bindingsabcl-1.3.1-fasl42-linux-x86
(LOAD trivial-variable-bindings FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-variable-bindings OK)
trivial-variable-bindingsabcl-1.3.2-fasl42-linux-x86
(LOAD trivial-variable-bindings FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-variable-bindings OK)
trivial-variable-bindingsabcl-1.4.0-fasl42-linux-x86
(LOAD trivial-variable-bindings FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-variable-bindings OK)
trivial-variable-bindingsabcl-1.5.0-fasl43-bsd-x64
(LOAD trivial-variable-bindings FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-variable-bindings OK)
trivial-variable-bindingsabcl-1.5.0-fasl43-linux-x86
(LOAD trivial-variable-bindings FAIL) COMMON-LISP:READER-ERROR : The symbol "*STARTED-FROM-EMACS*" is not external in package SWANK-LOADER.
(LOAD trivial-variable-bindings OK)
trivial-variable-bindingsccl-1.9-r15756-f96-linux-x86
(LOAD trivial-variable-bindings FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
(LOAD trivial-variable-bindings OK)
trivial-variable-bindingscmu-snapshot-2013-04__20d_unicode_-linux-x86
(LOAD trivial-variable-bindings FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: Error in function "Top-Level Form": You need ASDF >= 3.1 to load this system correctly.
(LOAD trivial-variable-bindings OK)
trivial-variable-bindingscmu-snapshot-2014-01__20e_unicode_-linux-x86
(LOAD trivial-variable-bindings FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: Error in function "Top-Level Form": You need ASDF >= 3.1 to load this system correctly.
(LOAD trivial-variable-bindings OK)
trivial-variable-bindingscmu-snapshot-2014-05-dirty__20e_unicode_-linux-x86
(LOAD trivial-variable-bindings FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: Error in function "Top-Level Form": You need ASDF >= 3.1 to load this system correctly.
(LOAD trivial-variable-bindings OK)
trivial-variable-bindingscmu-snapshot-2014-12___20f_unicode_-linux-x86
(LOAD trivial-variable-bindings FAIL) C::COMPILER-ERROR : (during macroexpansion) Error in function LISP::ASSERT-ERROR: The assertion (OR (NULL OPTS) (EQ (POP TYPE-LIST) '&OPTIONAL)) failed.
(LOAD trivial-variable-bindings OK)
trivial-variable-bindingscmu-snapshot-2016-12__21b_unicode_-linux-x86
(LOAD trivial-variable-bindings FAIL) C::COMPILER-ERROR : (during macroexpansion) Error in function LISP::ASSERT-ERROR: The assertion (OR (NULL OPTS) (EQ (POP TYPE-LIST) '&OPTIONAL)) failed.
(LOAD trivial-variable-bindings OK)
trivial-variable-bindingsecl-13.5.1-unknown-linux-i686-bytecode
(LOAD trivial-variable-bindings FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
(LOAD trivial-variable-bindings OK)
trivial-variable-bindingsecl-13.5.1-unknown-linux-i686-lisp-to-c
(LOAD trivial-variable-bindings FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: You need ASDF >= 3.1 to load this system correctly.
(LOAD trivial-variable-bindings OK)
trivial-variable-bindingsecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD trivial-variable-bindings FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-variable-bindings OK)
trivial-variable-bindingsecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD trivial-variable-bindings FAIL) COMMON-LISP:SIMPLE-ERROR : * is not a valid type specifier.
(LOAD trivial-variable-bindings OK)
trivial-variable-bindingsecl-16.1.2-unknown-linux-x86-bytecode
(LOAD trivial-variable-bindings FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-variable-bindings OK)
trivial-variable-bindingsecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD trivial-variable-bindings FAIL) COMMON-LISP:SIMPLE-ERROR : * is not a valid type specifier.
(LOAD trivial-variable-bindings OK)
trivial-variable-bindingsecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD trivial-variable-bindings FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-variable-bindings OK)
trivial-variable-bindingssbcl-1.1.11-linux-x86
(LOAD trivial-variable-bindings FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: READ error during COMPILE-FILE: You need ASDF >= 3.1 to load this system correctly.(in form starting at line: 1, column: 0, file-position: 0)
(LOAD trivial-variable-bindings OK)
trivial-variable-bindingssbcl-1.1.16-linux-x86
(LOAD trivial-variable-bindings FAIL) needs newer ASDF, ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system bordeaux-threads from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/bordeaux-threads-v0.8.6/bordeaux-threads.asd: READ error during LOAD: You need ASDF >= 3.1 to load this system correctly.(in form starting at line: 1, column: 0, file-position: 0)
(LOAD trivial-variable-bindings OK)
trivial-variable-bindingssbcl-1.3.2.92-4077405-dirty-linux-arm
(LOAD trivial-variable-bindings FAIL) SB-INT:BUG : failed AVER: (OR (SB-ARM-ASM::REGISTER-P SB-ARM-ASM::OPERAND) (TYPEP SB-ARM-ASM::OPERAND '(INTEGER 1 31))) This is probably a bug in SBCL itself. (Alternatively, SBCL might have been corrupted by bad user code, e.g. by an undefined Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers from alien code or from unsafe Lisp code; or there might be a bug in the OS or hardware that SBCL is running on.) If it seems to be a bug in SBCL itself, the maintainers would like to know about it. Bug reports are welcome on the SBCL mailing lists, which you can find at <http://sbcl.sourceforge.net/>.
(LOAD trivial-variable-bindings OK)
trivial-wsecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD trivial-ws FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-ws OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD trivial-ws FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-ws OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD trivial-ws FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD trivial-ws OK)
trivialib.bddabcl-1.3.0-fasl42-linux-x86
(LOAD trivialib.bdd.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivialib.bdd.test OK)
trivialib.bddabcl-1.3.1-fasl42-linux-x86
(LOAD trivialib.bdd.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivialib.bdd.test OK)
trivialib.bddabcl-1.3.2-fasl42-linux-x86
(LOAD trivialib.bdd.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivialib.bdd.test OK)
trivialib.bddabcl-1.4.0-fasl42-linux-x86
(LOAD trivialib.bdd.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivialib.bdd.test OK)
trivialib.bddabcl-1.5.0-fasl43-bsd-x64
(LOAD trivialib.bdd.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivialib.bdd.test OK)
trivialib.bddabcl-1.5.0-fasl43-linux-x86
(LOAD trivialib.bdd.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD trivialib.bdd.test OK)
trivialib.bddecl-13.5.1-unknown-linux-i686-bytecode
(LOAD trivialib.bdd FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized.
(LOAD trivialib.bdd OK)
trivialib.bddecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD trivialib.bdd CRASH)
(LOAD trivialib.bdd.test CRASH)
(LOAD trivialib.bdd OK)
(LOAD trivialib.bdd.test OK)
trivialib.bddecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD trivialib.bdd CRASH)
(LOAD trivialib.bdd.test CRASH)
(LOAD trivialib.bdd OK)
(LOAD trivialib.bdd.test OK)
trivialib.bddecl-16.1.2-unknown-linux-x86-bytecode
(LOAD trivialib.bdd CRASH)
(LOAD trivialib.bdd.test FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized. Proceed with caution.
(LOAD trivialib.bdd OK)
(LOAD trivialib.bdd.test OK)
trivialib.bddecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD trivialib.bdd CRASH)
(LOAD trivialib.bdd.test CRASH)
(LOAD trivialib.bdd OK)
(LOAD trivialib.bdd.test OK)
trivialib.bddecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD trivialib.bdd FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD trivialib.bdd.test FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD trivialib.bdd OK)
(LOAD trivialib.bdd.test OK)
trivialib.type-unifyecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD trivialib.type-unify CRASH)
(LOAD trivialib.type-unify.test CRASH)
(LOAD trivialib.type-unify FAIL) SI:SIMPLE-PROGRAM-ERROR : In form (BLOCK TRIVIA.LEVEL1.IMPL::WHOLE (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT74450 #:WHAT176093)) (DECLARE (IGNORABLE #:IT74450)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74450 'FIXNUM) (LOCALLY (DECLARE (TYPE (EQL FIXNUM) #:IT74450)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:IT74454 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74454 'FIXNUM)) (MATCH1 NIL ((GUARD1 #:IT75425 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75426 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75427 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT74450 #:WHAT176093)) (DECLARE (IGNORABLE #:IT74450)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74450 'FIXNUM) (LOCALLY (DECLARE (TYPE (EQL FIXNUM) #:IT74450)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74455 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74455) (CAR #:CONS74455) (GUARD1 (#:IT74456 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74456 'FIXNUM)) (CDR #:CONS74455) (GUARD1 (#:IT74457 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74457)))) (MATCH1 NIL ((GUARD1 #:IT75428 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75429 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75430 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75111 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75111)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75111) (LOCALLY (DECLARE (TYPE CONS #:FUSION75111)) (LET ((#:CONS74451 #:FUSION75111)) (DECLARE (IGNORABLE #:CONS74451)) (LOCALLY (DECLARE (TYPE CONS #:CONS74451)) (LET ((#:GEN75112 (CAR #:FUSION75111))) (DECLARE (IGNORABLE #:GEN75112)) (LET ((#:GEN75113 (CDR #:FUSION75111))) (DECLARE (IGNORABLE #:GEN75113)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75114 T) (MATCH1 NIL ((GUARD1 #:IT75431 T) (MATCH2*+ (#:GEN75112 #:GEN75113 #:PAT75114) (T T T) (((GUARD1 (#:IT74452 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74452 'FIXNUM)) (GUARD1 (#:IT74453 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74453)) (GUARD1 (#:IT74454 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74454 'FIXNUM))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74452 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74452 'FIXNUM)) (GUARD1 (#:IT74453 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74453)) (GUARD1 (#:CONS74455 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74455) (CAR #:CONS74455) (GUARD1 (#:IT74456 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74456 'FIXNUM)) (CDR #:CONS74455) (GUARD1 (#:IT74457 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74457)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75432 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75433 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT74458 #:WHAT176093)) (DECLARE (IGNORABLE #:IT74458)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74458 'BIGNUM) (LOCALLY (DECLARE (TYPE (EQL BIGNUM) #:IT74458)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:IT74462 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74462 'BIGNUM)) (MATCH1 NIL ((GUARD1 #:IT75434 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75435 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75436 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT74458 #:WHAT176093)) (DECLARE (IGNORABLE #:IT74458)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74458 'BIGNUM) (LOCALLY (DECLARE (TYPE (EQL BIGNUM) #:IT74458)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74463 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74463) (CAR #:CONS74463) (GUARD1 (#:IT74464 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74464 'BIGNUM)) (CDR #:CONS74463) (GUARD1 (#:IT74465 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74465)))) (MATCH1 NIL ((GUARD1 #:IT75437 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75438 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75439 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75115 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75115)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75115) (LOCALLY (DECLARE (TYPE CONS #:FUSION75115)) (LET ((#:CONS74459 #:FUSION75115)) (DECLARE (IGNORABLE #:CONS74459)) (LOCALLY (DECLARE (TYPE CONS #:CONS74459)) (LET ((#:GEN75116 (CAR #:FUSION75115))) (DECLARE (IGNORABLE #:GEN75116)) (LET ((#:GEN75117 (CDR #:FUSION75115))) (DECLARE (IGNORABLE #:GEN75117)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75118 T) (MATCH1 NIL ((GUARD1 #:IT75440 T) (MATCH2*+ (#:GEN75116 #:GEN75117 #:PAT75118) (T T T) (((GUARD1 (#:IT74460 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74460 'BIGNUM)) (GUARD1 (#:IT74461 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74461)) (GUARD1 (#:IT74462 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74462 'BIGNUM))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74460 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74460 'BIGNUM)) (GUARD1 (#:IT74461 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74461)) (GUARD1 (#:CONS74463 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74463) (CAR #:CONS74463) (GUARD1 (#:IT74464 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74464 'BIGNUM)) (CDR #:CONS74463) (GUARD1 (#:IT74465 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74465)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75441 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75442 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74469 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74469)) (LET ((#:IT74466 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:IT74466)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74466 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74466)) (LET ((#:BIND74467 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74467)) (LET ((#:BIND74468 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74468)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74490 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74490 (GUARD1 (#:CONS74488 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74488) (CAR #:CONS74488) (GUARD1 (#:IT74491 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74491 'MOD)) (CDR #:CONS74488) (GUARD1 (#:CONS74492 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74492) (CAR #:CONS74492) (GUARD1 (#:N74487 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74492) (GUARD1 (#:IT74493 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74493))) #:INTERSECTION74490 (GUARD1 (#:BIND74489 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75443 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75444 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75445 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74469 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74469)) (LET ((#:IT74466 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:IT74466)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74466 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74466)) (LET ((#:BIND74467 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74467)) (LET ((#:BIND74468 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74468)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74497 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74497 (GUARD1 (#:IT74494 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74494 'BIT) #:INTERSECTION74497 (GUARD1 (#:BIND74495 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74497 (GUARD1 (#:BIND74496 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75446 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75447 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75448 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74469 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74469)) (LET ((#:IT74466 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:IT74466)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74466 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74466)) (LET ((#:BIND74467 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74467)) (LET ((#:BIND74468 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74468)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74501 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74501 (GUARD1 (#:CONS74500 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74500) (CAR #:CONS74500) (GUARD1 (#:IT74502 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74502 'UNSIGNED-BYTE)) (CDR #:CONS74500) (GUARD1 (#:CONS74503 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74503) (CAR #:CONS74503) (GUARD1 (#:INTERSECTION74505 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74505 (GUARD1 (#:IT74504 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74504 'FIXNUM) #:INTERSECTION74505 (GUARD1 (#:N74498 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74503) (GUARD1 (#:IT74506 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74506))) #:INTERSECTION74501 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74508 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74508 (GUARD1 (#:CONS74507 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74507) (CAR #:CONS74507) (GUARD1 (#:IT74509 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74509 'UNSIGNED-BYTE)) (CDR #:CONS74507) (GUARD1 (#:CONS74510 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74510) (CAR #:CONS74510) (GUARD1 (#:INTERSECTION74513 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74513 (GUARD1 (#:IT74511 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74511 '*) #:INTERSECTION74513 (GUARD1 (#:IT74512 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74510) (GUARD1 (#:IT74514 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74514))) #:INTERSECTION74508 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74518 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74518 (GUARD1 (#:INTERSECTION74517 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74517 (GUARD1 (#:CONS74515 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74515) (CAR #:CONS74515) (GUARD1 (#:IT74519 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74519 'UNSIGNED-BYTE)) (CDR #:CONS74515) (GUARD1 (#:IT74520 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74520)) #:INTERSECTION74517 (GUARD1 (#:BIND74516 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION74518 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75449 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75450 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75451 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74469 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74469)) (LET ((#:IT74466 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:IT74466)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74466 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74466)) (LET ((#:BIND74467 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74467)) (LET ((#:BIND74468 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74468)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74527 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74527 (GUARD1 (#:CONS74522 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74522) (CAR #:CONS74522) (GUARD1 (#:IT74523 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74523 'SIGNED-BYTE)) (CDR #:CONS74522) (GUARD1 (#:CONS74524 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74524) (CAR #:CONS74524) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N74521 'FIXNUM)) (CDR #:CONS74524) (GUARD1 (#:IT74525 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74525))) #:INTERSECTION74527 (GUARD1 (#:LIFT-DUMMY74526 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION74533 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74533 (GUARD1 (#:CONS74528 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74528) (CAR #:CONS74528) (GUARD1 (#:IT74529 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74529 'SIGNED-BYTE)) (CDR #:CONS74528) (GUARD1 (#:CONS74530 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74530) (CAR #:CONS74530) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N74521)) (CDR #:CONS74530) (GUARD1 (#:IT74531 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74531))) #:INTERSECTION74533 (GUARD1 (#:LIFT-DUMMY74532 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION74537 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74537 (GUARD1 (#:CONS74534 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74534) (CAR #:CONS74534) (GUARD1 (#:IT74535 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74535 'SIGNED-BYTE)) (CDR #:CONS74534) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N74521)) #:INTERSECTION74537 (GUARD1 (#:LIFT-DUMMY74536 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION74539 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74539 (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N74521) #:INTERSECTION74539 (GUARD1 (#:LIFT-DUMMY74538 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (MATCH1 NIL ((GUARD1 #:IT75452 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75453 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75454 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74469 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74469)) (LET ((#:IT74466 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:IT74466)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74466 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74466)) (LET ((#:BIND74467 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74467)) (LET ((#:BIND74468 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74468)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74543 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74543 (GUARD1 (#:IT74540 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74540 'BIGNUM) #:INTERSECTION74543 (GUARD1 (#:BIND74541 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74543 (GUARD1 (#:BIND74542 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION74547 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74547 (GUARD1 (#:CONS74544 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74544) (CAR #:CONS74544) (GUARD1 (#:IT74548 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74548 'BIGNUM)) (CDR #:CONS74544) (GUARD1 (#:IT74549 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74549)) #:INTERSECTION74547 (GUARD1 (#:BIND74545 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74547 (GUARD1 (#:BIND74546 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT75455 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75456 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75457 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74469 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74469)) (LET ((#:IT74466 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:IT74466)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74466 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74466)) (LET ((#:BIND74467 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74467)) (LET ((#:BIND74468 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74468)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74553 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74553 (GUARD1 (#:IT74550 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74550 'FIXNUM) #:INTERSECTION74553 (GUARD1 (#:BIND74551 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74553 (GUARD1 (#:BIND74552 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION74557 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74557 (GUARD1 (#:CONS74554 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74554) (CAR #:CONS74554) (GUARD1 (#:IT74558 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74558 'FIXNUM)) (CDR #:CONS74554) (GUARD1 (#:IT74559 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74559)) #:INTERSECTION74557 (GUARD1 (#:BIND74555 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74557 (GUARD1 (#:BIND74556 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT75458 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75459 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75460 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74469 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74469)) (LET ((#:IT74466 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:IT74466)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74466 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74466)) (LET ((#:BIND74467 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74467)) (LET ((#:BIND74468 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74468)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74563 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74563 (GUARD1 (#:IT74560 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74560 'INTEGER) #:INTERSECTION74563 (GUARD1 (#:BIND74561 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74563 (GUARD1 (#:BIND74562 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:CONS74564 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74564) (CAR #:CONS74564) (GUARD1 (#:IT74565 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74565 'INTEGER)) (CDR #:CONS74564) (GUARD1 (#:CONS74566 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74566) (CDR #:CONS74566) (GUARD1 (#:CONS74567 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74567) (CDR #:CONS74567) (GUARD1 (#:IT74568 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74568))))) (GUARD1 (#:INTERSECTION74571 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74571 (GUARD1 (#:CONS74569 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74569) (CAR #:CONS74569) (GUARD1 (#:IT74572 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74572 'INTEGER)) (CDR #:CONS74569) (GUARD1 (#:CONS74573 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74573) (CDR #:CONS74573) (GUARD1 (#:IT74574 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74574))) #:INTERSECTION74571 (GUARD1 (#:BIND74570 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74578 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74578 (GUARD1 (#:CONS74575 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74575) (CAR #:CONS74575) (GUARD1 (#:IT74579 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74579 'INTEGER)) (CDR #:CONS74575) (GUARD1 (#:IT74580 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74580)) #:INTERSECTION74578 (GUARD1 (#:BIND74576 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74578 (GUARD1 (#:BIND74577 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT75461 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75462 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75463 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS74470 #:WHAT176093)) (DECLARE (IGNORABLE #:CONS74470)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74470) (LOCALLY (DECLARE (TYPE CONS #:CONS74470)) (LET ((#:IT74471 (CAR #:CONS74470))) (DECLARE (IGNORABLE #:IT74471)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74471 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74471)) (LET ((#:CONS74472 (CDR #:CONS74470))) (DECLARE (IGNORABLE #:CONS74472)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74472) (LOCALLY (DECLARE (TYPE CONS #:CONS74472)) (LET ((#:CONS74473 (CDR #:CONS74472))) (DECLARE (IGNORABLE #:CONS74473)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74473) (LOCALLY (DECLARE (TYPE CONS #:CONS74473)) (LET ((#:IT74474 (CDR #:CONS74473))) (DECLARE (IGNORABLE #:IT74474)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74474) (LOCALLY (DECLARE (TYPE NULL #:IT74474)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74490 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74490 (GUARD1 (#:CONS74488 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74488) (CAR #:CONS74488) (GUARD1 (#:IT74491 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74491 'MOD)) (CDR #:CONS74488) (GUARD1 (#:CONS74492 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74492) (CAR #:CONS74492) (GUARD1 (#:N74487 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74492) (GUARD1 (#:IT74493 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74493))) #:INTERSECTION74490 (GUARD1 (#:BIND74489 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75464 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75465 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75466 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74490 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74490 (GUARD1 (#:CONS74488 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74488) (CAR #:CONS74488) (GUARD1 (#:IT74491 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74491 'MOD)) (CDR #:CONS74488) (GUARD1 (#:CONS74492 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74492) (CAR #:CONS74492) (GUARD1 (#:N74487 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74492) (GUARD1 (#:IT74493 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74493))) #:INTERSECTION74490 (GUARD1 (#:BIND74489 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75467 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75468 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75469 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74490 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74490 (GUARD1 (#:CONS74488 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74488) (CAR #:CONS74488) (GUARD1 (#:IT74491 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74491 'MOD)) (CDR #:CONS74488) (GUARD1 (#:CONS74492 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74492) (CAR #:CONS74492) (GUARD1 (#:N74487 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74492) (GUARD1 (#:IT74493 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74493))) #:INTERSECTION74490 (GUARD1 (#:BIND74489 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75470 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75471 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75472 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS74470 #:WHAT176093)) (DECLARE (IGNORABLE #:CONS74470)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74470) (LOCALLY (DECLARE (TYPE CONS #:CONS74470)) (LET ((#:IT74471 (CAR #:CONS74470))) (DECLARE (IGNORABLE #:IT74471)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74471 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74471)) (LET ((#:CONS74472 (CDR #:CONS74470))) (DECLARE (IGNORABLE #:CONS74472)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74472) (LOCALLY (DECLARE (TYPE CONS #:CONS74472)) (LET ((#:CONS74473 (CDR #:CONS74472))) (DECLARE (IGNORABLE #:CONS74473)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74473) (LOCALLY (DECLARE (TYPE CONS #:CONS74473)) (LET ((#:IT74474 (CDR #:CONS74473))) (DECLARE (IGNORABLE #:IT74474)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74474) (LOCALLY (DECLARE (TYPE NULL #:IT74474)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74497 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74497 (GUARD1 (#:IT74494 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74494 'BIT) #:INTERSECTION74497 (GUARD1 (#:BIND74495 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74497 (GUARD1 (#:BIND74496 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75473 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75474 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75475 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74497 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74497 (GUARD1 (#:IT74494 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74494 'BIT) #:INTERSECTION74497 (GUARD1 (#:BIND74495 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74497 (GUARD1 (#:BIND74496 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75476 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75477 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75478 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74497 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74497 (GUARD1 (#:IT74494 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74494 'BIT) #:INTERSECTION74497 (GUARD1 (#:BIND74495 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74497 (GUARD1 (#:BIND74496 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75479 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75480 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75481 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75128 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75128)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75128) (LOCALLY (DECLARE (TYPE CONS #:FUSION75128)) (LET ((#:CONS74470 #:FUSION75128)) (DECLARE (IGNORABLE #:CONS74470)) (LOCALLY (DECLARE (TYPE CONS #:CONS74470)) (LET ((#:GEN75129 (CAR #:FUSION75128))) (DECLARE (IGNORABLE #:GEN75129)) (LET ((#:GEN75130 (CDR #:FUSION75128))) (DECLARE (IGNORABLE #:GEN75130)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75131 T) (MATCH1 NIL ((GUARD1 #:IT75482 T) (MATCH2*+ (#:GEN75129 #:GEN75130 #:PAT75131) (T T T) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (GUARD1 (#:INTERSECTION74501 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74501 (GUARD1 (#:CONS74500 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74500) (CAR #:CONS74500) (GUARD1 (#:IT74502 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74502 'UNSIGNED-BYTE)) (CDR #:CONS74500) (GUARD1 (#:CONS74503 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74503) (CAR #:CONS74503) (GUARD1 (#:INTERSECTION74505 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74505 (GUARD1 (#:IT74504 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74504 'FIXNUM) #:INTERSECTION74505 (GUARD1 (#:N74498 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74503) (GUARD1 (#:IT74506 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74506))) #:INTERSECTION74501 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (GUARD1 (#:INTERSECTION74508 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74508 (GUARD1 (#:CONS74507 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74507) (CAR #:CONS74507) (GUARD1 (#:IT74509 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74509 'UNSIGNED-BYTE)) (CDR #:CONS74507) (GUARD1 (#:CONS74510 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74510) (CAR #:CONS74510) (GUARD1 (#:INTERSECTION74513 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74513 (GUARD1 (#:IT74511 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74511 '*) #:INTERSECTION74513 (GUARD1 (#:IT74512 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74510) (GUARD1 (#:IT74514 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74514))) #:INTERSECTION74508 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (GUARD1 (#:INTERSECTION74518 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74518 (GUARD1 (#:INTERSECTION74517 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74517 (GUARD1 (#:CONS74515 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74515) (CAR #:CONS74515) (GUARD1 (#:IT74519 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74519 'UNSIGNED-BYTE)) (CDR #:CONS74515) (GUARD1 (#:IT74520 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74520)) #:INTERSECTION74517 (GUARD1 (#:BIND74516 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION74518 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75483 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75484 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74501 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74501 (GUARD1 (#:CONS74500 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74500) (CAR #:CONS74500) (GUARD1 (#:IT74502 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74502 'UNSIGNED-BYTE)) (CDR #:CONS74500) (GUARD1 (#:CONS74503 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74503) (CAR #:CONS74503) (GUARD1 (#:INTERSECTION74505 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74505 (GUARD1 (#:IT74504 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74504 'FIXNUM) #:INTERSECTION74505 (GUARD1 (#:N74498 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74503) (GUARD1 (#:IT74506 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74506))) #:INTERSECTION74501 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75485 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75486 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75487 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74508 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74508 (GUARD1 (#:CONS74507 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74507) (CAR #:CONS74507) (GUARD1 (#:IT74509 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74509 'UNSIGNED-BYTE)) (CDR #:CONS74507) (GUARD1 (#:CONS74510 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74510) (CAR #:CONS74510) (GUARD1 (#:INTERSECTION74513 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74513 (GUARD1 (#:IT74511 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74511 '*) #:INTERSECTION74513 (GUARD1 (#:IT74512 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74510) (GUARD1 (#:IT74514 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74514))) #:INTERSECTION74508 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75488 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75489 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75490 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74518 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74518 (GUARD1 (#:INTERSECTION74517 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74517 (GUARD1 (#:CONS74515 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74515) (CAR #:CONS74515) (GUARD1 (#:IT74519 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74519 'UNSIGNED-BYTE)) (CDR #:CONS74515) (GUARD1 (#:IT74520 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74520)) #:INTERSECTION74517 (GUARD1 (#:BIND74516 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION74518 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75491 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75492 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75493 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74501 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74501 (GUARD1 (#:CONS74500 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74500) (CAR #:CONS74500) (GUARD1 (#:IT74502 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74502 'UNSIGNED-BYTE)) (CDR #:CONS74500) (GUARD1 (#:CONS74503 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74503) (CAR #:CONS74503) (GUARD1 (#:INTERSECTION74505 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74505 (GUARD1 (#:IT74504 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74504 'FIXNUM) #:INTERSECTION74505 (GUARD1 (#:N74498 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74503) (GUARD1 (#:IT74506 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74506))) #:INTERSECTION74501 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75494 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75495 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75496 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74508 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74508 (GUARD1 (#:CONS74507 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74507) (CAR #:CONS74507) (GUARD1 (#:IT74509 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74509 'UNSIGNED-BYTE)) (CDR #:CONS74507) (GUARD1 (#:CONS74510 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74510) (CAR #:CONS74510) (GUARD1 (#:INTERSECTION74513 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74513 (GUARD1 (#:IT74511 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74511 '*) #:INTERSECTION74513 (GUARD1 (#:IT74512 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74510) (GUARD1 (#:IT74514 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74514))) #:INTERSECTION74508 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75497 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75498 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75499 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74518 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74518 (GUARD1 (#:INTERSECTION74517 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74517 (GUARD1 (#:CONS74515 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74515) (CAR #:CONS74515) (GUARD1 (#:IT74519 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74519 'UNSIGNED-BYTE)) (CDR #:CONS74515) (GUARD1 (#:IT74520 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74520)) #:INTERSECTION74517 (GUARD1 (#:BIND74516 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION74518 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75500 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75501 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75502 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75135 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75135)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75135) (LOCALLY (DECLARE (TYPE CONS #:FUSION75135)) (LET ((#:CONS74470 #:FUSION75135)) (DECLARE (IGNORABLE #:CONS74470)) (LOCALLY (DECLARE (TYPE CONS #:CONS74470)) (LET ((#:GEN75136 (CAR #:FUSION75135))) (DECLARE (IGNORABLE #:GEN75136)) (LET ((#:GEN75137 (CDR #:FUSION75135))) (DECLARE (IGNORABLE #:GEN75137)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75138 T) (MATCH1 NIL ((GUARD1 #:IT75503 T) (MATCH2*+ (#:GEN75136 #:GEN75137 #:PAT75138) (T T T) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (GUARD1 (#:INTERSECTION74527 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74527 (GUARD1 (#:CONS74522 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74522) (CAR #:CONS74522) (GUARD1 (#:IT74523 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74523 'SIGNED-BYTE)) (CDR #:CONS74522) (GUARD1 (#:CONS74524 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74524) (CAR #:CONS74524) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N74521 'FIXNUM)) (CDR #:CONS74524) (GUARD1 (#:IT74525 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74525))) #:INTERSECTION74527 (GUARD1 (#:LIFT-DUMMY74526 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (GUARD1 (#:INTERSECTION74533 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74533 (GUARD1 (#:CONS74528 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74528) (CAR #:CONS74528) (GUARD1 (#:IT74529 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74529 'SIGNED-BYTE)) (CDR #:CONS74528) (GUARD1 (#:CONS74530 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74530) (CAR #:CONS74530) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N74521)) (CDR #:CONS74530) (GUARD1 (#:IT74531 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74531))) #:INTERSECTION74533 (GUARD1 (#:LIFT-DUMMY74532 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (GUARD1 (#:INTERSECTION74537 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74537 (GUARD1 (#:CONS74534 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74534) (CAR #:CONS74534) (GUARD1 (#:IT74535 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74535 'SIGNED-BYTE)) (CDR #:CONS74534) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N74521)) #:INTERSECTION74537 (GUARD1 (#:LIFT-DUMMY74536 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (GUARD1 (#:INTERSECTION74539 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74539 (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N74521) #:INTERSECTION74539 (GUARD1 (#:LIFT-DUMMY74538 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75504 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75505 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74527 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74527 (GUARD1 (#:CONS74522 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74522) (CAR #:CONS74522) (GUARD1 (#:IT74523 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74523 'SIGNED-BYTE)) (CDR #:CONS74522) (GUARD1 (#:CONS74524 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74524) (CAR #:CONS74524) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N74521 'FIXNUM)) (CDR #:CONS74524) (GUARD1 (#:IT74525 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74525))) #:INTERSECTION74527 (GUARD1 (#:LIFT-DUMMY74526 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75506 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75507 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75508 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74533 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74533 (GUARD1 (#:CONS74528 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74528) (CAR #:CONS74528) (GUARD1 (#:IT74529 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74529 'SIGNED-BYTE)) (CDR #:CONS74528) (GUARD1 (#:CONS74530 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74530) (CAR #:CONS74530) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N74521)) (CDR #:CONS74530) (GUARD1 (#:IT74531 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74531))) #:INTERSECTION74533 (GUARD1 (#:LIFT-DUMMY74532 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75509 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75510 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75511 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74537 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74537 (GUARD1 (#:CONS74534 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74534) (CAR #:CONS74534) (GUARD1 (#:IT74535 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74535 'SIGNED-BYTE)) (CDR #:CONS74534) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N74521)) #:INTERSECTION74537 (GUARD1 (#:LIFT-DUMMY74536 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75512 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75513 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75514 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74539 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74539 (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N74521) #:INTERSECTION74539 (GUARD1 (#:LIFT-DUMMY74538 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75515 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75516 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75517 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74527 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74527 (GUARD1 (#:CONS74522 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74522) (CAR #:CONS74522) (GUARD1 (#:IT74523 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74523 'SIGNED-BYTE)) (CDR #:CONS74522) (GUARD1 (#:CONS74524 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74524) (CAR #:CONS74524) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N74521 'FIXNUM)) (CDR #:CONS74524) (GUARD1 (#:IT74525 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74525))) #:INTERSECTION74527 (GUARD1 (#:LIFT-DUMMY74526 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75518 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75519 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75520 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74533 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74533 (GUARD1 (#:CONS74528 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74528) (CAR #:CONS74528) (GUARD1 (#:IT74529 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74529 'SIGNED-BYTE)) (CDR #:CONS74528) (GUARD1 (#:CONS74530 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74530) (CAR #:CONS74530) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N74521)) (CDR #:CONS74530) (GUARD1 (#:IT74531 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74531))) #:INTERSECTION74533 (GUARD1 (#:LIFT-DUMMY74532 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75521 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75522 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75523 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74537 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74537 (GUARD1 (#:CONS74534 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74534) (CAR #:CONS74534) (GUARD1 (#:IT74535 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74535 'SIGNED-BYTE)) (CDR #:CONS74534) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N74521)) #:INTERSECTION74537 (GUARD1 (#:LIFT-DUMMY74536 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75524 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75525 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75526 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74539 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74539 (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N74521) #:INTERSECTION74539 (GUARD1 (#:LIFT-DUMMY74538 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75527 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75528 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75529 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75142 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75142)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75142) (LOCALLY (DECLARE (TYPE CONS #:FUSION75142)) (LET ((#:CONS74470 #:FUSION75142)) (DECLARE (IGNORABLE #:CONS74470)) (LOCALLY (DECLARE (TYPE CONS #:CONS74470)) (LET ((#:GEN75143 (CAR #:FUSION75142))) (DECLARE (IGNORABLE #:GEN75143)) (LET ((#:GEN75144 (CDR #:FUSION75142))) (DECLARE (IGNORABLE #:GEN75144)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75145 T) (MATCH1 NIL ((GUARD1 #:IT75530 T) (MATCH2*+ (#:GEN75143 #:GEN75144 #:PAT75145) (T T T) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (GUARD1 (#:INTERSECTION74543 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74543 (GUARD1 (#:IT74540 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74540 'BIGNUM) #:INTERSECTION74543 (GUARD1 (#:BIND74541 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74543 (GUARD1 (#:BIND74542 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (OR1 (GUARD1 (#:INTERSECTION74547 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74547 (GUARD1 (#:CONS74544 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74544) (CAR #:CONS74544) (GUARD1 (#:IT74548 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74548 'BIGNUM)) (CDR #:CONS74544) (GUARD1 (#:IT74549 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74549)) #:INTERSECTION74547 (GUARD1 (#:BIND74545 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74547 (GUARD1 (#:BIND74546 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75531 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75532 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74543 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74543 (GUARD1 (#:IT74540 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74540 'BIGNUM) #:INTERSECTION74543 (GUARD1 (#:BIND74541 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74543 (GUARD1 (#:BIND74542 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75533 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75534 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75535 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74547 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74547 (GUARD1 (#:CONS74544 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74544) (CAR #:CONS74544) (GUARD1 (#:IT74548 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74548 'BIGNUM)) (CDR #:CONS74544) (GUARD1 (#:IT74549 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74549)) #:INTERSECTION74547 (GUARD1 (#:BIND74545 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74547 (GUARD1 (#:BIND74546 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75536 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75537 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75538 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74543 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74543 (GUARD1 (#:IT74540 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74540 'BIGNUM) #:INTERSECTION74543 (GUARD1 (#:BIND74541 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74543 (GUARD1 (#:BIND74542 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75539 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75540 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75541 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74547 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74547 (GUARD1 (#:CONS74544 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74544) (CAR #:CONS74544) (GUARD1 (#:IT74548 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74548 'BIGNUM)) (CDR #:CONS74544) (GUARD1 (#:IT74549 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74549)) #:INTERSECTION74547 (GUARD1 (#:BIND74545 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74547 (GUARD1 (#:BIND74546 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75542 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75543 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75544 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75149 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75149)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75149) (LOCALLY (DECLARE (TYPE CONS #:FUSION75149)) (LET ((#:CONS74470 #:FUSION75149)) (DECLARE (IGNORABLE #:CONS74470)) (LOCALLY (DECLARE (TYPE CONS #:CONS74470)) (LET ((#:GEN75150 (CAR #:FUSION75149))) (DECLARE (IGNORABLE #:GEN75150)) (LET ((#:GEN75151 (CDR #:FUSION75149))) (DECLARE (IGNORABLE #:GEN75151)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75152 T) (MATCH1 NIL ((GUARD1 #:IT75545 T) (MATCH2*+ (#:GEN75150 #:GEN75151 #:PAT75152) (T T T) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (GUARD1 (#:INTERSECTION74553 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74553 (GUARD1 (#:IT74550 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74550 'FIXNUM) #:INTERSECTION74553 (GUARD1 (#:BIND74551 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74553 (GUARD1 (#:BIND74552 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (OR1 (GUARD1 (#:INTERSECTION74557 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74557 (GUARD1 (#:CONS74554 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74554) (CAR #:CONS74554) (GUARD1 (#:IT74558 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74558 'FIXNUM)) (CDR #:CONS74554) (GUARD1 (#:IT74559 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74559)) #:INTERSECTION74557 (GUARD1 (#:BIND74555 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74557 (GUARD1 (#:BIND74556 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75546 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75547 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74553 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74553 (GUARD1 (#:IT74550 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74550 'FIXNUM) #:INTERSECTION74553 (GUARD1 (#:BIND74551 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74553 (GUARD1 (#:BIND74552 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75548 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75549 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75550 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74557 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74557 (GUARD1 (#:CONS74554 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74554) (CAR #:CONS74554) (GUARD1 (#:IT74558 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74558 'FIXNUM)) (CDR #:CONS74554) (GUARD1 (#:IT74559 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74559)) #:INTERSECTION74557 (GUARD1 (#:BIND74555 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74557 (GUARD1 (#:BIND74556 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75551 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75552 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75553 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74553 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74553 (GUARD1 (#:IT74550 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74550 'FIXNUM) #:INTERSECTION74553 (GUARD1 (#:BIND74551 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74553 (GUARD1 (#:BIND74552 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75554 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75555 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75556 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74557 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74557 (GUARD1 (#:CONS74554 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74554) (CAR #:CONS74554) (GUARD1 (#:IT74558 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74558 'FIXNUM)) (CDR #:CONS74554) (GUARD1 (#:IT74559 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74559)) #:INTERSECTION74557 (GUARD1 (#:BIND74555 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74557 (GUARD1 (#:BIND74556 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75557 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75558 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75559 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75156 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75156)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75156) (LOCALLY (DECLARE (TYPE CONS #:FUSION75156)) (LET ((#:CONS74470 #:FUSION75156)) (DECLARE (IGNORABLE #:CONS74470)) (LOCALLY (DECLARE (TYPE CONS #:CONS74470)) (LET ((#:GEN75157 (CAR #:FUSION75156))) (DECLARE (IGNORABLE #:GEN75157)) (LET ((#:GEN75158 (CDR #:FUSION75156))) (DECLARE (IGNORABLE #:GEN75158)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75159 T) (MATCH1 NIL ((GUARD1 #:IT75560 T) (MATCH2*+ (#:GEN75157 #:GEN75158 #:PAT75159) (T T T) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (GUARD1 (#:INTERSECTION74563 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74563 (GUARD1 (#:IT74560 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74560 'INTEGER) #:INTERSECTION74563 (GUARD1 (#:BIND74561 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74563 (GUARD1 (#:BIND74562 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (OR1 (GUARD1 (#:CONS74564 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74564) (CAR #:CONS74564) (GUARD1 (#:IT74565 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74565 'INTEGER)) (CDR #:CONS74564) (GUARD1 (#:CONS74566 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74566) (CDR #:CONS74566) (GUARD1 (#:CONS74567 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74567) (CDR #:CONS74567) (GUARD1 (#:IT74568 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74568))))) (GUARD1 (#:INTERSECTION74571 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74571 (GUARD1 (#:CONS74569 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74569) (CAR #:CONS74569) (GUARD1 (#:IT74572 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74572 'INTEGER)) (CDR #:CONS74569) (GUARD1 (#:CONS74573 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74573) (CDR #:CONS74573) (GUARD1 (#:IT74574 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74574))) #:INTERSECTION74571 (GUARD1 (#:BIND74570 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74578 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74578 (GUARD1 (#:CONS74575 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74575) (CAR #:CONS74575) (GUARD1 (#:IT74579 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74579 'INTEGER)) (CDR #:CONS74575) (GUARD1 (#:IT74580 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74580)) #:INTERSECTION74578 (GUARD1 (#:BIND74576 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74578 (GUARD1 (#:BIND74577 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75561 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75562 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74563 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74563 (GUARD1 (#:IT74560 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74560 'INTEGER) #:INTERSECTION74563 (GUARD1 (#:BIND74561 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74563 (GUARD1 (#:BIND74562 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75563 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75564 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75565 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74564 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74564) (CAR #:CONS74564) (GUARD1 (#:IT74565 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74565 'INTEGER)) (CDR #:CONS74564) (GUARD1 (#:CONS74566 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74566) (CDR #:CONS74566) (GUARD1 (#:CONS74567 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74567) (CDR #:CONS74567) (GUARD1 (#:IT74568 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74568))))) (GUARD1 (#:INTERSECTION74571 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74571 (GUARD1 (#:CONS74569 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74569) (CAR #:CONS74569) (GUARD1 (#:IT74572 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74572 'INTEGER)) (CDR #:CONS74569) (GUARD1 (#:CONS74573 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74573) (CDR #:CONS74573) (GUARD1 (#:IT74574 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74574))) #:INTERSECTION74571 (GUARD1 (#:BIND74570 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74578 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74578 (GUARD1 (#:CONS74575 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74575) (CAR #:CONS74575) (GUARD1 (#:IT74579 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74579 'INTEGER)) (CDR #:CONS74575) (GUARD1 (#:IT74580 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74580)) #:INTERSECTION74578 (GUARD1 (#:BIND74576 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74578 (GUARD1 (#:BIND74577 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75566 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75567 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75568 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74563 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74563 (GUARD1 (#:IT74560 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74560 'INTEGER) #:INTERSECTION74563 (GUARD1 (#:BIND74561 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74563 (GUARD1 (#:BIND74562 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75569 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75570 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75571 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74564 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74564) (CAR #:CONS74564) (GUARD1 (#:IT74565 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74565 'INTEGER)) (CDR #:CONS74564) (GUARD1 (#:CONS74566 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74566) (CDR #:CONS74566) (GUARD1 (#:CONS74567 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74567) (CDR #:CONS74567) (GUARD1 (#:IT74568 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74568))))) (GUARD1 (#:INTERSECTION74571 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74571 (GUARD1 (#:CONS74569 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74569) (CAR #:CONS74569) (GUARD1 (#:IT74572 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74572 'INTEGER)) (CDR #:CONS74569) (GUARD1 (#:CONS74573 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74573) (CDR #:CONS74573) (GUARD1 (#:IT74574 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74574))) #:INTERSECTION74571 (GUARD1 (#:BIND74570 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74578 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74578 (GUARD1 (#:CONS74575 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74575) (CAR #:CONS74575) (GUARD1 (#:IT74579 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74579 'INTEGER)) (CDR #:CONS74575) (GUARD1 (#:IT74580 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74580)) #:INTERSECTION74578 (GUARD1 (#:BIND74576 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74578 (GUARD1 (#:BIND74577 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75572 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75573 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75574 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74584 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74584)) (LET ((#:IT74581 #:INTERSECTION74584)) (DECLARE (IGNORABLE #:IT74581)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74581 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT74581)) (LET ((#:BIND74582 #:INTERSECTION74584)) (DECLARE (IGNORABLE #:BIND74582)) (LET ((#:BIND74583 #:INTERSECTION74584)) (DECLARE (IGNORABLE #:BIND74583)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74605 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74605 (GUARD1 (#:IT74602 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74602 'SINGLE-FLOAT) #:INTERSECTION74605 (GUARD1 (#:BIND74603 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74605 (GUARD1 (#:BIND74604 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75575 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75576 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75577 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74584 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74584)) (LET ((#:IT74581 #:INTERSECTION74584)) (DECLARE (IGNORABLE #:IT74581)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74581 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT74581)) (LET ((#:BIND74582 #:INTERSECTION74584)) (DECLARE (IGNORABLE #:BIND74582)) (LET ((#:BIND74583 #:INTERSECTION74584)) (DECLARE (IGNORABLE #:BIND74583)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74606 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74606) (CAR #:CONS74606) (GUARD1 (#:IT74607 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74607 'SINGLE-FLOAT)) (CDR #:CONS74606) (GUARD1 (#:CONS74608 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74608) (CDR #:CONS74608) (GUARD1 (#:CONS74609 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74609) (CDR #:CONS74609) (GUARD1 (#:IT74610 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74610))))) (GUARD1 (#:INTERSECTION74613 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74613 (GUARD1 (#:CONS74611 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74611) (CAR #:CONS74611) (GUARD1 (#:IT74614 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74614 'SINGLE-FLOAT)) (CDR #:CONS74611) (GUARD1 (#:CONS74615 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74615) (CDR #:CONS74615) (GUARD1 (#:IT74616 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74616))) #:INTERSECTION74613 (GUARD1 (#:BIND74612 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74620 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74620 (GUARD1 (#:CONS74617 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74617) (CAR #:CONS74617) (GUARD1 (#:IT74621 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74621 'SINGLE-FLOAT)) (CDR #:CONS74617) (GUARD1 (#:IT74622 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74622)) #:INTERSECTION74620 (GUARD1 (#:BIND74618 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74620 (GUARD1 (#:BIND74619 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75578 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75579 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75580 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS74585 #:WHAT176093)) (DECLARE (IGNORABLE #:CONS74585)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74585) (LOCALLY (DECLARE (TYPE CONS #:CONS74585)) (LET ((#:IT74586 (CAR #:CONS74585))) (DECLARE (IGNORABLE #:IT74586)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74586 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT74586)) (LET ((#:CONS74587 (CDR #:CONS74585))) (DECLARE (IGNORABLE #:CONS74587)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74587) (LOCALLY (DECLARE (TYPE CONS #:CONS74587)) (LET ((#:CONS74588 (CDR #:CONS74587))) (DECLARE (IGNORABLE #:CONS74588)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74588) (LOCALLY (DECLARE (TYPE CONS #:CONS74588)) (LET ((#:IT74589 (CDR #:CONS74588))) (DECLARE (IGNORABLE #:IT74589)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74589) (LOCALLY (DECLARE (TYPE NULL #:IT74589)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74605 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74605 (GUARD1 (#:IT74602 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74602 'SINGLE-FLOAT) #:INTERSECTION74605 (GUARD1 (#:BIND74603 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74605 (GUARD1 (#:BIND74604 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75581 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75582 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75583 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74592 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74592)) (LET ((#:CONS74590 #:INTERSECTION74592)) (DECLARE (IGNORABLE #:CONS74590)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74590) (LOCALLY (DECLARE (TYPE CONS #:CONS74590)) (LET ((#:IT74593 (CAR #:CONS74590))) (DECLARE (IGNORABLE #:IT74593)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74593 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT74593)) (LET ((#:CONS74594 (CDR #:CONS74590))) (DECLARE (IGNORABLE #:CONS74594)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74594) (LOCALLY (DECLARE (TYPE CONS #:CONS74594)) (LET ((#:IT74595 (CDR #:CONS74594))) (DECLARE (IGNORABLE #:IT74595)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74595) (LOCALLY (DECLARE (TYPE NULL #:IT74595)) (LET ((#:BIND74591 #:INTERSECTION74592)) (DECLARE (IGNORABLE #:BIND74591)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74605 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74605 (GUARD1 (#:IT74602 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74602 'SINGLE-FLOAT) #:INTERSECTION74605 (GUARD1 (#:BIND74603 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74605 (GUARD1 (#:BIND74604 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75584 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75585 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75586 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74599 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74599)) (LET ((#:CONS74596 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:CONS74596)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74596) (LOCALLY (DECLARE (TYPE CONS #:CONS74596)) (LET ((#:IT74600 (CAR #:CONS74596))) (DECLARE (IGNORABLE #:IT74600)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74600 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT74600)) (LET ((#:IT74601 (CDR #:CONS74596))) (DECLARE (IGNORABLE #:IT74601)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74601) (LOCALLY (DECLARE (TYPE NULL #:IT74601)) (LET ((#:BIND74597 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:BIND74597)) (LET ((#:BIND74598 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:BIND74598)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74605 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74605 (GUARD1 (#:IT74602 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74602 'SINGLE-FLOAT) #:INTERSECTION74605 (GUARD1 (#:BIND74603 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74605 (GUARD1 (#:BIND74604 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75587 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75588 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75589 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75166 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75166)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75166) (LOCALLY (DECLARE (TYPE CONS #:FUSION75166)) (LET ((#:CONS74585 #:FUSION75166)) (DECLARE (IGNORABLE #:CONS74585)) (LOCALLY (DECLARE (TYPE CONS #:CONS74585)) (LET ((#:GEN75167 (CAR #:FUSION75166))) (DECLARE (IGNORABLE #:GEN75167)) (LET ((#:GEN75168 (CDR #:FUSION75166))) (DECLARE (IGNORABLE #:GEN75168)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75169 T) (MATCH1 NIL ((GUARD1 #:IT75590 T) (MATCH2*+ (#:GEN75167 #:GEN75168 #:PAT75169) (T T T) (((GUARD1 (#:IT74586 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74586 'SINGLE-FLOAT)) (GUARD1 (#:CONS74587 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74587) (CDR #:CONS74587) (GUARD1 (#:CONS74588 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74588) (CDR #:CONS74588) (GUARD1 (#:IT74589 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74589)))) (GUARD1 (#:CONS74606 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74606) (CAR #:CONS74606) (GUARD1 (#:IT74607 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74607 'SINGLE-FLOAT)) (CDR #:CONS74606) (GUARD1 (#:CONS74608 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74608) (CDR #:CONS74608) (GUARD1 (#:CONS74609 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74609) (CDR #:CONS74609) (GUARD1 (#:IT74610 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74610)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74586 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74586 'SINGLE-FLOAT)) (GUARD1 (#:CONS74587 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74587) (CDR #:CONS74587) (GUARD1 (#:CONS74588 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74588) (CDR #:CONS74588) (GUARD1 (#:IT74589 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74589)))) (GUARD1 (#:INTERSECTION74613 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74613 (GUARD1 (#:CONS74611 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74611) (CAR #:CONS74611) (GUARD1 (#:IT74614 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74614 'SINGLE-FLOAT)) (CDR #:CONS74611) (GUARD1 (#:CONS74615 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74615) (CDR #:CONS74615) (GUARD1 (#:IT74616 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74616))) #:INTERSECTION74613 (GUARD1 (#:BIND74612 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74586 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74586 'SINGLE-FLOAT)) (GUARD1 (#:CONS74587 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74587) (CDR #:CONS74587) (GUARD1 (#:CONS74588 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74588) (CDR #:CONS74588) (GUARD1 (#:IT74589 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74589)))) (GUARD1 (#:INTERSECTION74620 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74620 (GUARD1 (#:CONS74617 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74617) (CAR #:CONS74617) (GUARD1 (#:IT74621 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74621 'SINGLE-FLOAT)) (CDR #:CONS74617) (GUARD1 (#:IT74622 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74622)) #:INTERSECTION74620 (GUARD1 (#:BIND74618 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74620 (GUARD1 (#:BIND74619 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75591 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75592 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74592 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74592)) (LET ((#:CONS74590 #:INTERSECTION74592)) (DECLARE (IGNORABLE #:CONS74590)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74590) (LOCALLY (DECLARE (TYPE CONS #:CONS74590)) (LET ((#:IT74593 (CAR #:CONS74590))) (DECLARE (IGNORABLE #:IT74593)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74593 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT74593)) (LET ((#:CONS74594 (CDR #:CONS74590))) (DECLARE (IGNORABLE #:CONS74594)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74594) (LOCALLY (DECLARE (TYPE CONS #:CONS74594)) (LET ((#:IT74595 (CDR #:CONS74594))) (DECLARE (IGNORABLE #:IT74595)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74595) (LOCALLY (DECLARE (TYPE NULL #:IT74595)) (LET ((#:BIND74591 #:INTERSECTION74592)) (DECLARE (IGNORABLE #:BIND74591)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:CONS74606 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74606) (CAR #:CONS74606) (GUARD1 (#:IT74607 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74607 'SINGLE-FLOAT)) (CDR #:CONS74606) (GUARD1 (#:CONS74608 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74608) (CDR #:CONS74608) (GUARD1 (#:CONS74609 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74609) (CDR #:CONS74609) (GUARD1 (#:IT74610 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74610))))) (MATCH1 NIL ((GUARD1 #:IT75593 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75594 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75595 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74592 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74592)) (LET ((#:CONS74590 #:INTERSECTION74592)) (DECLARE (IGNORABLE #:CONS74590)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74590) (LOCALLY (DECLARE (TYPE CONS #:CONS74590)) (LET ((#:IT74593 (CAR #:CONS74590))) (DECLARE (IGNORABLE #:IT74593)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74593 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT74593)) (LET ((#:CONS74594 (CDR #:CONS74590))) (DECLARE (IGNORABLE #:CONS74594)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74594) (LOCALLY (DECLARE (TYPE CONS #:CONS74594)) (LET ((#:IT74595 (CDR #:CONS74594))) (DECLARE (IGNORABLE #:IT74595)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74595) (LOCALLY (DECLARE (TYPE NULL #:IT74595)) (LET ((#:BIND74591 #:INTERSECTION74592)) (DECLARE (IGNORABLE #:BIND74591)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74613 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74613 (GUARD1 (#:CONS74611 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74611) (CAR #:CONS74611) (GUARD1 (#:IT74614 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74614 'SINGLE-FLOAT)) (CDR #:CONS74611) (GUARD1 (#:CONS74615 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74615) (CDR #:CONS74615) (GUARD1 (#:IT74616 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74616))) #:INTERSECTION74613 (GUARD1 (#:BIND74612 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75596 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75597 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75598 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74592 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74592)) (LET ((#:CONS74590 #:INTERSECTION74592)) (DECLARE (IGNORABLE #:CONS74590)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74590) (LOCALLY (DECLARE (TYPE CONS #:CONS74590)) (LET ((#:IT74593 (CAR #:CONS74590))) (DECLARE (IGNORABLE #:IT74593)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74593 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT74593)) (LET ((#:CONS74594 (CDR #:CONS74590))) (DECLARE (IGNORABLE #:CONS74594)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74594) (LOCALLY (DECLARE (TYPE CONS #:CONS74594)) (LET ((#:IT74595 (CDR #:CONS74594))) (DECLARE (IGNORABLE #:IT74595)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74595) (LOCALLY (DECLARE (TYPE NULL #:IT74595)) (LET ((#:BIND74591 #:INTERSECTION74592)) (DECLARE (IGNORABLE #:BIND74591)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74620 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74620 (GUARD1 (#:CONS74617 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74617) (CAR #:CONS74617) (GUARD1 (#:IT74621 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74621 'SINGLE-FLOAT)) (CDR #:CONS74617) (GUARD1 (#:IT74622 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74622)) #:INTERSECTION74620 (GUARD1 (#:BIND74618 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74620 (GUARD1 (#:BIND74619 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75599 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75600 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75601 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74599 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74599)) (LET ((#:CONS74596 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:CONS74596)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74596) (LOCALLY (DECLARE (TYPE CONS #:CONS74596)) (LET ((#:IT74600 (CAR #:CONS74596))) (DECLARE (IGNORABLE #:IT74600)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74600 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT74600)) (LET ((#:IT74601 (CDR #:CONS74596))) (DECLARE (IGNORABLE #:IT74601)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74601) (LOCALLY (DECLARE (TYPE NULL #:IT74601)) (LET ((#:BIND74597 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:BIND74597)) (LET ((#:BIND74598 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:BIND74598)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:CONS74606 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74606) (CAR #:CONS74606) (GUARD1 (#:IT74607 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74607 'SINGLE-FLOAT)) (CDR #:CONS74606) (GUARD1 (#:CONS74608 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74608) (CDR #:CONS74608) (GUARD1 (#:CONS74609 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74609) (CDR #:CONS74609) (GUARD1 (#:IT74610 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74610))))) (MATCH1 NIL ((GUARD1 #:IT75602 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75603 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75604 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74599 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74599)) (LET ((#:CONS74596 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:CONS74596)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74596) (LOCALLY (DECLARE (TYPE CONS #:CONS74596)) (LET ((#:IT74600 (CAR #:CONS74596))) (DECLARE (IGNORABLE #:IT74600)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74600 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT74600)) (LET ((#:IT74601 (CDR #:CONS74596))) (DECLARE (IGNORABLE #:IT74601)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74601) (LOCALLY (DECLARE (TYPE NULL #:IT74601)) (LET ((#:BIND74597 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:BIND74597)) (LET ((#:BIND74598 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:BIND74598)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74613 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74613 (GUARD1 (#:CONS74611 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74611) (CAR #:CONS74611) (GUARD1 (#:IT74614 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74614 'SINGLE-FLOAT)) (CDR #:CONS74611) (GUARD1 (#:CONS74615 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74615) (CDR #:CONS74615) (GUARD1 (#:IT74616 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74616))) #:INTERSECTION74613 (GUARD1 (#:BIND74612 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75605 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75606 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75607 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74599 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74599)) (LET ((#:CONS74596 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:CONS74596)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74596) (LOCALLY (DECLARE (TYPE CONS #:CONS74596)) (LET ((#:IT74600 (CAR #:CONS74596))) (DECLARE (IGNORABLE #:IT74600)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74600 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT74600)) (LET ((#:IT74601 (CDR #:CONS74596))) (DECLARE (IGNORABLE #:IT74601)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74601) (LOCALLY (DECLARE (TYPE NULL #:IT74601)) (LET ((#:BIND74597 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:BIND74597)) (LET ((#:BIND74598 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:BIND74598)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74620 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74620 (GUARD1 (#:CONS74617 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74617) (CAR #:CONS74617) (GUARD1 (#:IT74621 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74621 'SINGLE-FLOAT)) (CDR #:CONS74617) (GUARD1 (#:IT74622 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74622)) #:INTERSECTION74620 (GUARD1 (#:BIND74618 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74620 (GUARD1 (#:BIND74619 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75608 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75609 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75610 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74626 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74626)) (LET ((#:IT74623 #:INTERSECTION74626)) (DECLARE (IGNORABLE #:IT74623)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74623 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT74623)) (LET ((#:BIND74624 #:INTERSECTION74626)) (DECLARE (IGNORABLE #:BIND74624)) (LET ((#:BIND74625 #:INTERSECTION74626)) (DECLARE (IGNORABLE #:BIND74625)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74647 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74647 (GUARD1 (#:IT74644 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74644 'DOUBLE-FLOAT) #:INTERSECTION74647 (GUARD1 (#:BIND74645 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74647 (GUARD1 (#:BIND74646 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75611 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75612 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75613 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74626 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74626)) (LET ((#:IT74623 #:INTERSECTION74626)) (DECLARE (IGNORABLE #:IT74623)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74623 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT74623)) (LET ((#:BIND74624 #:INTERSECTION74626)) (DECLARE (IGNORABLE #:BIND74624)) (LET ((#:BIND74625 #:INTERSECTION74626)) (DECLARE (IGNORABLE #:BIND74625)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74648 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74648) (CAR #:CONS74648) (GUARD1 (#:IT74649 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74649 'DOUBLE-FLOAT)) (CDR #:CONS74648) (GUARD1 (#:CONS74650 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74650) (CDR #:CONS74650) (GUARD1 (#:CONS74651 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74651) (CDR #:CONS74651) (GUARD1 (#:IT74652 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74652))))) (GUARD1 (#:INTERSECTION74655 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74655 (GUARD1 (#:CONS74653 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74653) (CAR #:CONS74653) (GUARD1 (#:IT74656 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74656 'DOUBLE-FLOAT)) (CDR #:CONS74653) (GUARD1 (#:CONS74657 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74657) (CDR #:CONS74657) (GUARD1 (#:IT74658 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74658))) #:INTERSECTION74655 (GUARD1 (#:BIND74654 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74662 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74662 (GUARD1 (#:CONS74659 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74659) (CAR #:CONS74659) (GUARD1 (#:IT74663 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74663 'DOUBLE-FLOAT)) (CDR #:CONS74659) (GUARD1 (#:IT74664 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74664)) #:INTERSECTION74662 (GUARD1 (#:BIND74660 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74662 (GUARD1 (#:BIND74661 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75614 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75615 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75616 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS74627 #:WHAT176093)) (DECLARE (IGNORABLE #:CONS74627)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74627) (LOCALLY (DECLARE (TYPE CONS #:CONS74627)) (LET ((#:IT74628 (CAR #:CONS74627))) (DECLARE (IGNORABLE #:IT74628)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74628 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT74628)) (LET ((#:CONS74629 (CDR #:CONS74627))) (DECLARE (IGNORABLE #:CONS74629)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74629) (LOCALLY (DECLARE (TYPE CONS #:CONS74629)) (LET ((#:CONS74630 (CDR #:CONS74629))) (DECLARE (IGNORABLE #:CONS74630)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74630) (LOCALLY (DECLARE (TYPE CONS #:CONS74630)) (LET ((#:IT74631 (CDR #:CONS74630))) (DECLARE (IGNORABLE #:IT74631)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74631) (LOCALLY (DECLARE (TYPE NULL #:IT74631)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74647 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74647 (GUARD1 (#:IT74644 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74644 'DOUBLE-FLOAT) #:INTERSECTION74647 (GUARD1 (#:BIND74645 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74647 (GUARD1 (#:BIND74646 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75617 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75618 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75619 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74634 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74634)) (LET ((#:CONS74632 #:INTERSECTION74634)) (DECLARE (IGNORABLE #:CONS74632)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74632) (LOCALLY (DECLARE (TYPE CONS #:CONS74632)) (LET ((#:IT74635 (CAR #:CONS74632))) (DECLARE (IGNORABLE #:IT74635)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74635 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT74635)) (LET ((#:CONS74636 (CDR #:CONS74632))) (DECLARE (IGNORABLE #:CONS74636)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74636) (LOCALLY (DECLARE (TYPE CONS #:CONS74636)) (LET ((#:IT74637 (CDR #:CONS74636))) (DECLARE (IGNORABLE #:IT74637)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74637) (LOCALLY (DECLARE (TYPE NULL #:IT74637)) (LET ((#:BIND74633 #:INTERSECTION74634)) (DECLARE (IGNORABLE #:BIND74633)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74647 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74647 (GUARD1 (#:IT74644 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74644 'DOUBLE-FLOAT) #:INTERSECTION74647 (GUARD1 (#:BIND74645 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74647 (GUARD1 (#:BIND74646 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75620 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75621 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75622 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74641 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74641)) (LET ((#:CONS74638 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:CONS74638)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74638) (LOCALLY (DECLARE (TYPE CONS #:CONS74638)) (LET ((#:IT74642 (CAR #:CONS74638))) (DECLARE (IGNORABLE #:IT74642)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74642 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT74642)) (LET ((#:IT74643 (CDR #:CONS74638))) (DECLARE (IGNORABLE #:IT74643)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74643) (LOCALLY (DECLARE (TYPE NULL #:IT74643)) (LET ((#:BIND74639 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:BIND74639)) (LET ((#:BIND74640 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:BIND74640)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74647 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74647 (GUARD1 (#:IT74644 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74644 'DOUBLE-FLOAT) #:INTERSECTION74647 (GUARD1 (#:BIND74645 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74647 (GUARD1 (#:BIND74646 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75623 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75624 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75625 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75176 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75176)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75176) (LOCALLY (DECLARE (TYPE CONS #:FUSION75176)) (LET ((#:CONS74627 #:FUSION75176)) (DECLARE (IGNORABLE #:CONS74627)) (LOCALLY (DECLARE (TYPE CONS #:CONS74627)) (LET ((#:GEN75177 (CAR #:FUSION75176))) (DECLARE (IGNORABLE #:GEN75177)) (LET ((#:GEN75178 (CDR #:FUSION75176))) (DECLARE (IGNORABLE #:GEN75178)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75179 T) (MATCH1 NIL ((GUARD1 #:IT75626 T) (MATCH2*+ (#:GEN75177 #:GEN75178 #:PAT75179) (T T T) (((GUARD1 (#:IT74628 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74628 'DOUBLE-FLOAT)) (GUARD1 (#:CONS74629 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74629) (CDR #:CONS74629) (GUARD1 (#:CONS74630 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74630) (CDR #:CONS74630) (GUARD1 (#:IT74631 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74631)))) (GUARD1 (#:CONS74648 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74648) (CAR #:CONS74648) (GUARD1 (#:IT74649 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74649 'DOUBLE-FLOAT)) (CDR #:CONS74648) (GUARD1 (#:CONS74650 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74650) (CDR #:CONS74650) (GUARD1 (#:CONS74651 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74651) (CDR #:CONS74651) (GUARD1 (#:IT74652 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74652)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74628 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74628 'DOUBLE-FLOAT)) (GUARD1 (#:CONS74629 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74629) (CDR #:CONS74629) (GUARD1 (#:CONS74630 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74630) (CDR #:CONS74630) (GUARD1 (#:IT74631 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74631)))) (GUARD1 (#:INTERSECTION74655 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74655 (GUARD1 (#:CONS74653 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74653) (CAR #:CONS74653) (GUARD1 (#:IT74656 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74656 'DOUBLE-FLOAT)) (CDR #:CONS74653) (GUARD1 (#:CONS74657 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74657) (CDR #:CONS74657) (GUARD1 (#:IT74658 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74658))) #:INTERSECTION74655 (GUARD1 (#:BIND74654 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74628 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74628 'DOUBLE-FLOAT)) (GUARD1 (#:CONS74629 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74629) (CDR #:CONS74629) (GUARD1 (#:CONS74630 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74630) (CDR #:CONS74630) (GUARD1 (#:IT74631 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74631)))) (GUARD1 (#:INTERSECTION74662 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74662 (GUARD1 (#:CONS74659 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74659) (CAR #:CONS74659) (GUARD1 (#:IT74663 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74663 'DOUBLE-FLOAT)) (CDR #:CONS74659) (GUARD1 (#:IT74664 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74664)) #:INTERSECTION74662 (GUARD1 (#:BIND74660 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74662 (GUARD1 (#:BIND74661 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75627 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75628 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74634 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74634)) (LET ((#:CONS74632 #:INTERSECTION74634)) (DECLARE (IGNORABLE #:CONS74632)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74632) (LOCALLY (DECLARE (TYPE CONS #:CONS74632)) (LET ((#:IT74635 (CAR #:CONS74632))) (DECLARE (IGNORABLE #:IT74635)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74635 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT74635)) (LET ((#:CONS74636 (CDR #:CONS74632))) (DECLARE (IGNORABLE #:CONS74636)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74636) (LOCALLY (DECLARE (TYPE CONS #:CONS74636)) (LET ((#:IT74637 (CDR #:CONS74636))) (DECLARE (IGNORABLE #:IT74637)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74637) (LOCALLY (DECLARE (TYPE NULL #:IT74637)) (LET ((#:BIND74633 #:INTERSECTION74634)) (DECLARE (IGNORABLE #:BIND74633)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:CONS74648 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74648) (CAR #:CONS74648) (GUARD1 (#:IT74649 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74649 'DOUBLE-FLOAT)) (CDR #:CONS74648) (GUARD1 (#:CONS74650 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74650) (CDR #:CONS74650) (GUARD1 (#:CONS74651 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74651) (CDR #:CONS74651) (GUARD1 (#:IT74652 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74652))))) (MATCH1 NIL ((GUARD1 #:IT75629 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75630 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75631 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74634 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74634)) (LET ((#:CONS74632 #:INTERSECTION74634)) (DECLARE (IGNORABLE #:CONS74632)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74632) (LOCALLY (DECLARE (TYPE CONS #:CONS74632)) (LET ((#:IT74635 (CAR #:CONS74632))) (DECLARE (IGNORABLE #:IT74635)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74635 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT74635)) (LET ((#:CONS74636 (CDR #:CONS74632))) (DECLARE (IGNORABLE #:CONS74636)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74636) (LOCALLY (DECLARE (TYPE CONS #:CONS74636)) (LET ((#:IT74637 (CDR #:CONS74636))) (DECLARE (IGNORABLE #:IT74637)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74637) (LOCALLY (DECLARE (TYPE NULL #:IT74637)) (LET ((#:BIND74633 #:INTERSECTION74634)) (DECLARE (IGNORABLE #:BIND74633)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74655 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74655 (GUARD1 (#:CONS74653 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74653) (CAR #:CONS74653) (GUARD1 (#:IT74656 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74656 'DOUBLE-FLOAT)) (CDR #:CONS74653) (GUARD1 (#:CONS74657 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74657) (CDR #:CONS74657) (GUARD1 (#:IT74658 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74658))) #:INTERSECTION74655 (GUARD1 (#:BIND74654 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75632 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75633 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75634 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74634 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74634)) (LET ((#:CONS74632 #:INTERSECTION74634)) (DECLARE (IGNORABLE #:CONS74632)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74632) (LOCALLY (DECLARE (TYPE CONS #:CONS74632)) (LET ((#:IT74635 (CAR #:CONS74632))) (DECLARE (IGNORABLE #:IT74635)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74635 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT74635)) (LET ((#:CONS74636 (CDR #:CONS74632))) (DECLARE (IGNORABLE #:CONS74636)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74636) (LOCALLY (DECLARE (TYPE CONS #:CONS74636)) (LET ((#:IT74637 (CDR #:CONS74636))) (DECLARE (IGNORABLE #:IT74637)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74637) (LOCALLY (DECLARE (TYPE NULL #:IT74637)) (LET ((#:BIND74633 #:INTERSECTION74634)) (DECLARE (IGNORABLE #:BIND74633)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74662 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74662 (GUARD1 (#:CONS74659 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74659) (CAR #:CONS74659) (GUARD1 (#:IT74663 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74663 'DOUBLE-FLOAT)) (CDR #:CONS74659) (GUARD1 (#:IT74664 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74664)) #:INTERSECTION74662 (GUARD1 (#:BIND74660 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74662 (GUARD1 (#:BIND74661 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75635 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75636 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75637 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74641 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74641)) (LET ((#:CONS74638 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:CONS74638)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74638) (LOCALLY (DECLARE (TYPE CONS #:CONS74638)) (LET ((#:IT74642 (CAR #:CONS74638))) (DECLARE (IGNORABLE #:IT74642)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74642 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT74642)) (LET ((#:IT74643 (CDR #:CONS74638))) (DECLARE (IGNORABLE #:IT74643)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74643) (LOCALLY (DECLARE (TYPE NULL #:IT74643)) (LET ((#:BIND74639 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:BIND74639)) (LET ((#:BIND74640 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:BIND74640)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:CONS74648 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74648) (CAR #:CONS74648) (GUARD1 (#:IT74649 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74649 'DOUBLE-FLOAT)) (CDR #:CONS74648) (GUARD1 (#:CONS74650 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74650) (CDR #:CONS74650) (GUARD1 (#:CONS74651 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74651) (CDR #:CONS74651) (GUARD1 (#:IT74652 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74652))))) (MATCH1 NIL ((GUARD1 #:IT75638 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75639 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75640 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74641 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74641)) (LET ((#:CONS74638 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:CONS74638)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74638) (LOCALLY (DECLARE (TYPE CONS #:CONS74638)) (LET ((#:IT74642 (CAR #:CONS74638))) (DECLARE (IGNORABLE #:IT74642)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74642 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT74642)) (LET ((#:IT74643 (CDR #:CONS74638))) (DECLARE (IGNORABLE #:IT74643)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74643) (LOCALLY (DECLARE (TYPE NULL #:IT74643)) (LET ((#:BIND74639 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:BIND74639)) (LET ((#:BIND74640 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:BIND74640)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74655 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74655 (GUARD1 (#:CONS74653 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74653) (CAR #:CONS74653) (GUARD1 (#:IT74656 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74656 'DOUBLE-FLOAT)) (CDR #:CONS74653) (GUARD1 (#:CONS74657 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74657) (CDR #:CONS74657) (GUARD1 (#:IT74658 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74658))) #:INTERSECTION74655 (GUARD1 (#:BIND74654 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75641 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75642 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75643 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74641 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74641)) (LET ((#:CONS74638 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:CONS74638)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74638) (LOCALLY (DECLARE (TYPE CONS #:CONS74638)) (LET ((#:IT74642 (CAR #:CONS74638))) (DECLARE (IGNORABLE #:IT74642)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74642 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT74642)) (LET ((#:IT74643 (CDR #:CONS74638))) (DECLARE (IGNORABLE #:IT74643)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74643) (LOCALLY (DECLARE (TYPE NULL #:IT74643)) (LET ((#:BIND74639 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:BIND74639)) (LET ((#:BIND74640 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:BIND74640)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74662 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74662 (GUARD1 (#:CONS74659 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74659) (CAR #:CONS74659) (GUARD1 (#:IT74663 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74663 'DOUBLE-FLOAT)) (CDR #:CONS74659) (GUARD1 (#:IT74664 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74664)) #:INTERSECTION74662 (GUARD1 (#:BIND74660 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74662 (GUARD1 (#:BIND74661 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75644 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75645 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75646 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74668 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74668)) (LET ((#:IT74665 #:INTERSECTION74668)) (DECLARE (IGNORABLE #:IT74665)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74665 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT74665)) (LET ((#:BIND74666 #:INTERSECTION74668)) (DECLARE (IGNORABLE #:BIND74666)) (LET ((#:BIND74667 #:INTERSECTION74668)) (DECLARE (IGNORABLE #:BIND74667)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74689 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74689 (GUARD1 (#:IT74686 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74686 'LONG-FLOAT) #:INTERSECTION74689 (GUARD1 (#:BIND74687 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74689 (GUARD1 (#:BIND74688 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75647 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75648 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75649 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74668 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74668)) (LET ((#:IT74665 #:INTERSECTION74668)) (DECLARE (IGNORABLE #:IT74665)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74665 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT74665)) (LET ((#:BIND74666 #:INTERSECTION74668)) (DECLARE (IGNORABLE #:BIND74666)) (LET ((#:BIND74667 #:INTERSECTION74668)) (DECLARE (IGNORABLE #:BIND74667)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74690 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74690) (CAR #:CONS74690) (GUARD1 (#:IT74691 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74691 'LONG-FLOAT)) (CDR #:CONS74690) (GUARD1 (#:CONS74692 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74692) (CDR #:CONS74692) (GUARD1 (#:CONS74693 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74693) (CDR #:CONS74693) (GUARD1 (#:IT74694 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74694))))) (GUARD1 (#:INTERSECTION74697 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74697 (GUARD1 (#:CONS74695 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74695) (CAR #:CONS74695) (GUARD1 (#:IT74698 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74698 'LONG-FLOAT)) (CDR #:CONS74695) (GUARD1 (#:CONS74699 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74699) (CDR #:CONS74699) (GUARD1 (#:IT74700 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74700))) #:INTERSECTION74697 (GUARD1 (#:BIND74696 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74704 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74704 (GUARD1 (#:CONS74701 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74701) (CAR #:CONS74701) (GUARD1 (#:IT74705 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74705 'LONG-FLOAT)) (CDR #:CONS74701) (GUARD1 (#:IT74706 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74706)) #:INTERSECTION74704 (GUARD1 (#:BIND74702 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74704 (GUARD1 (#:BIND74703 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75650 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75651 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75652 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS74669 #:WHAT176093)) (DECLARE (IGNORABLE #:CONS74669)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74669) (LOCALLY (DECLARE (TYPE CONS #:CONS74669)) (LET ((#:IT74670 (CAR #:CONS74669))) (DECLARE (IGNORABLE #:IT74670)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74670 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT74670)) (LET ((#:CONS74671 (CDR #:CONS74669))) (DECLARE (IGNORABLE #:CONS74671)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74671) (LOCALLY (DECLARE (TYPE CONS #:CONS74671)) (LET ((#:CONS74672 (CDR #:CONS74671))) (DECLARE (IGNORABLE #:CONS74672)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74672) (LOCALLY (DECLARE (TYPE CONS #:CONS74672)) (LET ((#:IT74673 (CDR #:CONS74672))) (DECLARE (IGNORABLE #:IT74673)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74673) (LOCALLY (DECLARE (TYPE NULL #:IT74673)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74689 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74689 (GUARD1 (#:IT74686 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74686 'LONG-FLOAT) #:INTERSECTION74689 (GUARD1 (#:BIND74687 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74689 (GUARD1 (#:BIND74688 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75653 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75654 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75655 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74676 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74676)) (LET ((#:CONS74674 #:INTERSECTION74676)) (DECLARE (IGNORABLE #:CONS74674)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74674) (LOCALLY (DECLARE (TYPE CONS #:CONS74674)) (LET ((#:IT74677 (CAR #:CONS74674))) (DECLARE (IGNORABLE #:IT74677)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74677 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT74677)) (LET ((#:CONS74678 (CDR #:CONS74674))) (DECLARE (IGNORABLE #:CONS74678)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74678) (LOCALLY (DECLARE (TYPE CONS #:CONS74678)) (LET ((#:IT74679 (CDR #:CONS74678))) (DECLARE (IGNORABLE #:IT74679)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74679) (LOCALLY (DECLARE (TYPE NULL #:IT74679)) (LET ((#:BIND74675 #:INTERSECTION74676)) (DECLARE (IGNORABLE #:BIND74675)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74689 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74689 (GUARD1 (#:IT74686 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74686 'LONG-FLOAT) #:INTERSECTION74689 (GUARD1 (#:BIND74687 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74689 (GUARD1 (#:BIND74688 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75656 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75657 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75658 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74683 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74683)) (LET ((#:CONS74680 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:CONS74680)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74680) (LOCALLY (DECLARE (TYPE CONS #:CONS74680)) (LET ((#:IT74684 (CAR #:CONS74680))) (DECLARE (IGNORABLE #:IT74684)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74684 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT74684)) (LET ((#:IT74685 (CDR #:CONS74680))) (DECLARE (IGNORABLE #:IT74685)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74685) (LOCALLY (DECLARE (TYPE NULL #:IT74685)) (LET ((#:BIND74681 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:BIND74681)) (LET ((#:BIND74682 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:BIND74682)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74689 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74689 (GUARD1 (#:IT74686 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74686 'LONG-FLOAT) #:INTERSECTION74689 (GUARD1 (#:BIND74687 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74689 (GUARD1 (#:BIND74688 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75659 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75660 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75661 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75186 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75186)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75186) (LOCALLY (DECLARE (TYPE CONS #:FUSION75186)) (LET ((#:CONS74669 #:FUSION75186)) (DECLARE (IGNORABLE #:CONS74669)) (LOCALLY (DECLARE (TYPE CONS #:CONS74669)) (LET ((#:GEN75187 (CAR #:FUSION75186))) (DECLARE (IGNORABLE #:GEN75187)) (LET ((#:GEN75188 (CDR #:FUSION75186))) (DECLARE (IGNORABLE #:GEN75188)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75189 T) (MATCH1 NIL ((GUARD1 #:IT75662 T) (MATCH2*+ (#:GEN75187 #:GEN75188 #:PAT75189) (T T T) (((GUARD1 (#:IT74670 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74670 'LONG-FLOAT)) (GUARD1 (#:CONS74671 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74671) (CDR #:CONS74671) (GUARD1 (#:CONS74672 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74672) (CDR #:CONS74672) (GUARD1 (#:IT74673 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74673)))) (GUARD1 (#:CONS74690 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74690) (CAR #:CONS74690) (GUARD1 (#:IT74691 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74691 'LONG-FLOAT)) (CDR #:CONS74690) (GUARD1 (#:CONS74692 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74692) (CDR #:CONS74692) (GUARD1 (#:CONS74693 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74693) (CDR #:CONS74693) (GUARD1 (#:IT74694 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74694)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74670 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74670 'LONG-FLOAT)) (GUARD1 (#:CONS74671 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74671) (CDR #:CONS74671) (GUARD1 (#:CONS74672 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74672) (CDR #:CONS74672) (GUARD1 (#:IT74673 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74673)))) (GUARD1 (#:INTERSECTION74697 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74697 (GUARD1 (#:CONS74695 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74695) (CAR #:CONS74695) (GUARD1 (#:IT74698 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74698 'LONG-FLOAT)) (CDR #:CONS74695) (GUARD1 (#:CONS74699 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74699) (CDR #:CONS74699) (GUARD1 (#:IT74700 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74700))) #:INTERSECTION74697 (GUARD1 (#:BIND74696 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74670 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74670 'LONG-FLOAT)) (GUARD1 (#:CONS74671 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74671) (CDR #:CONS74671) (GUARD1 (#:CONS74672 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74672) (CDR #:CONS74672) (GUARD1 (#:IT74673 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74673)))) (GUARD1 (#:INTERSECTION74704 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74704 (GUARD1 (#:CONS74701 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74701) (CAR #:CONS74701) (GUARD1 (#:IT74705 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74705 'LONG-FLOAT)) (CDR #:CONS74701) (GUARD1 (#:IT74706 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74706)) #:INTERSECTION74704 (GUARD1 (#:BIND74702 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74704 (GUARD1 (#:BIND74703 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75663 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75664 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74676 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74676)) (LET ((#:CONS74674 #:INTERSECTION74676)) (DECLARE (IGNORABLE #:CONS74674)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74674) (LOCALLY (DECLARE (TYPE CONS #:CONS74674)) (LET ((#:IT74677 (CAR #:CONS74674))) (DECLARE (IGNORABLE #:IT74677)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74677 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT74677)) (LET ((#:CONS74678 (CDR #:CONS74674))) (DECLARE (IGNORABLE #:CONS74678)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74678) (LOCALLY (DECLARE (TYPE CONS #:CONS74678)) (LET ((#:IT74679 (CDR #:CONS74678))) (DECLARE (IGNORABLE #:IT74679)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74679) (LOCALLY (DECLARE (TYPE NULL #:IT74679)) (LET ((#:BIND74675 #:INTERSECTION74676)) (DECLARE (IGNORABLE #:BIND74675)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:CONS74690 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74690) (CAR #:CONS74690) (GUARD1 (#:IT74691 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74691 'LONG-FLOAT)) (CDR #:CONS74690) (GUARD1 (#:CONS74692 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74692) (CDR #:CONS74692) (GUARD1 (#:CONS74693 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74693) (CDR #:CONS74693) (GUARD1 (#:IT74694 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74694))))) (MATCH1 NIL ((GUARD1 #:IT75665 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75666 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75667 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74676 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74676)) (LET ((#:CONS74674 #:INTERSECTION74676)) (DECLARE (IGNORABLE #:CONS74674)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74674) (LOCALLY (DECLARE (TYPE CONS #:CONS74674)) (LET ((#:IT74677 (CAR #:CONS74674))) (DECLARE (IGNORABLE #:IT74677)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74677 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT74677)) (LET ((#:CONS74678 (CDR #:CONS74674))) (DECLARE (IGNORABLE #:CONS74678)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74678) (LOCALLY (DECLARE (TYPE CONS #:CONS74678)) (LET ((#:IT74679 (CDR #:CONS74678))) (DECLARE (IGNORABLE #:IT74679)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74679) (LOCALLY (DECLARE (TYPE NULL #:IT74679)) (LET ((#:BIND74675 #:INTERSECTION74676)) (DECLARE (IGNORABLE #:BIND74675)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74697 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74697 (GUARD1 (#:CONS74695 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74695) (CAR #:CONS74695) (GUARD1 (#:IT74698 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74698 'LONG-FLOAT)) (CDR #:CONS74695) (GUARD1 (#:CONS74699 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74699) (CDR #:CONS74699) (GUARD1 (#:IT74700 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74700))) #:INTERSECTION74697 (GUARD1 (#:BIND74696 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75668 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75669 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75670 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74676 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74676)) (LET ((#:CONS74674 #:INTERSECTION74676)) (DECLARE (IGNORABLE #:CONS74674)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74674) (LOCALLY (DECLARE (TYPE CONS #:CONS74674)) (LET ((#:IT74677 (CAR #:CONS74674))) (DECLARE (IGNORABLE #:IT74677)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74677 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT74677)) (LET ((#:CONS74678 (CDR #:CONS74674))) (DECLARE (IGNORABLE #:CONS74678)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74678) (LOCALLY (DECLARE (TYPE CONS #:CONS74678)) (LET ((#:IT74679 (CDR #:CONS74678))) (DECLARE (IGNORABLE #:IT74679)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74679) (LOCALLY (DECLARE (TYPE NULL #:IT74679)) (LET ((#:BIND74675 #:INTERSECTION74676)) (DECLARE (IGNORABLE #:BIND74675)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74704 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74704 (GUARD1 (#:CONS74701 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74701) (CAR #:CONS74701) (GUARD1 (#:IT74705 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74705 'LONG-FLOAT)) (CDR #:CONS74701) (GUARD1 (#:IT74706 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74706)) #:INTERSECTION74704 (GUARD1 (#:BIND74702 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74704 (GUARD1 (#:BIND74703 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75671 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75672 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75673 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74683 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74683)) (LET ((#:CONS74680 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:CONS74680)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74680) (LOCALLY (DECLARE (TYPE CONS #:CONS74680)) (LET ((#:IT74684 (CAR #:CONS74680))) (DECLARE (IGNORABLE #:IT74684)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74684 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT74684)) (LET ((#:IT74685 (CDR #:CONS74680))) (DECLARE (IGNORABLE #:IT74685)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74685) (LOCALLY (DECLARE (TYPE NULL #:IT74685)) (LET ((#:BIND74681 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:BIND74681)) (LET ((#:BIND74682 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:BIND74682)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:CONS74690 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74690) (CAR #:CONS74690) (GUARD1 (#:IT74691 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74691 'LONG-FLOAT)) (CDR #:CONS74690) (GUARD1 (#:CONS74692 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74692) (CDR #:CONS74692) (GUARD1 (#:CONS74693 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74693) (CDR #:CONS74693) (GUARD1 (#:IT74694 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74694))))) (MATCH1 NIL ((GUARD1 #:IT75674 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75675 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75676 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74683 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74683)) (LET ((#:CONS74680 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:CONS74680)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74680) (LOCALLY (DECLARE (TYPE CONS #:CONS74680)) (LET ((#:IT74684 (CAR #:CONS74680))) (DECLARE (IGNORABLE #:IT74684)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74684 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT74684)) (LET ((#:IT74685 (CDR #:CONS74680))) (DECLARE (IGNORABLE #:IT74685)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74685) (LOCALLY (DECLARE (TYPE NULL #:IT74685)) (LET ((#:BIND74681 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:BIND74681)) (LET ((#:BIND74682 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:BIND74682)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74697 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74697 (GUARD1 (#:CONS74695 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74695) (CAR #:CONS74695) (GUARD1 (#:IT74698 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74698 'LONG-FLOAT)) (CDR #:CONS74695) (GUARD1 (#:CONS74699 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74699) (CDR #:CONS74699) (GUARD1 (#:IT74700 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74700))) #:INTERSECTION74697 (GUARD1 (#:BIND74696 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75677 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75678 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75679 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74683 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74683)) (LET ((#:CONS74680 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:CONS74680)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74680) (LOCALLY (DECLARE (TYPE CONS #:CONS74680)) (LET ((#:IT74684 (CAR #:CONS74680))) (DECLARE (IGNORABLE #:IT74684)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74684 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT74684)) (LET ((#:IT74685 (CDR #:CONS74680))) (DECLARE (IGNORABLE #:IT74685)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74685) (LOCALLY (DECLARE (TYPE NULL #:IT74685)) (LET ((#:BIND74681 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:BIND74681)) (LET ((#:BIND74682 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:BIND74682)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74704 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74704 (GUARD1 (#:CONS74701 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74701) (CAR #:CONS74701) (GUARD1 (#:IT74705 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74705 'LONG-FLOAT)) (CDR #:CONS74701) (GUARD1 (#:IT74706 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74706)) #:INTERSECTION74704 (GUARD1 (#:BIND74702 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74704 (GUARD1 (#:BIND74703 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75680 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75681 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75682 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74710 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74710)) (LET ((#:IT74707 #:INTERSECTION74710)) (DECLARE (IGNORABLE #:IT74707)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74707 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT74707)) (LET ((#:BIND74708 #:INTERSECTION74710)) (DECLARE (IGNORABLE #:BIND74708)) (LET ((#:BIND74709 #:INTERSECTION74710)) (DECLARE (IGNORABLE #:BIND74709)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74731 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74731 (GUARD1 (#:IT74728 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74728 'SHORT-FLOAT) #:INTERSECTION74731 (GUARD1 (#:BIND74729 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74731 (GUARD1 (#:BIND74730 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75683 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75684 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75685 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74710 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74710)) (LET ((#:IT74707 #:INTERSECTION74710)) (DECLARE (IGNORABLE #:IT74707)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74707 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT74707)) (LET ((#:BIND74708 #:INTERSECTION74710)) (DECLARE (IGNORABLE #:BIND74708)) (LET ((#:BIND74709 #:INTERSECTION74710)) (DECLARE (IGNORABLE #:BIND74709)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74732 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74732) (CAR #:CONS74732) (GUARD1 (#:IT74733 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74733 'SHORT-FLOAT)) (CDR #:CONS74732) (GUARD1 (#:CONS74734 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74734) (CDR #:CONS74734) (GUARD1 (#:CONS74735 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74735) (CDR #:CONS74735) (GUARD1 (#:IT74736 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74736))))) (GUARD1 (#:INTERSECTION74739 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74739 (GUARD1 (#:CONS74737 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74737) (CAR #:CONS74737) (GUARD1 (#:IT74740 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74740 'SHORT-FLOAT)) (CDR #:CONS74737) (GUARD1 (#:CONS74741 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74741) (CDR #:CONS74741) (GUARD1 (#:IT74742 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74742))) #:INTERSECTION74739 (GUARD1 (#:BIND74738 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74746 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74746 (GUARD1 (#:CONS74743 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74743) (CAR #:CONS74743) (GUARD1 (#:IT74747 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74747 'SHORT-FLOAT)) (CDR #:CONS74743) (GUARD1 (#:IT74748 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74748)) #:INTERSECTION74746 (GUARD1 (#:BIND74744 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74746 (GUARD1 (#:BIND74745 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75686 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75687 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75688 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS74711 #:WHAT176093)) (DECLARE (IGNORABLE #:CONS74711)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74711) (LOCALLY (DECLARE (TYPE CONS #:CONS74711)) (LET ((#:IT74712 (CAR #:CONS74711))) (DECLARE (IGNORABLE #:IT74712)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74712 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT74712)) (LET ((#:CONS74713 (CDR #:CONS74711))) (DECLARE (IGNORABLE #:CONS74713)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74713) (LOCALLY (DECLARE (TYPE CONS #:CONS74713)) (LET ((#:CONS74714 (CDR #:CONS74713))) (DECLARE (IGNORABLE #:CONS74714)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74714) (LOCALLY (DECLARE (TYPE CONS #:CONS74714)) (LET ((#:IT74715 (CDR #:CONS74714))) (DECLARE (IGNORABLE #:IT74715)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74715) (LOCALLY (DECLARE (TYPE NULL #:IT74715)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74731 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74731 (GUARD1 (#:IT74728 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74728 'SHORT-FLOAT) #:INTERSECTION74731 (GUARD1 (#:BIND74729 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74731 (GUARD1 (#:BIND74730 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75689 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75690 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75691 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74718 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74718)) (LET ((#:CONS74716 #:INTERSECTION74718)) (DECLARE (IGNORABLE #:CONS74716)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74716) (LOCALLY (DECLARE (TYPE CONS #:CONS74716)) (LET ((#:IT74719 (CAR #:CONS74716))) (DECLARE (IGNORABLE #:IT74719)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74719 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT74719)) (LET ((#:CONS74720 (CDR #:CONS74716))) (DECLARE (IGNORABLE #:CONS74720)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74720) (LOCALLY (DECLARE (TYPE CONS #:CONS74720)) (LET ((#:IT74721 (CDR #:CONS74720))) (DECLARE (IGNORABLE #:IT74721)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74721) (LOCALLY (DECLARE (TYPE NULL #:IT74721)) (LET ((#:BIND74717 #:INTERSECTION74718)) (DECLARE (IGNORABLE #:BIND74717)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74731 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74731 (GUARD1 (#:IT74728 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74728 'SHORT-FLOAT) #:INTERSECTION74731 (GUARD1 (#:BIND74729 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74731 (GUARD1 (#:BIND74730 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75692 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75693 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75694 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74725 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74725)) (LET ((#:CONS74722 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:CONS74722)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74722) (LOCALLY (DECLARE (TYPE CONS #:CONS74722)) (LET ((#:IT74726 (CAR #:CONS74722))) (DECLARE (IGNORABLE #:IT74726)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74726 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT74726)) (LET ((#:IT74727 (CDR #:CONS74722))) (DECLARE (IGNORABLE #:IT74727)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74727) (LOCALLY (DECLARE (TYPE NULL #:IT74727)) (LET ((#:BIND74723 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:BIND74723)) (LET ((#:BIND74724 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:BIND74724)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74731 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74731 (GUARD1 (#:IT74728 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74728 'SHORT-FLOAT) #:INTERSECTION74731 (GUARD1 (#:BIND74729 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74731 (GUARD1 (#:BIND74730 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75695 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75696 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75697 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75196 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75196)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75196) (LOCALLY (DECLARE (TYPE CONS #:FUSION75196)) (LET ((#:CONS74711 #:FUSION75196)) (DECLARE (IGNORABLE #:CONS74711)) (LOCALLY (DECLARE (TYPE CONS #:CONS74711)) (LET ((#:GEN75197 (CAR #:FUSION75196))) (DECLARE (IGNORABLE #:GEN75197)) (LET ((#:GEN75198 (CDR #:FUSION75196))) (DECLARE (IGNORABLE #:GEN75198)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75199 T) (MATCH1 NIL ((GUARD1 #:IT75698 T) (MATCH2*+ (#:GEN75197 #:GEN75198 #:PAT75199) (T T T) (((GUARD1 (#:IT74712 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74712 'SHORT-FLOAT)) (GUARD1 (#:CONS74713 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74713) (CDR #:CONS74713) (GUARD1 (#:CONS74714 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74714) (CDR #:CONS74714) (GUARD1 (#:IT74715 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74715)))) (GUARD1 (#:CONS74732 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74732) (CAR #:CONS74732) (GUARD1 (#:IT74733 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74733 'SHORT-FLOAT)) (CDR #:CONS74732) (GUARD1 (#:CONS74734 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74734) (CDR #:CONS74734) (GUARD1 (#:CONS74735 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74735) (CDR #:CONS74735) (GUARD1 (#:IT74736 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74736)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74712 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74712 'SHORT-FLOAT)) (GUARD1 (#:CONS74713 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74713) (CDR #:CONS74713) (GUARD1 (#:CONS74714 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74714) (CDR #:CONS74714) (GUARD1 (#:IT74715 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74715)))) (GUARD1 (#:INTERSECTION74739 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74739 (GUARD1 (#:CONS74737 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74737) (CAR #:CONS74737) (GUARD1 (#:IT74740 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74740 'SHORT-FLOAT)) (CDR #:CONS74737) (GUARD1 (#:CONS74741 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74741) (CDR #:CONS74741) (GUARD1 (#:IT74742 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74742))) #:INTERSECTION74739 (GUARD1 (#:BIND74738 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74712 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74712 'SHORT-FLOAT)) (GUARD1 (#:CONS74713 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74713) (CDR #:CONS74713) (GUARD1 (#:CONS74714 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74714) (CDR #:CONS74714) (GUARD1 (#:IT74715 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74715)))) (GUARD1 (#:INTERSECTION74746 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74746 (GUARD1 (#:CONS74743 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74743) (CAR #:CONS74743) (GUARD1 (#:IT74747 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74747 'SHORT-FLOAT)) (CDR #:CONS74743) (GUARD1 (#:IT74748 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74748)) #:INTERSECTION74746 (GUARD1 (#:BIND74744 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74746 (GUARD1 (#:BIND74745 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75699 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75700 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74718 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74718)) (LET ((#:CONS74716 #:INTERSECTION74718)) (DECLARE (IGNORABLE #:CONS74716)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74716) (LOCALLY (DECLARE (TYPE CONS #:CONS74716)) (LET ((#:IT74719 (CAR #:CONS74716))) (DECLARE (IGNORABLE #:IT74719)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74719 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT74719)) (LET ((#:CONS74720 (CDR #:CONS74716))) (DECLARE (IGNORABLE #:CONS74720)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74720) (LOCALLY (DECLARE (TYPE CONS #:CONS74720)) (LET ((#:IT74721 (CDR #:CONS74720))) (DECLARE (IGNORABLE #:IT74721)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74721) (LOCALLY (DECLARE (TYPE NULL #:IT74721)) (LET ((#:BIND74717 #:INTERSECTION74718)) (DECLARE (IGNORABLE #:BIND74717)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:CONS74732 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74732) (CAR #:CONS74732) (GUARD1 (#:IT74733 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74733 'SHORT-FLOAT)) (CDR #:CONS74732) (GUARD1 (#:CONS74734 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74734) (CDR #:CONS74734) (GUARD1 (#:CONS74735 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74735) (CDR #:CONS74735) (GUARD1 (#:IT74736 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74736))))) (MATCH1 NIL ((GUARD1 #:IT75701 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75702 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75703 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74718 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74718)) (LET ((#:CONS74716 #:INTERSECTION74718)) (DECLARE (IGNORABLE #:CONS74716)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74716) (LOCALLY (DECLARE (TYPE CONS #:CONS74716)) (LET ((#:IT74719 (CAR #:CONS74716))) (DECLARE (IGNORABLE #:IT74719)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74719 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT74719)) (LET ((#:CONS74720 (CDR #:CONS74716))) (DECLARE (IGNORABLE #:CONS74720)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74720) (LOCALLY (DECLARE (TYPE CONS #:CONS74720)) (LET ((#:IT74721 (CDR #:CONS74720))) (DECLARE (IGNORABLE #:IT74721)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74721) (LOCALLY (DECLARE (TYPE NULL #:IT74721)) (LET ((#:BIND74717 #:INTERSECTION74718)) (DECLARE (IGNORABLE #:BIND74717)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74739 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74739 (GUARD1 (#:CONS74737 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74737) (CAR #:CONS74737) (GUARD1 (#:IT74740 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74740 'SHORT-FLOAT)) (CDR #:CONS74737) (GUARD1 (#:CONS74741 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74741) (CDR #:CONS74741) (GUARD1 (#:IT74742 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74742))) #:INTERSECTION74739 (GUARD1 (#:BIND74738 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75704 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75705 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75706 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74718 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74718)) (LET ((#:CONS74716 #:INTERSECTION74718)) (DECLARE (IGNORABLE #:CONS74716)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74716) (LOCALLY (DECLARE (TYPE CONS #:CONS74716)) (LET ((#:IT74719 (CAR #:CONS74716))) (DECLARE (IGNORABLE #:IT74719)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74719 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT74719)) (LET ((#:CONS74720 (CDR #:CONS74716))) (DECLARE (IGNORABLE #:CONS74720)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74720) (LOCALLY (DECLARE (TYPE CONS #:CONS74720)) (LET ((#:IT74721 (CDR #:CONS74720))) (DECLARE (IGNORABLE #:IT74721)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74721) (LOCALLY (DECLARE (TYPE NULL #:IT74721)) (LET ((#:BIND74717 #:INTERSECTION74718)) (DECLARE (IGNORABLE #:BIND74717)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74746 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74746 (GUARD1 (#:CONS74743 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74743) (CAR #:CONS74743) (GUARD1 (#:IT74747 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74747 'SHORT-FLOAT)) (CDR #:CONS74743) (GUARD1 (#:IT74748 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74748)) #:INTERSECTION74746 (GUARD1 (#:BIND74744 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74746 (GUARD1 (#:BIND74745 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75707 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75708 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75709 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74725 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74725)) (LET ((#:CONS74722 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:CONS74722)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74722) (LOCALLY (DECLARE (TYPE CONS #:CONS74722)) (LET ((#:IT74726 (CAR #:CONS74722))) (DECLARE (IGNORABLE #:IT74726)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74726 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT74726)) (LET ((#:IT74727 (CDR #:CONS74722))) (DECLARE (IGNORABLE #:IT74727)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74727) (LOCALLY (DECLARE (TYPE NULL #:IT74727)) (LET ((#:BIND74723 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:BIND74723)) (LET ((#:BIND74724 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:BIND74724)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:CONS74732 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74732) (CAR #:CONS74732) (GUARD1 (#:IT74733 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74733 'SHORT-FLOAT)) (CDR #:CONS74732) (GUARD1 (#:CONS74734 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74734) (CDR #:CONS74734) (GUARD1 (#:CONS74735 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74735) (CDR #:CONS74735) (GUARD1 (#:IT74736 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74736))))) (MATCH1 NIL ((GUARD1 #:IT75710 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75711 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75712 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74725 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74725)) (LET ((#:CONS74722 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:CONS74722)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74722) (LOCALLY (DECLARE (TYPE CONS #:CONS74722)) (LET ((#:IT74726 (CAR #:CONS74722))) (DECLARE (IGNORABLE #:IT74726)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74726 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT74726)) (LET ((#:IT74727 (CDR #:CONS74722))) (DECLARE (IGNORABLE #:IT74727)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74727) (LOCALLY (DECLARE (TYPE NULL #:IT74727)) (LET ((#:BIND74723 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:BIND74723)) (LET ((#:BIND74724 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:BIND74724)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74739 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74739 (GUARD1 (#:CONS74737 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74737) (CAR #:CONS74737) (GUARD1 (#:IT74740 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74740 'SHORT-FLOAT)) (CDR #:CONS74737) (GUARD1 (#:CONS74741 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74741) (CDR #:CONS74741) (GUARD1 (#:IT74742 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74742))) #:INTERSECTION74739 (GUARD1 (#:BIND74738 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75713 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75714 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75715 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74725 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74725)) (LET ((#:CONS74722 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:CONS74722)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74722) (LOCALLY (DECLARE (TYPE CONS #:CONS74722)) (LET ((#:IT74726 (CAR #:CONS74722))) (DECLARE (IGNORABLE #:IT74726)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74726 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT74726)) (LET ((#:IT74727 (CDR #:CONS74722))) (DECLARE (IGNORABLE #:IT74727)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74727) (LOCALLY (DECLARE (TYPE NULL #:IT74727)) (LET ((#:BIND74723 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:BIND74723)) (LET ((#:BIND74724 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:BIND74724)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74746 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74746 (GUARD1 (#:CONS74743 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74743) (CAR #:CONS74743) (GUARD1 (#:IT74747 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74747 'SHORT-FLOAT)) (CDR #:CONS74743) (GUARD1 (#:IT74748 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74748)) #:INTERSECTION74746 (GUARD1 (#:BIND74744 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74746 (GUARD1 (#:BIND74745 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75716 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75717 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75718 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74752 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74752)) (LET ((#:IT74749 #:INTERSECTION74752)) (DECLARE (IGNORABLE #:IT74749)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74749 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74749)) (LET ((#:BIND74750 #:INTERSECTION74752)) (DECLARE (IGNORABLE #:BIND74750)) (LET ((#:BIND74751 #:INTERSECTION74752)) (DECLARE (IGNORABLE #:BIND74751)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74773 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74773 (GUARD1 (#:IT74772 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74772 'FLOAT) #:INTERSECTION74773 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74773 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION74775 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74775 (GUARD1 (#:IT74774 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74774 'SHORT-FLOAT) #:INTERSECTION74775 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74775 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION74777 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74777 (GUARD1 (#:IT74776 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74776 'SINGLE-FLOAT) #:INTERSECTION74777 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74777 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION74779 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74779 (GUARD1 (#:IT74778 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74778 'DOUBLE-FLOAT) #:INTERSECTION74779 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74779 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION74781 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74781 (GUARD1 (#:IT74780 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74780 'LONG-FLOAT) #:INTERSECTION74781 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74781 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75719 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75720 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75721 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74752 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74752)) (LET ((#:IT74749 #:INTERSECTION74752)) (DECLARE (IGNORABLE #:IT74749)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74749 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74749)) (LET ((#:BIND74750 #:INTERSECTION74752)) (DECLARE (IGNORABLE #:BIND74750)) (LET ((#:BIND74751 #:INTERSECTION74752)) (DECLARE (IGNORABLE #:BIND74751)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74782 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74782) (CAR #:CONS74782) (OR1 (GUARD1 (#:IT74783 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74783 'FLOAT)) (GUARD1 (#:IT74784 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74784 'SHORT-FLOAT)) (GUARD1 (#:IT74785 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74785 'SINGLE-FLOAT)) (GUARD1 (#:IT74786 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74786 'DOUBLE-FLOAT)) (GUARD1 (#:IT74787 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74787 'LONG-FLOAT))) (CDR #:CONS74782) (GUARD1 (#:CONS74788 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74788) (CDR #:CONS74788) (GUARD1 (#:CONS74789 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74789) (CDR #:CONS74789) (GUARD1 (#:IT74790 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74790))))) (GUARD1 (#:INTERSECTION74793 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74793 (GUARD1 (#:CONS74791 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74791) (CAR #:CONS74791) (OR1 (GUARD1 (#:IT74794 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74794 'FLOAT)) (GUARD1 (#:IT74795 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74795 'SHORT-FLOAT)) (GUARD1 (#:IT74796 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74796 'SINGLE-FLOAT)) (GUARD1 (#:IT74797 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74797 'DOUBLE-FLOAT)) (GUARD1 (#:IT74798 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74798 'LONG-FLOAT))) (CDR #:CONS74791) (GUARD1 (#:CONS74799 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74799) (CDR #:CONS74799) (GUARD1 (#:IT74800 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74800))) #:INTERSECTION74793 (GUARD1 (#:BIND74792 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74804 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74804 (GUARD1 (#:CONS74801 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74801) (CAR #:CONS74801) (OR1 (GUARD1 (#:IT74805 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74805 'FLOAT)) (GUARD1 (#:IT74806 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74806 'SHORT-FLOAT)) (GUARD1 (#:IT74807 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74807 'SINGLE-FLOAT)) (GUARD1 (#:IT74808 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74808 'DOUBLE-FLOAT)) (GUARD1 (#:IT74809 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74809 'LONG-FLOAT))) (CDR #:CONS74801) (GUARD1 (#:IT74810 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74810)) #:INTERSECTION74804 (GUARD1 (#:BIND74802 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74804 (GUARD1 (#:BIND74803 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75722 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75723 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75724 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75203 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75203)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75203) (LOCALLY (DECLARE (TYPE CONS #:FUSION75203)) (LET ((#:CONS74753 #:FUSION75203)) (DECLARE (IGNORABLE #:CONS74753)) (LOCALLY (DECLARE (TYPE CONS #:CONS74753)) (LET ((#:GEN75204 (CAR #:FUSION75203))) (DECLARE (IGNORABLE #:GEN75204)) (LET ((#:GEN75205 (CDR #:FUSION75203))) (DECLARE (IGNORABLE #:GEN75205)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75206 T) (MATCH1 NIL ((GUARD1 #:IT75725 T) (MATCH2*+ (#:GEN75204 #:GEN75205 #:PAT75206) (T T T) (((GUARD1 (#:IT74754 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74754 'FLOAT)) (GUARD1 (#:CONS74755 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74755) (CDR #:CONS74755) (GUARD1 (#:CONS74756 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74756) (CDR #:CONS74756) (GUARD1 (#:IT74757 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74757)))) (GUARD1 (#:INTERSECTION74773 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74773 (GUARD1 (#:IT74772 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74772 'FLOAT) #:INTERSECTION74773 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74773 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74754 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74754 'FLOAT)) (GUARD1 (#:CONS74755 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74755) (CDR #:CONS74755) (GUARD1 (#:CONS74756 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74756) (CDR #:CONS74756) (GUARD1 (#:IT74757 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74757)))) (GUARD1 (#:INTERSECTION74775 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74775 (GUARD1 (#:IT74774 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74774 'SHORT-FLOAT) #:INTERSECTION74775 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74775 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74754 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74754 'FLOAT)) (GUARD1 (#:CONS74755 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74755) (CDR #:CONS74755) (GUARD1 (#:CONS74756 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74756) (CDR #:CONS74756) (GUARD1 (#:IT74757 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74757)))) (GUARD1 (#:INTERSECTION74777 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74777 (GUARD1 (#:IT74776 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74776 'SINGLE-FLOAT) #:INTERSECTION74777 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74777 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74754 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74754 'FLOAT)) (GUARD1 (#:CONS74755 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74755) (CDR #:CONS74755) (GUARD1 (#:CONS74756 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74756) (CDR #:CONS74756) (GUARD1 (#:IT74757 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74757)))) (GUARD1 (#:INTERSECTION74779 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74779 (GUARD1 (#:IT74778 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74778 'DOUBLE-FLOAT) #:INTERSECTION74779 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74779 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74754 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74754 'FLOAT)) (GUARD1 (#:CONS74755 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74755) (CDR #:CONS74755) (GUARD1 (#:CONS74756 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74756) (CDR #:CONS74756) (GUARD1 (#:IT74757 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74757)))) (GUARD1 (#:INTERSECTION74781 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74781 (GUARD1 (#:IT74780 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74780 'LONG-FLOAT) #:INTERSECTION74781 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74781 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75726 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75727 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74760 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74760)) (LET ((#:CONS74758 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:CONS74758)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74758) (LOCALLY (DECLARE (TYPE CONS #:CONS74758)) (LET ((#:IT74761 (CAR #:CONS74758))) (DECLARE (IGNORABLE #:IT74761)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74761 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74761)) (LET ((#:CONS74762 (CDR #:CONS74758))) (DECLARE (IGNORABLE #:CONS74762)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74762) (LOCALLY (DECLARE (TYPE CONS #:CONS74762)) (LET ((#:IT74763 (CDR #:CONS74762))) (DECLARE (IGNORABLE #:IT74763)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74763) (LOCALLY (DECLARE (TYPE NULL #:IT74763)) (LET ((#:BIND74759 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:BIND74759)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74773 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74773 (GUARD1 (#:IT74772 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74772 'FLOAT) #:INTERSECTION74773 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74773 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75728 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75729 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75730 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74760 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74760)) (LET ((#:CONS74758 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:CONS74758)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74758) (LOCALLY (DECLARE (TYPE CONS #:CONS74758)) (LET ((#:IT74761 (CAR #:CONS74758))) (DECLARE (IGNORABLE #:IT74761)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74761 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74761)) (LET ((#:CONS74762 (CDR #:CONS74758))) (DECLARE (IGNORABLE #:CONS74762)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74762) (LOCALLY (DECLARE (TYPE CONS #:CONS74762)) (LET ((#:IT74763 (CDR #:CONS74762))) (DECLARE (IGNORABLE #:IT74763)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74763) (LOCALLY (DECLARE (TYPE NULL #:IT74763)) (LET ((#:BIND74759 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:BIND74759)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74775 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74775 (GUARD1 (#:IT74774 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74774 'SHORT-FLOAT) #:INTERSECTION74775 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74775 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75731 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75732 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75733 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74760 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74760)) (LET ((#:CONS74758 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:CONS74758)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74758) (LOCALLY (DECLARE (TYPE CONS #:CONS74758)) (LET ((#:IT74761 (CAR #:CONS74758))) (DECLARE (IGNORABLE #:IT74761)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74761 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74761)) (LET ((#:CONS74762 (CDR #:CONS74758))) (DECLARE (IGNORABLE #:CONS74762)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74762) (LOCALLY (DECLARE (TYPE CONS #:CONS74762)) (LET ((#:IT74763 (CDR #:CONS74762))) (DECLARE (IGNORABLE #:IT74763)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74763) (LOCALLY (DECLARE (TYPE NULL #:IT74763)) (LET ((#:BIND74759 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:BIND74759)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74777 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74777 (GUARD1 (#:IT74776 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74776 'SINGLE-FLOAT) #:INTERSECTION74777 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74777 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75734 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75735 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75736 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74760 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74760)) (LET ((#:CONS74758 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:CONS74758)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74758) (LOCALLY (DECLARE (TYPE CONS #:CONS74758)) (LET ((#:IT74761 (CAR #:CONS74758))) (DECLARE (IGNORABLE #:IT74761)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74761 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74761)) (LET ((#:CONS74762 (CDR #:CONS74758))) (DECLARE (IGNORABLE #:CONS74762)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74762) (LOCALLY (DECLARE (TYPE CONS #:CONS74762)) (LET ((#:IT74763 (CDR #:CONS74762))) (DECLARE (IGNORABLE #:IT74763)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74763) (LOCALLY (DECLARE (TYPE NULL #:IT74763)) (LET ((#:BIND74759 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:BIND74759)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74779 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74779 (GUARD1 (#:IT74778 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74778 'DOUBLE-FLOAT) #:INTERSECTION74779 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74779 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75737 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75738 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75739 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74760 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74760)) (LET ((#:CONS74758 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:CONS74758)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74758) (LOCALLY (DECLARE (TYPE CONS #:CONS74758)) (LET ((#:IT74761 (CAR #:CONS74758))) (DECLARE (IGNORABLE #:IT74761)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74761 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74761)) (LET ((#:CONS74762 (CDR #:CONS74758))) (DECLARE (IGNORABLE #:CONS74762)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74762) (LOCALLY (DECLARE (TYPE CONS #:CONS74762)) (LET ((#:IT74763 (CDR #:CONS74762))) (DECLARE (IGNORABLE #:IT74763)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74763) (LOCALLY (DECLARE (TYPE NULL #:IT74763)) (LET ((#:BIND74759 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:BIND74759)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74781 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74781 (GUARD1 (#:IT74780 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74780 'LONG-FLOAT) #:INTERSECTION74781 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74781 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75740 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75741 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75742 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74767 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74767)) (LET ((#:CONS74764 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:CONS74764)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74764) (LOCALLY (DECLARE (TYPE CONS #:CONS74764)) (LET ((#:IT74768 (CAR #:CONS74764))) (DECLARE (IGNORABLE #:IT74768)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74768 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74768)) (LET ((#:IT74769 (CDR #:CONS74764))) (DECLARE (IGNORABLE #:IT74769)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74769) (LOCALLY (DECLARE (TYPE NULL #:IT74769)) (LET ((#:BIND74765 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74765)) (LET ((#:BIND74766 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74766)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74773 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74773 (GUARD1 (#:IT74772 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74772 'FLOAT) #:INTERSECTION74773 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74773 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75743 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75744 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75745 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74767 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74767)) (LET ((#:CONS74764 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:CONS74764)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74764) (LOCALLY (DECLARE (TYPE CONS #:CONS74764)) (LET ((#:IT74768 (CAR #:CONS74764))) (DECLARE (IGNORABLE #:IT74768)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74768 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74768)) (LET ((#:IT74769 (CDR #:CONS74764))) (DECLARE (IGNORABLE #:IT74769)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74769) (LOCALLY (DECLARE (TYPE NULL #:IT74769)) (LET ((#:BIND74765 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74765)) (LET ((#:BIND74766 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74766)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74775 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74775 (GUARD1 (#:IT74774 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74774 'SHORT-FLOAT) #:INTERSECTION74775 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74775 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75746 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75747 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75748 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74767 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74767)) (LET ((#:CONS74764 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:CONS74764)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74764) (LOCALLY (DECLARE (TYPE CONS #:CONS74764)) (LET ((#:IT74768 (CAR #:CONS74764))) (DECLARE (IGNORABLE #:IT74768)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74768 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74768)) (LET ((#:IT74769 (CDR #:CONS74764))) (DECLARE (IGNORABLE #:IT74769)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74769) (LOCALLY (DECLARE (TYPE NULL #:IT74769)) (LET ((#:BIND74765 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74765)) (LET ((#:BIND74766 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74766)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74777 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74777 (GUARD1 (#:IT74776 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74776 'SINGLE-FLOAT) #:INTERSECTION74777 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74777 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75749 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75750 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75751 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74767 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74767)) (LET ((#:CONS74764 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:CONS74764)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74764) (LOCALLY (DECLARE (TYPE CONS #:CONS74764)) (LET ((#:IT74768 (CAR #:CONS74764))) (DECLARE (IGNORABLE #:IT74768)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74768 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74768)) (LET ((#:IT74769 (CDR #:CONS74764))) (DECLARE (IGNORABLE #:IT74769)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74769) (LOCALLY (DECLARE (TYPE NULL #:IT74769)) (LET ((#:BIND74765 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74765)) (LET ((#:BIND74766 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74766)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74779 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74779 (GUARD1 (#:IT74778 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74778 'DOUBLE-FLOAT) #:INTERSECTION74779 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74779 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75752 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75753 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75754 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74767 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74767)) (LET ((#:CONS74764 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:CONS74764)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74764) (LOCALLY (DECLARE (TYPE CONS #:CONS74764)) (LET ((#:IT74768 (CAR #:CONS74764))) (DECLARE (IGNORABLE #:IT74768)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74768 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74768)) (LET ((#:IT74769 (CDR #:CONS74764))) (DECLARE (IGNORABLE #:IT74769)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74769) (LOCALLY (DECLARE (TYPE NULL #:IT74769)) (LET ((#:BIND74765 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74765)) (LET ((#:BIND74766 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74766)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74781 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74781 (GUARD1 (#:IT74780 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74780 'LONG-FLOAT) #:INTERSECTION74781 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74781 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75755 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75756 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75757 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75210 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75210)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75210) (LOCALLY (DECLARE (TYPE CONS #:FUSION75210)) (LET ((#:CONS74753 #:FUSION75210)) (DECLARE (IGNORABLE #:CONS74753)) (LOCALLY (DECLARE (TYPE CONS #:CONS74753)) (LET ((#:GEN75211 (CAR #:FUSION75210))) (DECLARE (IGNORABLE #:GEN75211)) (LET ((#:GEN75212 (CDR #:FUSION75210))) (DECLARE (IGNORABLE #:GEN75212)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75213 T) (MATCH1 NIL ((GUARD1 #:IT75758 T) (MATCH2*+ (#:GEN75211 #:GEN75212 #:PAT75213) (T T T) (((GUARD1 (#:IT74754 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74754 'FLOAT)) (GUARD1 (#:CONS74755 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74755) (CDR #:CONS74755) (GUARD1 (#:CONS74756 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74756) (CDR #:CONS74756) (GUARD1 (#:IT74757 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74757)))) (GUARD1 (#:CONS74782 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74782) (CAR #:CONS74782) (OR1 (GUARD1 (#:IT74783 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74783 'FLOAT)) (GUARD1 (#:IT74784 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74784 'SHORT-FLOAT)) (GUARD1 (#:IT74785 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74785 'SINGLE-FLOAT)) (GUARD1 (#:IT74786 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74786 'DOUBLE-FLOAT)) (GUARD1 (#:IT74787 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74787 'LONG-FLOAT))) (CDR #:CONS74782) (GUARD1 (#:CONS74788 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74788) (CDR #:CONS74788) (GUARD1 (#:CONS74789 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74789) (CDR #:CONS74789) (GUARD1 (#:IT74790 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74790)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74754 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74754 'FLOAT)) (GUARD1 (#:CONS74755 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74755) (CDR #:CONS74755) (GUARD1 (#:CONS74756 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74756) (CDR #:CONS74756) (GUARD1 (#:IT74757 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74757)))) (GUARD1 (#:INTERSECTION74793 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74793 (GUARD1 (#:CONS74791 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74791) (CAR #:CONS74791) (OR1 (GUARD1 (#:IT74794 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74794 'FLOAT)) (GUARD1 (#:IT74795 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74795 'SHORT-FLOAT)) (GUARD1 (#:IT74796 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74796 'SINGLE-FLOAT)) (GUARD1 (#:IT74797 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74797 'DOUBLE-FLOAT)) (GUARD1 (#:IT74798 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74798 'LONG-FLOAT))) (CDR #:CONS74791) (GUARD1 (#:CONS74799 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74799) (CDR #:CONS74799) (GUARD1 (#:IT74800 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74800))) #:INTERSECTION74793 (GUARD1 (#:BIND74792 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74754 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74754 'FLOAT)) (GUARD1 (#:CONS74755 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74755) (CDR #:CONS74755) (GUARD1 (#:CONS74756 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74756) (CDR #:CONS74756) (GUARD1 (#:IT74757 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74757)))) (GUARD1 (#:INTERSECTION74804 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74804 (GUARD1 (#:CONS74801 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74801) (CAR #:CONS74801) (OR1 (GUARD1 (#:IT74805 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74805 'FLOAT)) (GUARD1 (#:IT74806 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74806 'SHORT-FLOAT)) (GUARD1 (#:IT74807 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74807 'SINGLE-FLOAT)) (GUARD1 (#:IT74808 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74808 'DOUBLE-FLOAT)) (GUARD1 (#:IT74809 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74809 'LONG-FLOAT))) (CDR #:CONS74801) (GUARD1 (#:IT74810 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74810)) #:INTERSECTION74804 (GUARD1 (#:BIND74802 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74804 (GUARD1 (#:BIND74803 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75759 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75760 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74760 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74760)) (LET ((#:CONS74758 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:CONS74758)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74758) (LOCALLY (DECLARE (TYPE CONS #:CONS74758)) (LET ((#:IT74761 (CAR #:CONS74758))) (DECLARE (IGNORABLE #:IT74761)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74761 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74761)) (LET ((#:CONS74762 (CDR #:CONS74758))) (DECLARE (IGNORABLE #:CONS74762)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74762) (LOCALLY (DECLARE (TYPE CONS #:CONS74762)) (LET ((#:IT74763 (CDR #:CONS74762))) (DECLARE (IGNORABLE #:IT74763)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74763) (LOCALLY (DECLARE (TYPE NULL #:IT74763)) (LET ((#:BIND74759 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:BIND74759)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:CONS74782 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74782) (CAR #:CONS74782) (OR1 (GUARD1 (#:IT74783 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74783 'FLOAT)) (GUARD1 (#:IT74784 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74784 'SHORT-FLOAT)) (GUARD1 (#:IT74785 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74785 'SINGLE-FLOAT)) (GUARD1 (#:IT74786 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74786 'DOUBLE-FLOAT)) (GUARD1 (#:IT74787 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74787 'LONG-FLOAT))) (CDR #:CONS74782) (GUARD1 (#:CONS74788 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74788) (CDR #:CONS74788) (GUARD1 (#:CONS74789 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74789) (CDR #:CONS74789) (GUARD1 (#:IT74790 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74790))))) (MATCH1 NIL ((GUARD1 #:IT75761 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75762 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75763 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74760 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74760)) (LET ((#:CONS74758 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:CONS74758)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74758) (LOCALLY (DECLARE (TYPE CONS #:CONS74758)) (LET ((#:IT74761 (CAR #:CONS74758))) (DECLARE (IGNORABLE #:IT74761)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74761 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74761)) (LET ((#:CONS74762 (CDR #:CONS74758))) (DECLARE (IGNORABLE #:CONS74762)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74762) (LOCALLY (DECLARE (TYPE CONS #:CONS74762)) (LET ((#:IT74763 (CDR #:CONS74762))) (DECLARE (IGNORABLE #:IT74763)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74763) (LOCALLY (DECLARE (TYPE NULL #:IT74763)) (LET ((#:BIND74759 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:BIND74759)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74793 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74793 (GUARD1 (#:CONS74791 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74791) (CAR #:CONS74791) (OR1 (GUARD1 (#:IT74794 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74794 'FLOAT)) (GUARD1 (#:IT74795 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74795 'SHORT-FLOAT)) (GUARD1 (#:IT74796 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74796 'SINGLE-FLOAT)) (GUARD1 (#:IT74797 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74797 'DOUBLE-FLOAT)) (GUARD1 (#:IT74798 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74798 'LONG-FLOAT))) (CDR #:CONS74791) (GUARD1 (#:CONS74799 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74799) (CDR #:CONS74799) (GUARD1 (#:IT74800 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74800))) #:INTERSECTION74793 (GUARD1 (#:BIND74792 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75764 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75765 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75766 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74760 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74760)) (LET ((#:CONS74758 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:CONS74758)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74758) (LOCALLY (DECLARE (TYPE CONS #:CONS74758)) (LET ((#:IT74761 (CAR #:CONS74758))) (DECLARE (IGNORABLE #:IT74761)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74761 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74761)) (LET ((#:CONS74762 (CDR #:CONS74758))) (DECLARE (IGNORABLE #:CONS74762)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74762) (LOCALLY (DECLARE (TYPE CONS #:CONS74762)) (LET ((#:IT74763 (CDR #:CONS74762))) (DECLARE (IGNORABLE #:IT74763)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74763) (LOCALLY (DECLARE (TYPE NULL #:IT74763)) (LET ((#:BIND74759 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:BIND74759)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74804 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74804 (GUARD1 (#:CONS74801 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74801) (CAR #:CONS74801) (OR1 (GUARD1 (#:IT74805 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74805 'FLOAT)) (GUARD1 (#:IT74806 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74806 'SHORT-FLOAT)) (GUARD1 (#:IT74807 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74807 'SINGLE-FLOAT)) (GUARD1 (#:IT74808 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74808 'DOUBLE-FLOAT)) (GUARD1 (#:IT74809 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74809 'LONG-FLOAT))) (CDR #:CONS74801) (GUARD1 (#:IT74810 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74810)) #:INTERSECTION74804 (GUARD1 (#:BIND74802 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74804 (GUARD1 (#:BIND74803 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75767 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75768 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75769 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74767 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74767)) (LET ((#:CONS74764 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:CONS74764)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74764) (LOCALLY (DECLARE (TYPE CONS #:CONS74764)) (LET ((#:IT74768 (CAR #:CONS74764))) (DECLARE (IGNORABLE #:IT74768)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74768 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74768)) (LET ((#:IT74769 (CDR #:CONS74764))) (DECLARE (IGNORABLE #:IT74769)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74769) (LOCALLY (DECLARE (TYPE NULL #:IT74769)) (LET ((#:BIND74765 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74765)) (LET ((#:BIND74766 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74766)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:CONS74782 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74782) (CAR #:CONS74782) (OR1 (GUARD1 (#:IT74783 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74783 'FLOAT)) (GUARD1 (#:IT74784 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74784 'SHORT-FLOAT)) (GUARD1 (#:IT74785 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74785 'SINGLE-FLOAT)) (GUARD1 (#:IT74786 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74786 'DOUBLE-FLOAT)) (GUARD1 (#:IT74787 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74787 'LONG-FLOAT))) (CDR #:CONS74782) (GUARD1 (#:CONS74788 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74788) (CDR #:CONS74788) (GUARD1 (#:CONS74789 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74789) (CDR #:CONS74789) (GUARD1 (#:IT74790 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74790))))) (MATCH1 NIL ((GUARD1 #:IT75770 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75771 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75772 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74767 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74767)) (LET ((#:CONS74764 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:CONS74764)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74764) (LOCALLY (DECLARE (TYPE CONS #:CONS74764)) (LET ((#:IT74768 (CAR #:CONS74764))) (DECLARE (IGNORABLE #:IT74768)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74768 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74768)) (LET ((#:IT74769 (CDR #:CONS74764))) (DECLARE (IGNORABLE #:IT74769)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74769) (LOCALLY (DECLARE (TYPE NULL #:IT74769)) (LET ((#:BIND74765 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74765)) (LET ((#:BIND74766 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74766)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74793 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74793 (GUARD1 (#:CONS74791 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74791) (CAR #:CONS74791) (OR1 (GUARD1 (#:IT74794 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74794 'FLOAT)) (GUARD1 (#:IT74795 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74795 'SHORT-FLOAT)) (GUARD1 (#:IT74796 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74796 'SINGLE-FLOAT)) (GUARD1 (#:IT74797 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74797 'DOUBLE-FLOAT)) (GUARD1 (#:IT74798 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74798 'LONG-FLOAT))) (CDR #:CONS74791) (GUARD1 (#:CONS74799 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74799) (CDR #:CONS74799) (GUARD1 (#:IT74800 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74800))) #:INTERSECTION74793 (GUARD1 (#:BIND74792 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75773 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75774 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75775 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74767 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74767)) (LET ((#:CONS74764 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:CONS74764)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74764) (LOCALLY (DECLARE (TYPE CONS #:CONS74764)) (LET ((#:IT74768 (CAR #:CONS74764))) (DECLARE (IGNORABLE #:IT74768)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74768 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74768)) (LET ((#:IT74769 (CDR #:CONS74764))) (DECLARE (IGNORABLE #:IT74769)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74769) (LOCALLY (DECLARE (TYPE NULL #:IT74769)) (LET ((#:BIND74765 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74765)) (LET ((#:BIND74766 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74766)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74804 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74804 (GUARD1 (#:CONS74801 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74801) (CAR #:CONS74801) (OR1 (GUARD1 (#:IT74805 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74805 'FLOAT)) (GUARD1 (#:IT74806 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74806 'SHORT-FLOAT)) (GUARD1 (#:IT74807 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74807 'SINGLE-FLOAT)) (GUARD1 (#:IT74808 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74808 'DOUBLE-FLOAT)) (GUARD1 (#:IT74809 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74809 'LONG-FLOAT))) (CDR #:CONS74801) (GUARD1 (#:IT74810 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74810)) #:INTERSECTION74804 (GUARD1 (#:BIND74802 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74804 (GUARD1 (#:BIND74803 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75776 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75777 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75778 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT74811 #:WHAT176093)) (DECLARE (IGNORABLE #:IT74811)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74811 'RATIO) (LOCALLY (DECLARE (TYPE (EQL RATIO) #:IT74811)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:IT74815 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74815 'RATIO)) (MATCH1 NIL ((GUARD1 #:IT75779 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75780 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75781 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT74811 #:WHAT176093)) (DECLARE (IGNORABLE #:IT74811)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74811 'RATIO) (LOCALLY (DECLARE (TYPE (EQL RATIO) #:IT74811)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74816 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74816) (CAR #:CONS74816) (GUARD1 (#:IT74817 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74817 'RATIO)) (CDR #:CONS74816) (GUARD1 (#:IT74818 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74818)))) (MATCH1 NIL ((GUARD1 #:IT75782 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75783 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75784 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75217 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75217)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75217) (LOCALLY (DECLARE (TYPE CONS #:FUSION75217)) (LET ((#:CONS74812 #:FUSION75217)) (DECLARE (IGNORABLE #:CONS74812)) (LOCALLY (DECLARE (TYPE CONS #:CONS74812)) (LET ((#:GEN75218 (CAR #:FUSION75217))) (DECLARE (IGNORABLE #:GEN75218)) (LET ((#:GEN75219 (CDR #:FUSION75217))) (DECLARE (IGNORABLE #:GEN75219)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75220 T) (MATCH1 NIL ((GUARD1 #:IT75785 T) (MATCH2*+ (#:GEN75218 #:GEN75219 #:PAT75220) (T T T) (((GUARD1 (#:IT74813 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74813 'RATIO)) (GUARD1 (#:IT74814 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74814)) (GUARD1 (#:IT74815 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74815 'RATIO))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74813 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74813 'RATIO)) (GUARD1 (#:IT74814 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74814)) (GUARD1 (#:CONS74816 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74816) (CAR #:CONS74816) (GUARD1 (#:IT74817 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74817 'RATIO)) (CDR #:CONS74816) (GUARD1 (#:IT74818 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74818)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75786 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75787 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74822 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74822)) (LET ((#:IT74819 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:IT74819)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74819 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74819)) (LET ((#:BIND74820 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74820)) (LET ((#:BIND74821 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74821)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74843 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74843 (GUARD1 (#:CONS74841 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74841) (CAR #:CONS74841) (GUARD1 (#:IT74844 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74844 'MOD)) (CDR #:CONS74841) (GUARD1 (#:CONS74845 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74845) (CAR #:CONS74845) (GUARD1 (#:N74840 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74845) (GUARD1 (#:IT74846 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74846))) #:INTERSECTION74843 (GUARD1 (#:BIND74842 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75788 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75789 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75790 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74822 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74822)) (LET ((#:IT74819 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:IT74819)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74819 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74819)) (LET ((#:BIND74820 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74820)) (LET ((#:BIND74821 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74821)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74850 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74850 (GUARD1 (#:IT74847 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74847 'BIT) #:INTERSECTION74850 (GUARD1 (#:BIND74848 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74850 (GUARD1 (#:BIND74849 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75791 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75792 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75793 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74822 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74822)) (LET ((#:IT74819 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:IT74819)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74819 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74819)) (LET ((#:BIND74820 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74820)) (LET ((#:BIND74821 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74821)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74854 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74854 (GUARD1 (#:CONS74853 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74853) (CAR #:CONS74853) (GUARD1 (#:IT74855 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74855 'UNSIGNED-BYTE)) (CDR #:CONS74853) (GUARD1 (#:CONS74856 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74856) (CAR #:CONS74856) (GUARD1 (#:INTERSECTION74858 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74858 (GUARD1 (#:IT74857 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74857 'FIXNUM) #:INTERSECTION74858 (GUARD1 (#:N74851 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74856) (GUARD1 (#:IT74859 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74859))) #:INTERSECTION74854 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74861 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74861 (GUARD1 (#:CONS74860 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74860) (CAR #:CONS74860) (GUARD1 (#:IT74862 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74862 'UNSIGNED-BYTE)) (CDR #:CONS74860) (GUARD1 (#:CONS74863 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74863) (CAR #:CONS74863) (GUARD1 (#:INTERSECTION74866 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74866 (GUARD1 (#:IT74864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74864 '*) #:INTERSECTION74866 (GUARD1 (#:IT74865 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74863) (GUARD1 (#:IT74867 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74867))) #:INTERSECTION74861 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74871 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74871 (GUARD1 (#:INTERSECTION74870 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74870 (GUARD1 (#:CONS74868 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74868) (CAR #:CONS74868) (GUARD1 (#:IT74872 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74872 'UNSIGNED-BYTE)) (CDR #:CONS74868) (GUARD1 (#:IT74873 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74873)) #:INTERSECTION74870 (GUARD1 (#:BIND74869 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION74871 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75794 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75795 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75796 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74822 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74822)) (LET ((#:IT74819 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:IT74819)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74819 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74819)) (LET ((#:BIND74820 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74820)) (LET ((#:BIND74821 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74821)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74880 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74880 (GUARD1 (#:CONS74875 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74875) (CAR #:CONS74875) (GUARD1 (#:IT74876 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74876 'SIGNED-BYTE)) (CDR #:CONS74875) (GUARD1 (#:CONS74877 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74877) (CAR #:CONS74877) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N74874 'FIXNUM)) (CDR #:CONS74877) (GUARD1 (#:IT74878 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74878))) #:INTERSECTION74880 (GUARD1 (#:LIFT-DUMMY74879 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION74886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74886 (GUARD1 (#:CONS74881 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74881) (CAR #:CONS74881) (GUARD1 (#:IT74882 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74882 'SIGNED-BYTE)) (CDR #:CONS74881) (GUARD1 (#:CONS74883 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74883) (CAR #:CONS74883) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N74874)) (CDR #:CONS74883) (GUARD1 (#:IT74884 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74884))) #:INTERSECTION74886 (GUARD1 (#:LIFT-DUMMY74885 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION74890 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74890 (GUARD1 (#:CONS74887 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74887) (CAR #:CONS74887) (GUARD1 (#:IT74888 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74888 'SIGNED-BYTE)) (CDR #:CONS74887) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N74874)) #:INTERSECTION74890 (GUARD1 (#:LIFT-DUMMY74889 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION74892 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74892 (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N74874) #:INTERSECTION74892 (GUARD1 (#:LIFT-DUMMY74891 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (MATCH1 NIL ((GUARD1 #:IT75797 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75798 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75799 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74822 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74822)) (LET ((#:IT74819 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:IT74819)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74819 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74819)) (LET ((#:BIND74820 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74820)) (LET ((#:BIND74821 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74821)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74896 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74896 (GUARD1 (#:IT74893 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74893 'BIGNUM) #:INTERSECTION74896 (GUARD1 (#:BIND74894 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74896 (GUARD1 (#:BIND74895 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION74900 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74900 (GUARD1 (#:CONS74897 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74897) (CAR #:CONS74897) (GUARD1 (#:IT74901 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74901 'BIGNUM)) (CDR #:CONS74897) (GUARD1 (#:IT74902 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74902)) #:INTERSECTION74900 (GUARD1 (#:BIND74898 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74900 (GUARD1 (#:BIND74899 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT75800 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75801 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75802 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74822 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74822)) (LET ((#:IT74819 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:IT74819)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74819 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74819)) (LET ((#:BIND74820 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74820)) (LET ((#:BIND74821 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74821)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74906 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74906 (GUARD1 (#:IT74903 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74903 'FIXNUM) #:INTERSECTION74906 (GUARD1 (#:BIND74904 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74906 (GUARD1 (#:BIND74905 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION74910 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74910 (GUARD1 (#:CONS74907 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74907) (CAR #:CONS74907) (GUARD1 (#:IT74911 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74911 'FIXNUM)) (CDR #:CONS74907) (GUARD1 (#:IT74912 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74912)) #:INTERSECTION74910 (GUARD1 (#:BIND74908 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74910 (GUARD1 (#:BIND74909 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT75803 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75804 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75805 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74822 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74822)) (LET ((#:IT74819 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:IT74819)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74819 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74819)) (LET ((#:BIND74820 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74820)) (LET ((#:BIND74821 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74821)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74916 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74916 (GUARD1 (#:IT74913 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74913 'RATIO) #:INTERSECTION74916 (GUARD1 (#:BIND74914 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74916 (GUARD1 (#:BIND74915 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION74920 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74920 (GUARD1 (#:CONS74917 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74917) (CAR #:CONS74917) (GUARD1 (#:IT74921 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74921 'RATIO)) (CDR #:CONS74917) (GUARD1 (#:IT74922 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74922)) #:INTERSECTION74920 (GUARD1 (#:BIND74918 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74920 (GUARD1 (#:BIND74919 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT75806 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75807 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75808 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74822 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74822)) (LET ((#:IT74819 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:IT74819)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74819 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74819)) (LET ((#:BIND74820 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74820)) (LET ((#:BIND74821 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74821)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (OR1 (GUARD1 (#:INTERSECTION74926 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74926 (GUARD1 (#:IT74925 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74925 'INTEGER) #:INTERSECTION74926 (GUARD1 (#:BIND74923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74926 (GUARD1 (#:BIND74924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION74928 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74928 (GUARD1 (#:IT74927 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74927 'RATIONAL) #:INTERSECTION74928 (GUARD1 (#:BIND74923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74928 (GUARD1 (#:BIND74924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (OR1 (GUARD1 (#:CONS74929 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74929) (CAR #:CONS74929) (OR1 (GUARD1 (#:IT74930 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74930 'INTEGER)) (GUARD1 (#:IT74931 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74931 'RATIONAL))) (CDR #:CONS74929) (GUARD1 (#:CONS74932 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74932) (CDR #:CONS74932) (GUARD1 (#:CONS74933 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74933) (CDR #:CONS74933) (GUARD1 (#:IT74934 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74934))))) (GUARD1 (#:INTERSECTION74937 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74937 (GUARD1 (#:CONS74935 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74935) (CAR #:CONS74935) (OR1 (GUARD1 (#:IT74938 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74938 'INTEGER)) (GUARD1 (#:IT74939 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74939 'RATIONAL))) (CDR #:CONS74935) (GUARD1 (#:CONS74940 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74940) (CDR #:CONS74940) (GUARD1 (#:IT74941 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74941))) #:INTERSECTION74937 (GUARD1 (#:BIND74936 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74945 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74945 (GUARD1 (#:CONS74942 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74942) (CAR #:CONS74942) (OR1 (GUARD1 (#:IT74946 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74946 'INTEGER)) (GUARD1 (#:IT74947 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74947 'RATIONAL))) (CDR #:CONS74942) (GUARD1 (#:IT74948 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74948)) #:INTERSECTION74945 (GUARD1 (#:BIND74943 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74945 (GUARD1 (#:BIND74944 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT75809 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75810 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75811 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS74823 #:WHAT176093)) (DECLARE (IGNORABLE #:CONS74823)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74823) (LOCALLY (DECLARE (TYPE CONS #:CONS74823)) (LET ((#:IT74824 (CAR #:CONS74823))) (DECLARE (IGNORABLE #:IT74824)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74824 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74824)) (LET ((#:CONS74825 (CDR #:CONS74823))) (DECLARE (IGNORABLE #:CONS74825)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74825) (LOCALLY (DECLARE (TYPE CONS #:CONS74825)) (LET ((#:CONS74826 (CDR #:CONS74825))) (DECLARE (IGNORABLE #:CONS74826)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74826) (LOCALLY (DECLARE (TYPE CONS #:CONS74826)) (LET ((#:IT74827 (CDR #:CONS74826))) (DECLARE (IGNORABLE #:IT74827)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74827) (LOCALLY (DECLARE (TYPE NULL #:IT74827)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74843 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74843 (GUARD1 (#:CONS74841 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74841) (CAR #:CONS74841) (GUARD1 (#:IT74844 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74844 'MOD)) (CDR #:CONS74841) (GUARD1 (#:CONS74845 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74845) (CAR #:CONS74845) (GUARD1 (#:N74840 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74845) (GUARD1 (#:IT74846 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74846))) #:INTERSECTION74843 (GUARD1 (#:BIND74842 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75812 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75813 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75814 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74843 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74843 (GUARD1 (#:CONS74841 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74841) (CAR #:CONS74841) (GUARD1 (#:IT74844 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74844 'MOD)) (CDR #:CONS74841) (GUARD1 (#:CONS74845 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74845) (CAR #:CONS74845) (GUARD1 (#:N74840 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74845) (GUARD1 (#:IT74846 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74846))) #:INTERSECTION74843 (GUARD1 (#:BIND74842 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75815 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75816 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75817 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74843 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74843 (GUARD1 (#:CONS74841 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74841) (CAR #:CONS74841) (GUARD1 (#:IT74844 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74844 'MOD)) (CDR #:CONS74841) (GUARD1 (#:CONS74845 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74845) (CAR #:CONS74845) (GUARD1 (#:N74840 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74845) (GUARD1 (#:IT74846 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74846))) #:INTERSECTION74843 (GUARD1 (#:BIND74842 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75818 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75819 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75820 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS74823 #:WHAT176093)) (DECLARE (IGNORABLE #:CONS74823)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74823) (LOCALLY (DECLARE (TYPE CONS #:CONS74823)) (LET ((#:IT74824 (CAR #:CONS74823))) (DECLARE (IGNORABLE #:IT74824)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74824 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74824)) (LET ((#:CONS74825 (CDR #:CONS74823))) (DECLARE (IGNORABLE #:CONS74825)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74825) (LOCALLY (DECLARE (TYPE CONS #:CONS74825)) (LET ((#:CONS74826 (CDR #:CONS74825))) (DECLARE (IGNORABLE #:CONS74826)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74826) (LOCALLY (DECLARE (TYPE CONS #:CONS74826)) (LET ((#:IT74827 (CDR #:CONS74826))) (DECLARE (IGNORABLE #:IT74827)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74827) (LOCALLY (DECLARE (TYPE NULL #:IT74827)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74850 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74850 (GUARD1 (#:IT74847 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74847 'BIT) #:INTERSECTION74850 (GUARD1 (#:BIND74848 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74850 (GUARD1 (#:BIND74849 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75821 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75822 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75823 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74850 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74850 (GUARD1 (#:IT74847 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74847 'BIT) #:INTERSECTION74850 (GUARD1 (#:BIND74848 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74850 (GUARD1 (#:BIND74849 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75824 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75825 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75826 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74850 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74850 (GUARD1 (#:IT74847 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74847 'BIT) #:INTERSECTION74850 (GUARD1 (#:BIND74848 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74850 (GUARD1 (#:BIND74849 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75827 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75828 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75829 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75230 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75230)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75230) (LOCALLY (DECLARE (TYPE CONS #:FUSION75230)) (LET ((#:CONS74823 #:FUSION75230)) (DECLARE (IGNORABLE #:CONS74823)) (LOCALLY (DECLARE (TYPE CONS #:CONS74823)) (LET ((#:GEN75231 (CAR #:FUSION75230))) (DECLARE (IGNORABLE #:GEN75231)) (LET ((#:GEN75232 (CDR #:FUSION75230))) (DECLARE (IGNORABLE #:GEN75232)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75233 T) (MATCH1 NIL ((GUARD1 #:IT75830 T) (MATCH2*+ (#:GEN75231 #:GEN75232 #:PAT75233) (T T T) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (GUARD1 (#:INTERSECTION74854 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74854 (GUARD1 (#:CONS74853 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74853) (CAR #:CONS74853) (GUARD1 (#:IT74855 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74855 'UNSIGNED-BYTE)) (CDR #:CONS74853) (GUARD1 (#:CONS74856 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74856) (CAR #:CONS74856) (GUARD1 (#:INTERSECTION74858 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74858 (GUARD1 (#:IT74857 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74857 'FIXNUM) #:INTERSECTION74858 (GUARD1 (#:N74851 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74856) (GUARD1 (#:IT74859 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74859))) #:INTERSECTION74854 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (GUARD1 (#:INTERSECTION74861 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74861 (GUARD1 (#:CONS74860 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74860) (CAR #:CONS74860) (GUARD1 (#:IT74862 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74862 'UNSIGNED-BYTE)) (CDR #:CONS74860) (GUARD1 (#:CONS74863 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74863) (CAR #:CONS74863) (GUARD1 (#:INTERSECTION74866 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74866 (GUARD1 (#:IT74864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74864 '*) #:INTERSECTION74866 (GUARD1 (#:IT74865 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74863) (GUARD1 (#:IT74867 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74867))) #:INTERSECTION74861 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (GUARD1 (#:INTERSECTION74871 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74871 (GUARD1 (#:INTERSECTION74870 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74870 (GUARD1 (#:CONS74868 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74868) (CAR #:CONS74868) (GUARD1 (#:IT74872 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74872 'UNSIGNED-BYTE)) (CDR #:CONS74868) (GUARD1 (#:IT74873 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74873)) #:INTERSECTION74870 (GUARD1 (#:BIND74869 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION74871 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75831 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75832 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74854 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74854 (GUARD1 (#:CONS74853 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74853) (CAR #:CONS74853) (GUARD1 (#:IT74855 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74855 'UNSIGNED-BYTE)) (CDR #:CONS74853) (GUARD1 (#:CONS74856 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74856) (CAR #:CONS74856) (GUARD1 (#:INTERSECTION74858 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74858 (GUARD1 (#:IT74857 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74857 'FIXNUM) #:INTERSECTION74858 (GUARD1 (#:N74851 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74856) (GUARD1 (#:IT74859 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74859))) #:INTERSECTION74854 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75833 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75834 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75835 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74861 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74861 (GUARD1 (#:CONS74860 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74860) (CAR #:CONS74860) (GUARD1 (#:IT74862 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74862 'UNSIGNED-BYTE)) (CDR #:CONS74860) (GUARD1 (#:CONS74863 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74863) (CAR #:CONS74863) (GUARD1 (#:INTERSECTION74866 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74866 (GUARD1 (#:IT74864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74864 '*) #:INTERSECTION74866 (GUARD1 (#:IT74865 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74863) (GUARD1 (#:IT74867 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74867))) #:INTERSECTION74861 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75836 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75837 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75838 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74871 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74871 (GUARD1 (#:INTERSECTION74870 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74870 (GUARD1 (#:CONS74868 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74868) (CAR #:CONS74868) (GUARD1 (#:IT74872 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74872 'UNSIGNED-BYTE)) (CDR #:CONS74868) (GUARD1 (#:IT74873 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74873)) #:INTERSECTION74870 (GUARD1 (#:BIND74869 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION74871 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75839 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75840 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75841 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74854 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74854 (GUARD1 (#:CONS74853 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74853) (CAR #:CONS74853) (GUARD1 (#:IT74855 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74855 'UNSIGNED-BYTE)) (CDR #:CONS74853) (GUARD1 (#:CONS74856 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74856) (CAR #:CONS74856) (GUARD1 (#:INTERSECTION74858 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74858 (GUARD1 (#:IT74857 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74857 'FIXNUM) #:INTERSECTION74858 (GUARD1 (#:N74851 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74856) (GUARD1 (#:IT74859 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74859))) #:INTERSECTION74854 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75842 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75843 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75844 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74861 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74861 (GUARD1 (#:CONS74860 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74860) (CAR #:CONS74860) (GUARD1 (#:IT74862 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74862 'UNSIGNED-BYTE)) (CDR #:CONS74860) (GUARD1 (#:CONS74863 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74863) (CAR #:CONS74863) (GUARD1 (#:INTERSECTION74866 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74866 (GUARD1 (#:IT74864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74864 '*) #:INTERSECTION74866 (GUARD1 (#:IT74865 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74863) (GUARD1 (#:IT74867 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74867))) #:INTERSECTION74861 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75845 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75846 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75847 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74871 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74871 (GUARD1 (#:INTERSECTION74870 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74870 (GUARD1 (#:CONS74868 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74868) (CAR #:CONS74868) (GUARD1 (#:IT74872 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74872 'UNSIGNED-BYTE)) (CDR #:CONS74868) (GUARD1 (#:IT74873 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74873)) #:INTERSECTION74870 (GUARD1 (#:BIND74869 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION74871 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75848 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75849 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75850 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75237 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75237)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75237) (LOCALLY (DECLARE (TYPE CONS #:FUSION75237)) (LET ((#:CONS74823 #:FUSION75237)) (DECLARE (IGNORABLE #:CONS74823)) (LOCALLY (DECLARE (TYPE CONS #:CONS74823)) (LET ((#:GEN75238 (CAR #:FUSION75237))) (DECLARE (IGNORABLE #:GEN75238)) (LET ((#:GEN75239 (CDR #:FUSION75237))) (DECLARE (IGNORABLE #:GEN75239)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75240 T) (MATCH1 NIL ((GUARD1 #:IT75851 T) (MATCH2*+ (#:GEN75238 #:GEN75239 #:PAT75240) (T T T) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (GUARD1 (#:INTERSECTION74880 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74880 (GUARD1 (#:CONS74875 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74875) (CAR #:CONS74875) (GUARD1 (#:IT74876 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74876 'SIGNED-BYTE)) (CDR #:CONS74875) (GUARD1 (#:CONS74877 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74877) (CAR #:CONS74877) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N74874 'FIXNUM)) (CDR #:CONS74877) (GUARD1 (#:IT74878 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74878))) #:INTERSECTION74880 (GUARD1 (#:LIFT-DUMMY74879 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (GUARD1 (#:INTERSECTION74886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74886 (GUARD1 (#:CONS74881 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74881) (CAR #:CONS74881) (GUARD1 (#:IT74882 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74882 'SIGNED-BYTE)) (CDR #:CONS74881) (GUARD1 (#:CONS74883 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74883) (CAR #:CONS74883) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N74874)) (CDR #:CONS74883) (GUARD1 (#:IT74884 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74884))) #:INTERSECTION74886 (GUARD1 (#:LIFT-DUMMY74885 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (GUARD1 (#:INTERSECTION74890 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74890 (GUARD1 (#:CONS74887 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74887) (CAR #:CONS74887) (GUARD1 (#:IT74888 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74888 'SIGNED-BYTE)) (CDR #:CONS74887) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N74874)) #:INTERSECTION74890 (GUARD1 (#:LIFT-DUMMY74889 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (GUARD1 (#:INTERSECTION74892 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74892 (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N74874) #:INTERSECTION74892 (GUARD1 (#:LIFT-DUMMY74891 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75852 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75853 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74880 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74880 (GUARD1 (#:CONS74875 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74875) (CAR #:CONS74875) (GUARD1 (#:IT74876 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74876 'SIGNED-BYTE)) (CDR #:CONS74875) (GUARD1 (#:CONS74877 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74877) (CAR #:CONS74877) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N74874 'FIXNUM)) (CDR #:CONS74877) (GUARD1 (#:IT74878 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74878))) #:INTERSECTION74880 (GUARD1 (#:LIFT-DUMMY74879 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75854 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75855 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75856 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74886 (GUARD1 (#:CONS74881 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74881) (CAR #:CONS74881) (GUARD1 (#:IT74882 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74882 'SIGNED-BYTE)) (CDR #:CONS74881) (GUARD1 (#:CONS74883 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74883) (CAR #:CONS74883) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N74874)) (CDR #:CONS74883) (GUARD1 (#:IT74884 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74884))) #:INTERSECTION74886 (GUARD1 (#:LIFT-DUMMY74885 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75857 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75858 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75859 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74890 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74890 (GUARD1 (#:CONS74887 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74887) (CAR #:CONS74887) (GUARD1 (#:IT74888 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74888 'SIGNED-BYTE)) (CDR #:CONS74887) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N74874)) #:INTERSECTION74890 (GUARD1 (#:LIFT-DUMMY74889 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75860 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75861 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75862 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74892 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74892 (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N74874) #:INTERSECTION74892 (GUARD1 (#:LIFT-DUMMY74891 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75863 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75864 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75865 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74880 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74880 (GUARD1 (#:CONS74875 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74875) (CAR #:CONS74875) (GUARD1 (#:IT74876 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74876 'SIGNED-BYTE)) (CDR #:CONS74875) (GUARD1 (#:CONS74877 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74877) (CAR #:CONS74877) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N74874 'FIXNUM)) (CDR #:CONS74877) (GUARD1 (#:IT74878 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74878))) #:INTERSECTION74880 (GUARD1 (#:LIFT-DUMMY74879 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75866 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75867 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75868 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74886 (GUARD1 (#:CONS74881 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74881) (CAR #:CONS74881) (GUARD1 (#:IT74882 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74882 'SIGNED-BYTE)) (CDR #:CONS74881) (GUARD1 (#:CONS74883 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74883) (CAR #:CONS74883) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N74874)) (CDR #:CONS74883) (GUARD1 (#:IT74884 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74884))) #:INTERSECTION74886 (GUARD1 (#:LIFT-DUMMY74885 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75869 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75870 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75871 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74890 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74890 (GUARD1 (#:CONS74887 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74887) (CAR #:CONS74887) (GUARD1 (#:IT74888 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74888 'SIGNED-BYTE)) (CDR #:CONS74887) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N74874)) #:INTERSECTION74890 (GUARD1 (#:LIFT-DUMMY74889 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75872 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75873 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75874 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74892 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74892 (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N74874) #:INTERSECTION74892 (GUARD1 (#:LIFT-DUMMY74891 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75875 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75876 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75877 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75244 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75244)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75244) (LOCALLY (DECLARE (TYPE CONS #:FUSION75244)) (LET ((#:CONS74823 #:FUSION75244)) (DECLARE (IGNORABLE #:CONS74823)) (LOCALLY (DECLARE (TYPE CONS #:CONS74823)) (LET ((#:GEN75245 (CAR #:FUSION75244))) (DECLARE (IGNORABLE #:GEN75245)) (LET ((#:GEN75246 (CDR #:FUSION75244))) (DECLARE (IGNORABLE #:GEN75246)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75247 T) (MATCH1 NIL ((GUARD1 #:IT75878 T) (MATCH2*+ (#:GEN75245 #:GEN75246 #:PAT75247) (T T T) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (GUARD1 (#:INTERSECTION74896 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74896 (GUARD1 (#:IT74893 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74893 'BIGNUM) #:INTERSECTION74896 (GUARD1 (#:BIND74894 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74896 (GUARD1 (#:BIND74895 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (OR1 (GUARD1 (#:INTERSECTION74900 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74900 (GUARD1 (#:CONS74897 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74897) (CAR #:CONS74897) (GUARD1 (#:IT74901 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74901 'BIGNUM)) (CDR #:CONS74897) (GUARD1 (#:IT74902 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74902)) #:INTERSECTION74900 (GUARD1 (#:BIND74898 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74900 (GUARD1 (#:BIND74899 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75879 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75880 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74896 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74896 (GUARD1 (#:IT74893 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74893 'BIGNUM) #:INTERSECTION74896 (GUARD1 (#:BIND74894 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74896 (GUARD1 (#:BIND74895 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75881 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75882 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75883 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74900 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74900 (GUARD1 (#:CONS74897 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74897) (CAR #:CONS74897) (GUARD1 (#:IT74901 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74901 'BIGNUM)) (CDR #:CONS74897) (GUARD1 (#:IT74902 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74902)) #:INTERSECTION74900 (GUARD1 (#:BIND74898 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74900 (GUARD1 (#:BIND74899 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75884 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75885 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75886 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74896 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74896 (GUARD1 (#:IT74893 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74893 'BIGNUM) #:INTERSECTION74896 (GUARD1 (#:BIND74894 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74896 (GUARD1 (#:BIND74895 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75887 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75888 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75889 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74900 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74900 (GUARD1 (#:CONS74897 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74897) (CAR #:CONS74897) (GUARD1 (#:IT74901 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74901 'BIGNUM)) (CDR #:CONS74897) (GUARD1 (#:IT74902 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74902)) #:INTERSECTION74900 (GUARD1 (#:BIND74898 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74900 (GUARD1 (#:BIND74899 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75890 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75891 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75892 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75251 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75251)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75251) (LOCALLY (DECLARE (TYPE CONS #:FUSION75251)) (LET ((#:CONS74823 #:FUSION75251)) (DECLARE (IGNORABLE #:CONS74823)) (LOCALLY (DECLARE (TYPE CONS #:CONS74823)) (LET ((#:GEN75252 (CAR #:FUSION75251))) (DECLARE (IGNORABLE #:GEN75252)) (LET ((#:GEN75253 (CDR #:FUSION75251))) (DECLARE (IGNORABLE #:GEN75253)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75254 T) (MATCH1 NIL ((GUARD1 #:IT75893 T) (MATCH2*+ (#:GEN75252 #:GEN75253 #:PAT75254) (T T T) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (GUARD1 (#:INTERSECTION74906 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74906 (GUARD1 (#:IT74903 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74903 'FIXNUM) #:INTERSECTION74906 (GUARD1 (#:BIND74904 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74906 (GUARD1 (#:BIND74905 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (OR1 (GUARD1 (#:INTERSECTION74910 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74910 (GUARD1 (#:CONS74907 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74907) (CAR #:CONS74907) (GUARD1 (#:IT74911 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74911 'FIXNUM)) (CDR #:CONS74907) (GUARD1 (#:IT74912 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74912)) #:INTERSECTION74910 (GUARD1 (#:BIND74908 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74910 (GUARD1 (#:BIND74909 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75894 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75895 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74906 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74906 (GUARD1 (#:IT74903 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74903 'FIXNUM) #:INTERSECTION74906 (GUARD1 (#:BIND74904 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74906 (GUARD1 (#:BIND74905 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75896 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75897 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75898 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74910 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74910 (GUARD1 (#:CONS74907 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74907) (CAR #:CONS74907) (GUARD1 (#:IT74911 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74911 'FIXNUM)) (CDR #:CONS74907) (GUARD1 (#:IT74912 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74912)) #:INTERSECTION74910 (GUARD1 (#:BIND74908 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74910 (GUARD1 (#:BIND74909 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75899 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75900 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75901 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74906 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74906 (GUARD1 (#:IT74903 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74903 'FIXNUM) #:INTERSECTION74906 (GUARD1 (#:BIND74904 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74906 (GUARD1 (#:BIND74905 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75902 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75903 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75904 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74910 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74910 (GUARD1 (#:CONS74907 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74907) (CAR #:CONS74907) (GUARD1 (#:IT74911 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74911 'FIXNUM)) (CDR #:CONS74907) (GUARD1 (#:IT74912 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74912)) #:INTERSECTION74910 (GUARD1 (#:BIND74908 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74910 (GUARD1 (#:BIND74909 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75905 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75906 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75907 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75258 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75258)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75258) (LOCALLY (DECLARE (TYPE CONS #:FUSION75258)) (LET ((#:CONS74823 #:FUSION75258)) (DECLARE (IGNORABLE #:CONS74823)) (LOCALLY (DECLARE (TYPE CONS #:CONS74823)) (LET ((#:GEN75259 (CAR #:FUSION75258))) (DECLARE (IGNORABLE #:GEN75259)) (LET ((#:GEN75260 (CDR #:FUSION75258))) (DECLARE (IGNORABLE #:GEN75260)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75261 T) (MATCH1 NIL ((GUARD1 #:IT75908 T) (MATCH2*+ (#:GEN75259 #:GEN75260 #:PAT75261) (T T T) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (GUARD1 (#:INTERSECTION74916 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74916 (GUARD1 (#:IT74913 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74913 'RATIO) #:INTERSECTION74916 (GUARD1 (#:BIND74914 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74916 (GUARD1 (#:BIND74915 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (OR1 (GUARD1 (#:INTERSECTION74920 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74920 (GUARD1 (#:CONS74917 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74917) (CAR #:CONS74917) (GUARD1 (#:IT74921 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74921 'RATIO)) (CDR #:CONS74917) (GUARD1 (#:IT74922 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74922)) #:INTERSECTION74920 (GUARD1 (#:BIND74918 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74920 (GUARD1 (#:BIND74919 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75909 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75910 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74916 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74916 (GUARD1 (#:IT74913 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74913 'RATIO) #:INTERSECTION74916 (GUARD1 (#:BIND74914 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74916 (GUARD1 (#:BIND74915 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75911 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75912 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75913 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74920 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74920 (GUARD1 (#:CONS74917 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74917) (CAR #:CONS74917) (GUARD1 (#:IT74921 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74921 'RATIO)) (CDR #:CONS74917) (GUARD1 (#:IT74922 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74922)) #:INTERSECTION74920 (GUARD1 (#:BIND74918 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74920 (GUARD1 (#:BIND74919 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75914 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75915 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75916 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74916 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74916 (GUARD1 (#:IT74913 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74913 'RATIO) #:INTERSECTION74916 (GUARD1 (#:BIND74914 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74916 (GUARD1 (#:BIND74915 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75917 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75918 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75919 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74920 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74920 (GUARD1 (#:CONS74917 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74917) (CAR #:CONS74917) (GUARD1 (#:IT74921 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74921 'RATIO)) (CDR #:CONS74917) (GUARD1 (#:IT74922 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74922)) #:INTERSECTION74920 (GUARD1 (#:BIND74918 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74920 (GUARD1 (#:BIND74919 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75920 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75921 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75922 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75265 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75265)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75265) (LOCALLY (DECLARE (TYPE CONS #:FUSION75265)) (LET ((#:CONS74823 #:FUSION75265)) (DECLARE (IGNORABLE #:CONS74823)) (LOCALLY (DECLARE (TYPE CONS #:CONS74823)) (LET ((#:GEN75266 (CAR #:FUSION75265))) (DECLARE (IGNORABLE #:GEN75266)) (LET ((#:GEN75267 (CDR #:FUSION75265))) (DECLARE (IGNORABLE #:GEN75267)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75268 T) (MATCH1 NIL ((GUARD1 #:IT75923 T) (MATCH2*+ (#:GEN75266 #:GEN75267 #:PAT75268) (T T T) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (OR1 (GUARD1 (#:INTERSECTION74926 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74926 (GUARD1 (#:IT74925 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74925 'INTEGER) #:INTERSECTION74926 (GUARD1 (#:BIND74923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74926 (GUARD1 (#:BIND74924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION74928 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74928 (GUARD1 (#:IT74927 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74927 'RATIONAL) #:INTERSECTION74928 (GUARD1 (#:BIND74923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74928 (GUARD1 (#:BIND74924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (OR1 (GUARD1 (#:CONS74929 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74929) (CAR #:CONS74929) (OR1 (GUARD1 (#:IT74930 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74930 'INTEGER)) (GUARD1 (#:IT74931 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74931 'RATIONAL))) (CDR #:CONS74929) (GUARD1 (#:CONS74932 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74932) (CDR #:CONS74932) (GUARD1 (#:CONS74933 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74933) (CDR #:CONS74933) (GUARD1 (#:IT74934 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74934))))) (GUARD1 (#:INTERSECTION74937 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74937 (GUARD1 (#:CONS74935 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74935) (CAR #:CONS74935) (OR1 (GUARD1 (#:IT74938 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74938 'INTEGER)) (GUARD1 (#:IT74939 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74939 'RATIONAL))) (CDR #:CONS74935) (GUARD1 (#:CONS74940 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74940) (CDR #:CONS74940) (GUARD1 (#:IT74941 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74941))) #:INTERSECTION74937 (GUARD1 (#:BIND74936 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74945 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74945 (GUARD1 (#:CONS74942 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74942) (CAR #:CONS74942) (OR1 (GUARD1 (#:IT74946 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74946 'INTEGER)) (GUARD1 (#:IT74947 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74947 'RATIONAL))) (CDR #:CONS74942) (GUARD1 (#:IT74948 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74948)) #:INTERSECTION74945 (GUARD1 (#:BIND74943 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74945 (GUARD1 (#:BIND74944 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75924 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75925 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74926 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74926 (GUARD1 (#:IT74925 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74925 'INTEGER) #:INTERSECTION74926 (GUARD1 (#:BIND74923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74926 (GUARD1 (#:BIND74924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION74928 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74928 (GUARD1 (#:IT74927 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74927 'RATIONAL) #:INTERSECTION74928 (GUARD1 (#:BIND74923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74928 (GUARD1 (#:BIND74924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75926 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75927 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75928 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74929 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74929) (CAR #:CONS74929) (OR1 (GUARD1 (#:IT74930 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74930 'INTEGER)) (GUARD1 (#:IT74931 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74931 'RATIONAL))) (CDR #:CONS74929) (GUARD1 (#:CONS74932 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74932) (CDR #:CONS74932) (GUARD1 (#:CONS74933 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74933) (CDR #:CONS74933) (GUARD1 (#:IT74934 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74934))))) (GUARD1 (#:INTERSECTION74937 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74937 (GUARD1 (#:CONS74935 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74935) (CAR #:CONS74935) (OR1 (GUARD1 (#:IT74938 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74938 'INTEGER)) (GUARD1 (#:IT74939 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74939 'RATIONAL))) (CDR #:CONS74935) (GUARD1 (#:CONS74940 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74940) (CDR #:CONS74940) (GUARD1 (#:IT74941 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74941))) #:INTERSECTION74937 (GUARD1 (#:BIND74936 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74945 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74945 (GUARD1 (#:CONS74942 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74942) (CAR #:CONS74942) (OR1 (GUARD1 (#:IT74946 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74946 'INTEGER)) (GUARD1 (#:IT74947 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74947 'RATIONAL))) (CDR #:CONS74942) (GUARD1 (#:IT74948 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74948)) #:INTERSECTION74945 (GUARD1 (#:BIND74943 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74945 (GUARD1 (#:BIND74944 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75929 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75930 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75931 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74926 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74926 (GUARD1 (#:IT74925 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74925 'INTEGER) #:INTERSECTION74926 (GUARD1 (#:BIND74923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74926 (GUARD1 (#:BIND74924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION74928 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74928 (GUARD1 (#:IT74927 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74927 'RATIONAL) #:INTERSECTION74928 (GUARD1 (#:BIND74923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74928 (GUARD1 (#:BIND74924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75932 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75933 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75934 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74929 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74929) (CAR #:CONS74929) (OR1 (GUARD1 (#:IT74930 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74930 'INTEGER)) (GUARD1 (#:IT74931 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74931 'RATIONAL))) (CDR #:CONS74929) (GUARD1 (#:CONS74932 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74932) (CDR #:CONS74932) (GUARD1 (#:CONS74933 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74933) (CDR #:CONS74933) (GUARD1 (#:IT74934 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74934))))) (GUARD1 (#:INTERSECTION74937 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74937 (GUARD1 (#:CONS74935 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74935) (CAR #:CONS74935) (OR1 (GUARD1 (#:IT74938 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74938 'INTEGER)) (GUARD1 (#:IT74939 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74939 'RATIONAL))) (CDR #:CONS74935) (GUARD1 (#:CONS74940 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74940) (CDR #:CONS74940) (GUARD1 (#:IT74941 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74941))) #:INTERSECTION74937 (GUARD1 (#:BIND74936 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74945 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74945 (GUARD1 (#:CONS74942 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74942) (CAR #:CONS74942) (OR1 (GUARD1 (#:IT74946 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74946 'INTEGER)) (GUARD1 (#:IT74947 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74947 'RATIONAL))) (CDR #:CONS74942) (GUARD1 (#:IT74948 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74948)) #:INTERSECTION74945 (GUARD1 (#:BIND74943 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74945 (GUARD1 (#:BIND74944 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75935 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75936 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75937 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74952 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74952)) (LET ((#:IT74949 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:IT74949)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74949 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74949)) (LET ((#:BIND74950 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74950)) (LET ((#:BIND74951 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74951)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74973 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74973 (GUARD1 (#:CONS74971 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74971) (CAR #:CONS74971) (GUARD1 (#:IT74974 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74974 'MOD)) (CDR #:CONS74971) (GUARD1 (#:CONS74975 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74975) (CAR #:CONS74975) (GUARD1 (#:N74970 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74975) (GUARD1 (#:IT74976 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74976))) #:INTERSECTION74973 (GUARD1 (#:BIND74972 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75938 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75939 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75940 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74952 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74952)) (LET ((#:IT74949 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:IT74949)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74949 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74949)) (LET ((#:BIND74950 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74950)) (LET ((#:BIND74951 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74951)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74980 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74980 (GUARD1 (#:IT74977 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74977 'BIT) #:INTERSECTION74980 (GUARD1 (#:BIND74978 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74980 (GUARD1 (#:BIND74979 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75941 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75942 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75943 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74952 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74952)) (LET ((#:IT74949 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:IT74949)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74949 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74949)) (LET ((#:BIND74950 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74950)) (LET ((#:BIND74951 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74951)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74984 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74984 (GUARD1 (#:CONS74983 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74983) (CAR #:CONS74983) (GUARD1 (#:IT74985 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74985 'UNSIGNED-BYTE)) (CDR #:CONS74983) (GUARD1 (#:CONS74986 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74986) (CAR #:CONS74986) (GUARD1 (#:INTERSECTION74988 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74988 (GUARD1 (#:IT74987 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74987 'FIXNUM) #:INTERSECTION74988 (GUARD1 (#:N74981 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74986) (GUARD1 (#:IT74989 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74989))) #:INTERSECTION74984 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74991 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74991 (GUARD1 (#:CONS74990 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74990) (CAR #:CONS74990) (GUARD1 (#:IT74992 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74992 'UNSIGNED-BYTE)) (CDR #:CONS74990) (GUARD1 (#:CONS74993 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74993) (CAR #:CONS74993) (GUARD1 (#:INTERSECTION74996 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74996 (GUARD1 (#:IT74994 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74994 '*) #:INTERSECTION74996 (GUARD1 (#:IT74995 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74993) (GUARD1 (#:IT74997 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74997))) #:INTERSECTION74991 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION75001 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75001 (GUARD1 (#:INTERSECTION75000 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75000 (GUARD1 (#:CONS74998 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74998) (CAR #:CONS74998) (GUARD1 (#:IT75002 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT75002 'UNSIGNED-BYTE)) (CDR #:CONS74998) (GUARD1 (#:IT75003 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75003)) #:INTERSECTION75000 (GUARD1 (#:BIND74999 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION75001 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75944 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75945 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75946 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74952 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74952)) (LET ((#:IT74949 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:IT74949)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74949 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74949)) (LET ((#:BIND74950 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74950)) (LET ((#:BIND74951 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74951)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75010 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75010 (GUARD1 (#:CONS75005 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75005) (CAR #:CONS75005) (GUARD1 (#:IT75006 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75006 'SIGNED-BYTE)) (CDR #:CONS75005) (GUARD1 (#:CONS75007 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75007) (CAR #:CONS75007) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N75004 'FIXNUM)) (CDR #:CONS75007) (GUARD1 (#:IT75008 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75008))) #:INTERSECTION75010 (GUARD1 (#:LIFT-DUMMY75009 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION75016 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75016 (GUARD1 (#:CONS75011 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75011) (CAR #:CONS75011) (GUARD1 (#:IT75012 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75012 'SIGNED-BYTE)) (CDR #:CONS75011) (GUARD1 (#:CONS75013 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75013) (CAR #:CONS75013) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N75004)) (CDR #:CONS75013) (GUARD1 (#:IT75014 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75014))) #:INTERSECTION75016 (GUARD1 (#:LIFT-DUMMY75015 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION75020 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75020 (GUARD1 (#:CONS75017 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75017) (CAR #:CONS75017) (GUARD1 (#:IT75018 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75018 'SIGNED-BYTE)) (CDR #:CONS75017) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N75004)) #:INTERSECTION75020 (GUARD1 (#:LIFT-DUMMY75019 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION75022 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75022 (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N75004) #:INTERSECTION75022 (GUARD1 (#:LIFT-DUMMY75021 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (MATCH1 NIL ((GUARD1 #:IT75947 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75948 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75949 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74952 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74952)) (LET ((#:IT74949 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:IT74949)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74949 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74949)) (LET ((#:BIND74950 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74950)) (LET ((#:BIND74951 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74951)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75026 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75026 (GUARD1 (#:IT75023 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT75023 'BIGNUM) #:INTERSECTION75026 (GUARD1 (#:BIND75024 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75026 (GUARD1 (#:BIND75025 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION75030 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75030 (GUARD1 (#:CONS75027 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75027) (CAR #:CONS75027) (GUARD1 (#:IT75031 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT75031 'BIGNUM)) (CDR #:CONS75027) (GUARD1 (#:IT75032 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75032)) #:INTERSECTION75030 (GUARD1 (#:BIND75028 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75030 (GUARD1 (#:BIND75029 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT75950 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75951 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75952 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74952 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74952)) (LET ((#:IT74949 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:IT74949)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74949 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74949)) (LET ((#:BIND74950 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74950)) (LET ((#:BIND74951 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74951)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75036 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75036 (GUARD1 (#:IT75033 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT75033 'FIXNUM) #:INTERSECTION75036 (GUARD1 (#:BIND75034 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75036 (GUARD1 (#:BIND75035 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION75040 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75040 (GUARD1 (#:CONS75037 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75037) (CAR #:CONS75037) (GUARD1 (#:IT75041 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT75041 'FIXNUM)) (CDR #:CONS75037) (GUARD1 (#:IT75042 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75042)) #:INTERSECTION75040 (GUARD1 (#:BIND75038 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75040 (GUARD1 (#:BIND75039 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT75953 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75954 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75955 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74952 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74952)) (LET ((#:IT74949 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:IT74949)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74949 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74949)) (LET ((#:BIND74950 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74950)) (LET ((#:BIND74951 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74951)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75046 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75046 (GUARD1 (#:IT75043 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT75043 'RATIO) #:INTERSECTION75046 (GUARD1 (#:BIND75044 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75046 (GUARD1 (#:BIND75045 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION75050 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75050 (GUARD1 (#:CONS75047 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75047) (CAR #:CONS75047) (GUARD1 (#:IT75051 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT75051 'RATIO)) (CDR #:CONS75047) (GUARD1 (#:IT75052 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75052)) #:INTERSECTION75050 (GUARD1 (#:BIND75048 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75050 (GUARD1 (#:BIND75049 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT75956 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75957 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75958 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74952 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74952)) (LET ((#:IT74949 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:IT74949)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74949 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74949)) (LET ((#:BIND74950 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74950)) (LET ((#:BIND74951 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74951)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (OR1 (GUARD1 (#:INTERSECTION75056 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75056 (GUARD1 (#:IT75055 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75055 'FLOAT) #:INTERSECTION75056 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75056 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75058 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75058 (GUARD1 (#:IT75057 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75057 'SHORT-FLOAT) #:INTERSECTION75058 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75058 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75060 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75060 (GUARD1 (#:IT75059 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75059 'SINGLE-FLOAT) #:INTERSECTION75060 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75060 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75062 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75062 (GUARD1 (#:IT75061 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75061 'DOUBLE-FLOAT) #:INTERSECTION75062 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75062 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75064 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75064 (GUARD1 (#:IT75063 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75063 'LONG-FLOAT) #:INTERSECTION75064 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75064 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75066 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75066 (GUARD1 (#:IT75065 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75065 'INTEGER) #:INTERSECTION75066 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75066 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75068 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75068 (GUARD1 (#:IT75067 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75067 'RATIONAL) #:INTERSECTION75068 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75068 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75070 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75070 (GUARD1 (#:IT75069 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75069 'REAL) #:INTERSECTION75070 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75070 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (OR1 (GUARD1 (#:CONS75071 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75071) (CAR #:CONS75071) (OR1 (GUARD1 (#:IT75072 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75072 'FLOAT)) (GUARD1 (#:IT75073 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75073 'SHORT-FLOAT)) (GUARD1 (#:IT75074 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75074 'SINGLE-FLOAT)) (GUARD1 (#:IT75075 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75075 'DOUBLE-FLOAT)) (GUARD1 (#:IT75076 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75076 'LONG-FLOAT)) (GUARD1 (#:IT75077 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75077 'INTEGER)) (GUARD1 (#:IT75078 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75078 'RATIONAL)) (GUARD1 (#:IT75079 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75079 'REAL))) (CDR #:CONS75071) (GUARD1 (#:CONS75080 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75080) (CDR #:CONS75080) (GUARD1 (#:CONS75081 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75081) (CDR #:CONS75081) (GUARD1 (#:IT75082 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75082))))) (GUARD1 (#:INTERSECTION75085 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75085 (GUARD1 (#:CONS75083 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75083) (CAR #:CONS75083) (OR1 (GUARD1 (#:IT75086 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75086 'FLOAT)) (GUARD1 (#:IT75087 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75087 'SHORT-FLOAT)) (GUARD1 (#:IT75088 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75088 'SINGLE-FLOAT)) (GUARD1 (#:IT75089 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75089 'DOUBLE-FLOAT)) (GUARD1 (#:IT75090 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75090 'LONG-FLOAT)) (GUARD1 (#:IT75091 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75091 'INTEGER)) (GUARD1 (#:IT75092 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75092 'RATIONAL)) (GUARD1 (#:IT75093 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75093 'REAL))) (CDR #:CONS75083) (GUARD1 (#:CONS75094 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75094) (CDR #:CONS75094) (GUARD1 (#:IT75095 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75095))) #:INTERSECTION75085 (GUARD1 (#:BIND75084 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION75099 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75099 (GUARD1 (#:CONS75096 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75096) (CAR #:CONS75096) (OR1 (GUARD1 (#:IT75100 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75100 'FLOAT)) (GUARD1 (#:IT75101 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75101 'SHORT-FLOAT)) (GUARD1 (#:IT75102 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75102 'SINGLE-FLOAT)) (GUARD1 (#:IT75103 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75103 'DOUBLE-FLOAT)) (GUARD1 (#:IT75104 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75104 'LONG-FLOAT)) (GUARD1 (#:IT75105 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75105 'INTEGER)) (GUARD1 (#:IT75106 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75106 'RATIONAL)) (GUARD1 (#:IT75107 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75107 'REAL))) (CDR #:CONS75096) (GUARD1 (#:IT75108 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75108)) #:INTERSECTION75099 (GUARD1 (#:BIND75097 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75099 (GUARD1 (#:BIND75098 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT75959 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75960 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75961 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS74953 #:WHAT176093)) (DECLARE (IGNORABLE #:CONS74953)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74953) (LOCALLY (DECLARE (TYPE CONS #:CONS74953)) (LET ((#:IT74954 (CAR #:CONS74953))) (DECLARE (IGNORABLE #:IT74954)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74954 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74954)) (LET ((#:CONS74955 (CDR #:CONS74953))) (DECLARE (IGNORABLE #:CONS74955)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74955) (LOCALLY (DECLARE (TYPE CONS #:CONS74955)) (LET ((#:CONS74956 (CDR #:CONS74955))) (DECLARE (IGNORABLE #:CONS74956)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74956) (LOCALLY (DECLARE (TYPE CONS #:CONS74956)) (LET ((#:IT74957 (CDR #:CONS74956))) (DECLARE (IGNORABLE #:IT74957)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74957) (LOCALLY (DECLARE (TYPE NULL #:IT74957)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74973 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74973 (GUARD1 (#:CONS74971 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74971) (CAR #:CONS74971) (GUARD1 (#:IT74974 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74974 'MOD)) (CDR #:CONS74971) (GUARD1 (#:CONS74975 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74975) (CAR #:CONS74975) (GUARD1 (#:N74970 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74975) (GUARD1 (#:IT74976 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74976))) #:INTERSECTION74973 (GUARD1 (#:BIND74972 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75962 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75963 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75964 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74973 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74973 (GUARD1 (#:CONS74971 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74971) (CAR #:CONS74971) (GUARD1 (#:IT74974 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74974 'MOD)) (CDR #:CONS74971) (GUARD1 (#:CONS74975 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74975) (CAR #:CONS74975) (GUARD1 (#:N74970 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74975) (GUARD1 (#:IT74976 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74976))) #:INTERSECTION74973 (GUARD1 (#:BIND74972 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75965 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75966 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75967 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74973 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74973 (GUARD1 (#:CONS74971 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74971) (CAR #:CONS74971) (GUARD1 (#:IT74974 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74974 'MOD)) (CDR #:CONS74971) (GUARD1 (#:CONS74975 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74975) (CAR #:CONS74975) (GUARD1 (#:N74970 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74975) (GUARD1 (#:IT74976 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74976))) #:INTERSECTION74973 (GUARD1 (#:BIND74972 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75968 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75969 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75970 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS74953 #:WHAT176093)) (DECLARE (IGNORABLE #:CONS74953)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74953) (LOCALLY (DECLARE (TYPE CONS #:CONS74953)) (LET ((#:IT74954 (CAR #:CONS74953))) (DECLARE (IGNORABLE #:IT74954)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74954 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74954)) (LET ((#:CONS74955 (CDR #:CONS74953))) (DECLARE (IGNORABLE #:CONS74955)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74955) (LOCALLY (DECLARE (TYPE CONS #:CONS74955)) (LET ((#:CONS74956 (CDR #:CONS74955))) (DECLARE (IGNORABLE #:CONS74956)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74956) (LOCALLY (DECLARE (TYPE CONS #:CONS74956)) (LET ((#:IT74957 (CDR #:CONS74956))) (DECLARE (IGNORABLE #:IT74957)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74957) (LOCALLY (DECLARE (TYPE NULL #:IT74957)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74980 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74980 (GUARD1 (#:IT74977 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74977 'BIT) #:INTERSECTION74980 (GUARD1 (#:BIND74978 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74980 (GUARD1 (#:BIND74979 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75971 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75972 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75973 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74980 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74980 (GUARD1 (#:IT74977 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74977 'BIT) #:INTERSECTION74980 (GUARD1 (#:BIND74978 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74980 (GUARD1 (#:BIND74979 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75974 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75975 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75976 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74980 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74980 (GUARD1 (#:IT74977 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74977 'BIT) #:INTERSECTION74980 (GUARD1 (#:BIND74978 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74980 (GUARD1 (#:BIND74979 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75977 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75978 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75979 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75278 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75278)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75278) (LOCALLY (DECLARE (TYPE CONS #:FUSION75278)) (LET ((#:CONS74953 #:FUSION75278)) (DECLARE (IGNORABLE #:CONS74953)) (LOCALLY (DECLARE (TYPE CONS #:CONS74953)) (LET ((#:GEN75279 (CAR #:FUSION75278))) (DECLARE (IGNORABLE #:GEN75279)) (LET ((#:GEN75280 (CDR #:FUSION75278))) (DECLARE (IGNORABLE #:GEN75280)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75281 T) (MATCH1 NIL ((GUARD1 #:IT75980 T) (MATCH2*+ (#:GEN75279 #:GEN75280 #:PAT75281) (T T T) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (GUARD1 (#:INTERSECTION74984 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74984 (GUARD1 (#:CONS74983 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74983) (CAR #:CONS74983) (GUARD1 (#:IT74985 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74985 'UNSIGNED-BYTE)) (CDR #:CONS74983) (GUARD1 (#:CONS74986 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74986) (CAR #:CONS74986) (GUARD1 (#:INTERSECTION74988 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74988 (GUARD1 (#:IT74987 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74987 'FIXNUM) #:INTERSECTION74988 (GUARD1 (#:N74981 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74986) (GUARD1 (#:IT74989 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74989))) #:INTERSECTION74984 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (GUARD1 (#:INTERSECTION74991 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74991 (GUARD1 (#:CONS74990 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74990) (CAR #:CONS74990) (GUARD1 (#:IT74992 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74992 'UNSIGNED-BYTE)) (CDR #:CONS74990) (GUARD1 (#:CONS74993 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74993) (CAR #:CONS74993) (GUARD1 (#:INTERSECTION74996 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74996 (GUARD1 (#:IT74994 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74994 '*) #:INTERSECTION74996 (GUARD1 (#:IT74995 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74993) (GUARD1 (#:IT74997 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74997))) #:INTERSECTION74991 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (GUARD1 (#:INTERSECTION75001 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75001 (GUARD1 (#:INTERSECTION75000 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75000 (GUARD1 (#:CONS74998 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74998) (CAR #:CONS74998) (GUARD1 (#:IT75002 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT75002 'UNSIGNED-BYTE)) (CDR #:CONS74998) (GUARD1 (#:IT75003 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75003)) #:INTERSECTION75000 (GUARD1 (#:BIND74999 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION75001 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75981 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75982 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74984 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74984 (GUARD1 (#:CONS74983 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74983) (CAR #:CONS74983) (GUARD1 (#:IT74985 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74985 'UNSIGNED-BYTE)) (CDR #:CONS74983) (GUARD1 (#:CONS74986 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74986) (CAR #:CONS74986) (GUARD1 (#:INTERSECTION74988 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74988 (GUARD1 (#:IT74987 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74987 'FIXNUM) #:INTERSECTION74988 (GUARD1 (#:N74981 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74986) (GUARD1 (#:IT74989 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74989))) #:INTERSECTION74984 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75983 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75984 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75985 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74991 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74991 (GUARD1 (#:CONS74990 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74990) (CAR #:CONS74990) (GUARD1 (#:IT74992 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74992 'UNSIGNED-BYTE)) (CDR #:CONS74990) (GUARD1 (#:CONS74993 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74993) (CAR #:CONS74993) (GUARD1 (#:INTERSECTION74996 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74996 (GUARD1 (#:IT74994 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74994 '*) #:INTERSECTION74996 (GUARD1 (#:IT74995 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74993) (GUARD1 (#:IT74997 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74997))) #:INTERSECTION74991 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75986 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75987 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75988 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75001 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75001 (GUARD1 (#:INTERSECTION75000 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75000 (GUARD1 (#:CONS74998 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74998) (CAR #:CONS74998) (GUARD1 (#:IT75002 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT75002 'UNSIGNED-BYTE)) (CDR #:CONS74998) (GUARD1 (#:IT75003 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75003)) #:INTERSECTION75000 (GUARD1 (#:BIND74999 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION75001 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75989 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75990 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75991 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74984 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74984 (GUARD1 (#:CONS74983 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74983) (CAR #:CONS74983) (GUARD1 (#:IT74985 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74985 'UNSIGNED-BYTE)) (CDR #:CONS74983) (GUARD1 (#:CONS74986 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74986) (CAR #:CONS74986) (GUARD1 (#:INTERSECTION74988 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74988 (GUARD1 (#:IT74987 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74987 'FIXNUM) #:INTERSECTION74988 (GUARD1 (#:N74981 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74986) (GUARD1 (#:IT74989 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74989))) #:INTERSECTION74984 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75992 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75993 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75994 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74991 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74991 (GUARD1 (#:CONS74990 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74990) (CAR #:CONS74990) (GUARD1 (#:IT74992 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74992 'UNSIGNED-BYTE)) (CDR #:CONS74990) (GUARD1 (#:CONS74993 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74993) (CAR #:CONS74993) (GUARD1 (#:INTERSECTION74996 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74996 (GUARD1 (#:IT74994 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74994 '*) #:INTERSECTION74996 (GUARD1 (#:IT74995 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74993) (GUARD1 (#:IT74997 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74997))) #:INTERSECTION74991 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75995 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75996 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75997 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75001 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75001 (GUARD1 (#:INTERSECTION75000 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75000 (GUARD1 (#:CONS74998 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74998) (CAR #:CONS74998) (GUARD1 (#:IT75002 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT75002 'UNSIGNED-BYTE)) (CDR #:CONS74998) (GUARD1 (#:IT75003 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75003)) #:INTERSECTION75000 (GUARD1 (#:BIND74999 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION75001 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75998 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75999 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76000 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75285 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75285)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75285) (LOCALLY (DECLARE (TYPE CONS #:FUSION75285)) (LET ((#:CONS74953 #:FUSION75285)) (DECLARE (IGNORABLE #:CONS74953)) (LOCALLY (DECLARE (TYPE CONS #:CONS74953)) (LET ((#:GEN75286 (CAR #:FUSION75285))) (DECLARE (IGNORABLE #:GEN75286)) (LET ((#:GEN75287 (CDR #:FUSION75285))) (DECLARE (IGNORABLE #:GEN75287)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75288 T) (MATCH1 NIL ((GUARD1 #:IT76001 T) (MATCH2*+ (#:GEN75286 #:GEN75287 #:PAT75288) (T T T) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (GUARD1 (#:INTERSECTION75010 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75010 (GUARD1 (#:CONS75005 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75005) (CAR #:CONS75005) (GUARD1 (#:IT75006 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75006 'SIGNED-BYTE)) (CDR #:CONS75005) (GUARD1 (#:CONS75007 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75007) (CAR #:CONS75007) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N75004 'FIXNUM)) (CDR #:CONS75007) (GUARD1 (#:IT75008 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75008))) #:INTERSECTION75010 (GUARD1 (#:LIFT-DUMMY75009 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (GUARD1 (#:INTERSECTION75016 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75016 (GUARD1 (#:CONS75011 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75011) (CAR #:CONS75011) (GUARD1 (#:IT75012 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75012 'SIGNED-BYTE)) (CDR #:CONS75011) (GUARD1 (#:CONS75013 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75013) (CAR #:CONS75013) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N75004)) (CDR #:CONS75013) (GUARD1 (#:IT75014 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75014))) #:INTERSECTION75016 (GUARD1 (#:LIFT-DUMMY75015 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (GUARD1 (#:INTERSECTION75020 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75020 (GUARD1 (#:CONS75017 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75017) (CAR #:CONS75017) (GUARD1 (#:IT75018 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75018 'SIGNED-BYTE)) (CDR #:CONS75017) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N75004)) #:INTERSECTION75020 (GUARD1 (#:LIFT-DUMMY75019 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (GUARD1 (#:INTERSECTION75022 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75022 (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N75004) #:INTERSECTION75022 (GUARD1 (#:LIFT-DUMMY75021 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT76002 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76003 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75010 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75010 (GUARD1 (#:CONS75005 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75005) (CAR #:CONS75005) (GUARD1 (#:IT75006 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75006 'SIGNED-BYTE)) (CDR #:CONS75005) (GUARD1 (#:CONS75007 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75007) (CAR #:CONS75007) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N75004 'FIXNUM)) (CDR #:CONS75007) (GUARD1 (#:IT75008 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75008))) #:INTERSECTION75010 (GUARD1 (#:LIFT-DUMMY75009 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT76004 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76005 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76006 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75016 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75016 (GUARD1 (#:CONS75011 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75011) (CAR #:CONS75011) (GUARD1 (#:IT75012 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75012 'SIGNED-BYTE)) (CDR #:CONS75011) (GUARD1 (#:CONS75013 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75013) (CAR #:CONS75013) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N75004)) (CDR #:CONS75013) (GUARD1 (#:IT75014 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75014))) #:INTERSECTION75016 (GUARD1 (#:LIFT-DUMMY75015 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT76007 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76008 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76009 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75020 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75020 (GUARD1 (#:CONS75017 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75017) (CAR #:CONS75017) (GUARD1 (#:IT75018 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75018 'SIGNED-BYTE)) (CDR #:CONS75017) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N75004)) #:INTERSECTION75020 (GUARD1 (#:LIFT-DUMMY75019 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT76010 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76011 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76012 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75022 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75022 (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N75004) #:INTERSECTION75022 (GUARD1 (#:LIFT-DUMMY75021 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT76013 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76014 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76015 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75010 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75010 (GUARD1 (#:CONS75005 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75005) (CAR #:CONS75005) (GUARD1 (#:IT75006 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75006 'SIGNED-BYTE)) (CDR #:CONS75005) (GUARD1 (#:CONS75007 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75007) (CAR #:CONS75007) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N75004 'FIXNUM)) (CDR #:CONS75007) (GUARD1 (#:IT75008 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75008))) #:INTERSECTION75010 (GUARD1 (#:LIFT-DUMMY75009 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT76016 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76017 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76018 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75016 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75016 (GUARD1 (#:CONS75011 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75011) (CAR #:CONS75011) (GUARD1 (#:IT75012 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75012 'SIGNED-BYTE)) (CDR #:CONS75011) (GUARD1 (#:CONS75013 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75013) (CAR #:CONS75013) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N75004)) (CDR #:CONS75013) (GUARD1 (#:IT75014 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75014))) #:INTERSECTION75016 (GUARD1 (#:LIFT-DUMMY75015 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT76019 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76020 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76021 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75020 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75020 (GUARD1 (#:CONS75017 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75017) (CAR #:CONS75017) (GUARD1 (#:IT75018 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75018 'SIGNED-BYTE)) (CDR #:CONS75017) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N75004)) #:INTERSECTION75020 (GUARD1 (#:LIFT-DUMMY75019 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT76022 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76023 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76024 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75022 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75022 (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N75004) #:INTERSECTION75022 (GUARD1 (#:LIFT-DUMMY75021 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT76025 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76026 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76027 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75292 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75292)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75292) (LOCALLY (DECLARE (TYPE CONS #:FUSION75292)) (LET ((#:CONS74953 #:FUSION75292)) (DECLARE (IGNORABLE #:CONS74953)) (LOCALLY (DECLARE (TYPE CONS #:CONS74953)) (LET ((#:GEN75293 (CAR #:FUSION75292))) (DECLARE (IGNORABLE #:GEN75293)) (LET ((#:GEN75294 (CDR #:FUSION75292))) (DECLARE (IGNORABLE #:GEN75294)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75295 T) (MATCH1 NIL ((GUARD1 #:IT76028 T) (MATCH2*+ (#:GEN75293 #:GEN75294 #:PAT75295) (T T T) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (GUARD1 (#:INTERSECTION75026 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75026 (GUARD1 (#:IT75023 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT75023 'BIGNUM) #:INTERSECTION75026 (GUARD1 (#:BIND75024 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75026 (GUARD1 (#:BIND75025 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (OR1 (GUARD1 (#:INTERSECTION75030 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75030 (GUARD1 (#:CONS75027 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75027) (CAR #:CONS75027) (GUARD1 (#:IT75031 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT75031 'BIGNUM)) (CDR #:CONS75027) (GUARD1 (#:IT75032 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75032)) #:INTERSECTION75030 (GUARD1 (#:BIND75028 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75030 (GUARD1 (#:BIND75029 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT76029 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76030 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75026 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75026 (GUARD1 (#:IT75023 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT75023 'BIGNUM) #:INTERSECTION75026 (GUARD1 (#:BIND75024 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75026 (GUARD1 (#:BIND75025 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT76031 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76032 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76033 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75030 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75030 (GUARD1 (#:CONS75027 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75027) (CAR #:CONS75027) (GUARD1 (#:IT75031 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT75031 'BIGNUM)) (CDR #:CONS75027) (GUARD1 (#:IT75032 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75032)) #:INTERSECTION75030 (GUARD1 (#:BIND75028 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75030 (GUARD1 (#:BIND75029 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT76034 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76035 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76036 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75026 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75026 (GUARD1 (#:IT75023 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT75023 'BIGNUM) #:INTERSECTION75026 (GUARD1 (#:BIND75024 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75026 (GUARD1 (#:BIND75025 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT76037 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76038 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76039 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75030 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75030 (GUARD1 (#:CONS75027 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75027) (CAR #:CONS75027) (GUARD1 (#:IT75031 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT75031 'BIGNUM)) (CDR #:CONS75027) (GUARD1 (#:IT75032 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75032)) #:INTERSECTION75030 (GUARD1 (#:BIND75028 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75030 (GUARD1 (#:BIND75029 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT76040 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76041 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76042 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75299 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75299)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75299) (LOCALLY (DECLARE (TYPE CONS #:FUSION75299)) (LET ((#:CONS74953 #:FUSION75299)) (DECLARE (IGNORABLE #:CONS74953)) (LOCALLY (DECLARE (TYPE CONS #:CONS74953)) (LET ((#:GEN75300 (CAR #:FUSION75299))) (DECLARE (IGNORABLE #:GEN75300)) (LET ((#:GEN75301 (CDR #:FUSION75299))) (DECLARE (IGNORABLE #:GEN75301)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75302 T) (MATCH1 NIL ((GUARD1 #:IT76043 T) (MATCH2*+ (#:GEN75300 #:GEN75301 #:PAT75302) (T T T) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (GUARD1 (#:INTERSECTION75036 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75036 (GUARD1 (#:IT75033 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT75033 'FIXNUM) #:INTERSECTION75036 (GUARD1 (#:BIND75034 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75036 (GUARD1 (#:BIND75035 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (OR1 (GUARD1 (#:INTERSECTION75040 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75040 (GUARD1 (#:CONS75037 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75037) (CAR #:CONS75037) (GUARD1 (#:IT75041 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT75041 'FIXNUM)) (CDR #:CONS75037) (GUARD1 (#:IT75042 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75042)) #:INTERSECTION75040 (GUARD1 (#:BIND75038 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75040 (GUARD1 (#:BIND75039 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT76044 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76045 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75036 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75036 (GUARD1 (#:IT75033 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT75033 'FIXNUM) #:INTERSECTION75036 (GUARD1 (#:BIND75034 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75036 (GUARD1 (#:BIND75035 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT76046 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76047 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76048 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75040 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75040 (GUARD1 (#:CONS75037 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75037) (CAR #:CONS75037) (GUARD1 (#:IT75041 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT75041 'FIXNUM)) (CDR #:CONS75037) (GUARD1 (#:IT75042 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75042)) #:INTERSECTION75040 (GUARD1 (#:BIND75038 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75040 (GUARD1 (#:BIND75039 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT76049 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76050 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76051 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75036 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75036 (GUARD1 (#:IT75033 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT75033 'FIXNUM) #:INTERSECTION75036 (GUARD1 (#:BIND75034 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75036 (GUARD1 (#:BIND75035 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT76052 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76053 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76054 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75040 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75040 (GUARD1 (#:CONS75037 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75037) (CAR #:CONS75037) (GUARD1 (#:IT75041 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT75041 'FIXNUM)) (CDR #:CONS75037) (GUARD1 (#:IT75042 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75042)) #:INTERSECTION75040 (GUARD1 (#:BIND75038 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75040 (GUARD1 (#:BIND75039 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT76055 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76056 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76057 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75306 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75306)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75306) (LOCALLY (DECLARE (TYPE CONS #:FUSION75306)) (LET ((#:CONS74953 #:FUSION75306)) (DECLARE (IGNORABLE #:CONS74953)) (LOCALLY (DECLARE (TYPE CONS #:CONS74953)) (LET ((#:GEN75307 (CAR #:FUSION75306))) (DECLARE (IGNORABLE #:GEN75307)) (LET ((#:GEN75308 (CDR #:FUSION75306))) (DECLARE (IGNORABLE #:GEN75308)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75309 T) (MATCH1 NIL ((GUARD1 #:IT76058 T) (MATCH2*+ (#:GEN75307 #:GEN75308 #:PAT75309) (T T T) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (GUARD1 (#:INTERSECTION75046 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75046 (GUARD1 (#:IT75043 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT75043 'RATIO) #:INTERSECTION75046 (GUARD1 (#:BIND75044 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75046 (GUARD1 (#:BIND75045 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (OR1 (GUARD1 (#:INTERSECTION75050 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75050 (GUARD1 (#:CONS75047 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75047) (CAR #:CONS75047) (GUARD1 (#:IT75051 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT75051 'RATIO)) (CDR #:CONS75047) (GUARD1 (#:IT75052 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75052)) #:INTERSECTION75050 (GUARD1 (#:BIND75048 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75050 (GUARD1 (#:BIND75049 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT76059 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76060 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75046 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75046 (GUARD1 (#:IT75043 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT75043 'RATIO) #:INTERSECTION75046 (GUARD1 (#:BIND75044 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75046 (GUARD1 (#:BIND75045 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT76061 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76062 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76063 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75050 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75050 (GUARD1 (#:CONS75047 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75047) (CAR #:CONS75047) (GUARD1 (#:IT75051 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT75051 'RATIO)) (CDR #:CONS75047) (GUARD1 (#:IT75052 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75052)) #:INTERSECTION75050 (GUARD1 (#:BIND75048 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75050 (GUARD1 (#:BIND75049 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT76064 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76065 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76066 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75046 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75046 (GUARD1 (#:IT75043 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT75043 'RATIO) #:INTERSECTION75046 (GUARD1 (#:BIND75044 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75046 (GUARD1 (#:BIND75045 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT76067 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76068 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76069 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75050 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75050 (GUARD1 (#:CONS75047 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75047) (CAR #:CONS75047) (GUARD1 (#:IT75051 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT75051 'RATIO)) (CDR #:CONS75047) (GUARD1 (#:IT75052 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75052)) #:INTERSECTION75050 (GUARD1 (#:BIND75048 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75050 (GUARD1 (#:BIND75049 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT76070 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76071 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76072 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75313 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75313)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75313) (LOCALLY (DECLARE (TYPE CONS #:FUSION75313)) (LET ((#:CONS74953 #:FUSION75313)) (DECLARE (IGNORABLE #:CONS74953)) (LOCALLY (DECLARE (TYPE CONS #:CONS74953)) (LET ((#:GEN75314 (CAR #:FUSION75313))) (DECLARE (IGNORABLE #:GEN75314)) (LET ((#:GEN75315 (CDR #:FUSION75313))) (DECLARE (IGNORABLE #:GEN75315)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75316 T) (MATCH1 NIL ((GUARD1 #:IT76073 T) (MATCH2*+ (#:GEN75314 #:GEN75315 #:PAT75316) (T T T) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (OR1 (GUARD1 (#:INTERSECTION75056 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75056 (GUARD1 (#:IT75055 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75055 'FLOAT) #:INTERSECTION75056 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75056 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75058 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75058 (GUARD1 (#:IT75057 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75057 'SHORT-FLOAT) #:INTERSECTION75058 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75058 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75060 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75060 (GUARD1 (#:IT75059 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75059 'SINGLE-FLOAT) #:INTERSECTION75060 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75060 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75062 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75062 (GUARD1 (#:IT75061 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75061 'DOUBLE-FLOAT) #:INTERSECTION75062 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75062 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75064 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75064 (GUARD1 (#:IT75063 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75063 'LONG-FLOAT) #:INTERSECTION75064 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75064 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75066 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75066 (GUARD1 (#:IT75065 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75065 'INTEGER) #:INTERSECTION75066 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75066 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75068 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75068 (GUARD1 (#:IT75067 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75067 'RATIONAL) #:INTERSECTION75068 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75068 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75070 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75070 (GUARD1 (#:IT75069 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75069 'REAL) #:INTERSECTION75070 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75070 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (OR1 (GUARD1 (#:CONS75071 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75071) (CAR #:CONS75071) (OR1 (GUARD1 (#:IT75072 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75072 'FLOAT)) (GUARD1 (#:IT75073 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75073 'SHORT-FLOAT)) (GUARD1 (#:IT75074 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75074 'SINGLE-FLOAT)) (GUARD1 (#:IT75075 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75075 'DOUBLE-FLOAT)) (GUARD1 (#:IT75076 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75076 'LONG-FLOAT)) (GUARD1 (#:IT75077 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75077 'INTEGER)) (GUARD1 (#:IT75078 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75078 'RATIONAL)) (GUARD1 (#:IT75079 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75079 'REAL))) (CDR #:CONS75071) (GUARD1 (#:CONS75080 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75080) (CDR #:CONS75080) (GUARD1 (#:CONS75081 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75081) (CDR #:CONS75081) (GUARD1 (#:IT75082 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75082))))) (GUARD1 (#:INTERSECTION75085 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75085 (GUARD1 (#:CONS75083 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75083) (CAR #:CONS75083) (OR1 (GUARD1 (#:IT75086 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75086 'FLOAT)) (GUARD1 (#:IT75087 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75087 'SHORT-FLOAT)) (GUARD1 (#:IT75088 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75088 'SINGLE-FLOAT)) (GUARD1 (#:IT75089 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75089 'DOUBLE-FLOAT)) (GUARD1 (#:IT75090 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75090 'LONG-FLOAT)) (GUARD1 (#:IT75091 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75091 'INTEGER)) (GUARD1 (#:IT75092 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75092 'RATIONAL)) (GUARD1 (#:IT75093 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75093 'REAL))) (CDR #:CONS75083) (GUARD1 (#:CONS75094 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75094) (CDR #:CONS75094) (GUARD1 (#:IT75095 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75095))) #:INTERSECTION75085 (GUARD1 (#:BIND75084 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION75099 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75099 (GUARD1 (#:CONS75096 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75096) (CAR #:CONS75096) (OR1 (GUARD1 (#:IT75100 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75100 'FLOAT)) (GUARD1 (#:IT75101 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75101 'SHORT-FLOAT)) (GUARD1 (#:IT75102 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75102 'SINGLE-FLOAT)) (GUARD1 (#:IT75103 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75103 'DOUBLE-FLOAT)) (GUARD1 (#:IT75104 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75104 'LONG-FLOAT)) (GUARD1 (#:IT75105 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75105 'INTEGER)) (GUARD1 (#:IT75106 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75106 'RATIONAL)) (GUARD1 (#:IT75107 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75107 'REAL))) (CDR #:CONS75096) (GUARD1 (#:IT75108 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75108)) #:INTERSECTION75099 (GUARD1 (#:BIND75097 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75099 (GUARD1 (#:BIND75098 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT76074 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76075 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75056 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75056 (GUARD1 (#:IT75055 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75055 'FLOAT) #:INTERSECTION75056 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75056 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75058 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75058 (GUARD1 (#:IT75057 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75057 'SHORT-FLOAT) #:INTERSECTION75058 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75058 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75060 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75060 (GUARD1 (#:IT75059 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75059 'SINGLE-FLOAT) #:INTERSECTION75060 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75060 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75062 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75062 (GUARD1 (#:IT75061 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75061 'DOUBLE-FLOAT) #:INTERSECTION75062 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75062 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75064 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75064 (GUARD1 (#:IT75063 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75063 'LONG-FLOAT) #:INTERSECTION75064 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75064 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75066 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75066 (GUARD1 (#:IT75065 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75065 'INTEGER) #:INTERSECTION75066 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75066 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75068 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75068 (GUARD1 (#:IT75067 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75067 'RATIONAL) #:INTERSECTION75068 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75068 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75070 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75070 (GUARD1 (#:IT75069 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75069 'REAL) #:INTERSECTION75070 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75070 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT76076 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76077 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76078 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS75071 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75071) (CAR #:CONS75071) (OR1 (GUARD1 (#:IT75072 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75072 'FLOAT)) (GUARD1 (#:IT75073 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75073 'SHORT-FLOAT)) (GUARD1 (#:IT75074 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75074 'SINGLE-FLOAT)) (GUARD1 (#:IT75075 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75075 'DOUBLE-FLOAT)) (GUARD1 (#:IT75076 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75076 'LONG-FLOAT)) (GUARD1 (#:IT75077 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75077 'INTEGER)) (GUARD1 (#:IT75078 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75078 'RATIONAL)) (GUARD1 (#:IT75079 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75079 'REAL))) (CDR #:CONS75071) (GUARD1 (#:CONS75080 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75080) (CDR #:CONS75080) (GUARD1 (#:CONS75081 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75081) (CDR #:CONS75081) (GUARD1 (#:IT75082 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75082))))) (GUARD1 (#:INTERSECTION75085 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75085 (GUARD1 (#:CONS75083 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75083) (CAR #:CONS75083) (OR1 (GUARD1 (#:IT75086 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75086 'FLOAT)) (GUARD1 (#:IT75087 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75087 'SHORT-FLOAT)) (GUARD1 (#:IT75088 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75088 'SINGLE-FLOAT)) (GUARD1 (#:IT75089 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75089 'DOUBLE-FLOAT)) (GUARD1 (#:IT75090 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75090 'LONG-FLOAT)) (GUARD1 (#:IT75091 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75091 'INTEGER)) (GUARD1 (#:IT75092 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75092 'RATIONAL)) (GUARD1 (#:IT75093 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75093 'REAL))) (CDR #:CONS75083) (GUARD1 (#:CONS75094 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75094) (CDR #:CONS75094) (GUARD1 (#:IT75095 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75095))) #:INTERSECTION75085 (GUARD1 (#:BIND75084 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION75099 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75099 (GUARD1 (#:CONS75096 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75096) (CAR #:CONS75096) (OR1 (GUARD1 (#:IT75100 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75100 'FLOAT)) (GUARD1 (#:IT75101 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75101 'SHORT-FLOAT)) (GUARD1 (#:IT75102 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75102 'SINGLE-FLOAT)) (GUARD1 (#:IT75103 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75103 'DOUBLE-FLOAT)) (GUARD1 (#:IT75104 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75104 'LONG-FLOAT)) (GUARD1 (#:IT75105 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75105 'INTEGER)) (GUARD1 (#:IT75106 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75106 'RATIONAL)) (GUARD1 (#:IT75107 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75107 'REAL))) (CDR #:CONS75096) (GUARD1 (#:IT75108 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75108)) #:INTERSECTION75099 (GUARD1 (#:BIND75097 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75099 (GUARD1 (#:BIND75098 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT76079 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76080 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76081 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75056 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75056 (GUARD1 (#:IT75055 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75055 'FLOAT) #:INTERSECTION75056 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75056 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75058 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75058 (GUARD1 (#:IT75057 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75057 'SHORT-FLOAT) #:INTERSECTION75058 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75058 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75060 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75060 (GUARD1 (#:IT75059 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75059 'SINGLE-FLOAT) #:INTERSECTION75060 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75060 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75062 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75062 (GUARD1 (#:IT75061 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75061 'DOUBLE-FLOAT) #:INTERSECTION75062 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75062 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75064 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75064 (GUARD1 (#:IT75063 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75063 'LONG-FLOAT) #:INTERSECTION75064 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75064 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75066 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75066 (GUARD1 (#:IT75065 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75065 'INTEGER) #:INTERSECTION75066 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75066 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75068 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75068 (GUARD1 (#:IT75067 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75067 'RATIONAL) #:INTERSECTION75068 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75068 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75070 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75070 (GUARD1 (#:IT75069 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75069 'REAL) #:INTERSECTION75070 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75070 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT76082 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76083 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76084 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS75071 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75071) (CAR #:CONS75071) (OR1 (GUARD1 (#:IT75072 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75072 'FLOAT)) (GUARD1 (#:IT75073 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75073 'SHORT-FLOAT)) (GUARD1 (#:IT75074 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75074 'SINGLE-FLOAT)) (GUARD1 (#:IT75075 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75075 'DOUBLE-FLOAT)) (GUARD1 (#:IT75076 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75076 'LONG-FLOAT)) (GUARD1 (#:IT75077 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75077 'INTEGER)) (GUARD1 (#:IT75078 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75078 'RATIONAL)) (GUARD1 (#:IT75079 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75079 'REAL))) (CDR #:CONS75071) (GUARD1 (#:CONS75080 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75080) (CDR #:CONS75080) (GUARD1 (#:CONS75081 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75081) (CDR #:CONS75081) (GUARD1 (#:IT75082 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75082))))) (GUARD1 (#:INTERSECTION75085 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75085 (GUARD1 (#:CONS75083 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75083) (CAR #:CONS75083) (OR1 (GUARD1 (#:IT75086 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75086 'FLOAT)) (GUARD1 (#:IT75087 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75087 'SHORT-FLOAT)) (GUARD1 (#:IT75088 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75088 'SINGLE-FLOAT)) (GUARD1 (#:IT75089 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75089 'DOUBLE-FLOAT)) (GUARD1 (#:IT75090 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75090 'LONG-FLOAT)) (GUARD1 (#:IT75091 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75091 'INTEGER)) (GUARD1 (#:IT75092 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75092 'RATIONAL)) (GUARD1 (#:IT75093 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75093 'REAL))) (CDR #:CONS75083) (GUARD1 (#:CONS75094 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75094) (CDR #:CONS75094) (GUARD1 (#:IT75095 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75095))) #:INTERSECTION75085 (GUARD1 (#:BIND75084 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION75099 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75099 (GUARD1 (#:CONS75096 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75096) (CAR #:CONS75096) (OR1 (GUARD1 (#:IT75100 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75100 'FLOAT)) (GUARD1 (#:IT75101 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75101 'SHORT-FLOAT)) (GUARD1 (#:IT75102 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75102 'SINGLE-FLOAT)) (GUARD1 (#:IT75103 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75103 'DOUBLE-FLOAT)) (GUARD1 (#:IT75104 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75104 'LONG-FLOAT)) (GUARD1 (#:IT75105 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75105 'INTEGER)) (GUARD1 (#:IT75106 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75106 'RATIONAL)) (GUARD1 (#:IT75107 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75107 'REAL))) (CDR #:CONS75096) (GUARD1 (#:IT75108 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75108)) #:INTERSECTION75099 (GUARD1 (#:BIND75097 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75099 (GUARD1 (#:BIND75098 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT76085 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76086 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76087 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (LET ((#:IT75109 #:WHAT176093)) (DECLARE (IGNORABLE #:IT75109)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:IT75110 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (MATCH1 NIL ((GUARD1 #:IT76088 T) NIL)))))))) Too large jump
(LOAD trivialib.type-unify.test FAIL) SI:SIMPLE-PROGRAM-ERROR : In form (BLOCK TRIVIA.LEVEL1.IMPL::WHOLE (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT4815 #:WHAT16458)) (DECLARE (IGNORABLE #:IT4815)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4815 'FIXNUM) (LOCALLY (DECLARE (TYPE (EQL FIXNUM) #:IT4815)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:IT4819 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4819 'FIXNUM)) (MATCH1 NIL ((GUARD1 #:IT5790 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5791 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5792 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT4815 #:WHAT16458)) (DECLARE (IGNORABLE #:IT4815)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4815 'FIXNUM) (LOCALLY (DECLARE (TYPE (EQL FIXNUM) #:IT4815)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS4820 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4820) (CAR #:CONS4820) (GUARD1 (#:IT4821 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4821 'FIXNUM)) (CDR #:CONS4820) (GUARD1 (#:IT4822 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4822)))) (MATCH1 NIL ((GUARD1 #:IT5793 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5794 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5795 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5476 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5476)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5476) (LOCALLY (DECLARE (TYPE CONS #:FUSION5476)) (LET ((#:CONS4816 #:FUSION5476)) (DECLARE (IGNORABLE #:CONS4816)) (LOCALLY (DECLARE (TYPE CONS #:CONS4816)) (LET ((#:GEN5477 (CAR #:FUSION5476))) (DECLARE (IGNORABLE #:GEN5477)) (LET ((#:GEN5478 (CDR #:FUSION5476))) (DECLARE (IGNORABLE #:GEN5478)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5479 T) (MATCH1 NIL ((GUARD1 #:IT5796 T) (MATCH2*+ (#:GEN5477 #:GEN5478 #:PAT5479) (T T T) (((GUARD1 (#:IT4817 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4817 'FIXNUM)) (GUARD1 (#:IT4818 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4818)) (GUARD1 (#:IT4819 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4819 'FIXNUM))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4817 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4817 'FIXNUM)) (GUARD1 (#:IT4818 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4818)) (GUARD1 (#:CONS4820 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4820) (CAR #:CONS4820) (GUARD1 (#:IT4821 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4821 'FIXNUM)) (CDR #:CONS4820) (GUARD1 (#:IT4822 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4822)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT5797 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5798 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT4823 #:WHAT16458)) (DECLARE (IGNORABLE #:IT4823)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4823 'BIGNUM) (LOCALLY (DECLARE (TYPE (EQL BIGNUM) #:IT4823)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:IT4827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4827 'BIGNUM)) (MATCH1 NIL ((GUARD1 #:IT5799 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5800 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5801 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT4823 #:WHAT16458)) (DECLARE (IGNORABLE #:IT4823)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4823 'BIGNUM) (LOCALLY (DECLARE (TYPE (EQL BIGNUM) #:IT4823)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS4828 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4828) (CAR #:CONS4828) (GUARD1 (#:IT4829 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4829 'BIGNUM)) (CDR #:CONS4828) (GUARD1 (#:IT4830 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4830)))) (MATCH1 NIL ((GUARD1 #:IT5802 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5803 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5804 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5480 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5480)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5480) (LOCALLY (DECLARE (TYPE CONS #:FUSION5480)) (LET ((#:CONS4824 #:FUSION5480)) (DECLARE (IGNORABLE #:CONS4824)) (LOCALLY (DECLARE (TYPE CONS #:CONS4824)) (LET ((#:GEN5481 (CAR #:FUSION5480))) (DECLARE (IGNORABLE #:GEN5481)) (LET ((#:GEN5482 (CDR #:FUSION5480))) (DECLARE (IGNORABLE #:GEN5482)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5483 T) (MATCH1 NIL ((GUARD1 #:IT5805 T) (MATCH2*+ (#:GEN5481 #:GEN5482 #:PAT5483) (T T T) (((GUARD1 (#:IT4825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4825 'BIGNUM)) (GUARD1 (#:IT4826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4826)) (GUARD1 (#:IT4827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4827 'BIGNUM))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4825 'BIGNUM)) (GUARD1 (#:IT4826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4826)) (GUARD1 (#:CONS4828 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4828) (CAR #:CONS4828) (GUARD1 (#:IT4829 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4829 'BIGNUM)) (CDR #:CONS4828) (GUARD1 (#:IT4830 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4830)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT5806 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5807 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4834 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4834)) (LET ((#:IT4831 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:IT4831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4831 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4831)) (LET ((#:BIND4832 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4832)) (LET ((#:BIND4833 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4833)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4855 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4855 (GUARD1 (#:CONS4853 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4853) (CAR #:CONS4853) (GUARD1 (#:IT4856 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT4856 'MOD)) (CDR #:CONS4853) (GUARD1 (#:CONS4857 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4857) (CAR #:CONS4857) (GUARD1 (#:N4852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS4857) (GUARD1 (#:IT4858 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4858))) #:INTERSECTION4855 (GUARD1 (#:BIND4854 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5808 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5809 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5810 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4834 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4834)) (LET ((#:IT4831 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:IT4831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4831 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4831)) (LET ((#:BIND4832 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4832)) (LET ((#:BIND4833 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4833)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4862 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4862 (GUARD1 (#:IT4859 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT4859 'BIT) #:INTERSECTION4862 (GUARD1 (#:BIND4860 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4862 (GUARD1 (#:BIND4861 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5811 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5812 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5813 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4834 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4834)) (LET ((#:IT4831 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:IT4831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4831 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4831)) (LET ((#:BIND4832 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4832)) (LET ((#:BIND4833 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4833)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION4866 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4866 (GUARD1 (#:CONS4865 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4865) (CAR #:CONS4865) (GUARD1 (#:IT4867 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4867 'UNSIGNED-BYTE)) (CDR #:CONS4865) (GUARD1 (#:CONS4868 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4868) (CAR #:CONS4868) (GUARD1 (#:INTERSECTION4870 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4870 (GUARD1 (#:IT4869 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT4869 'FIXNUM) #:INTERSECTION4870 (GUARD1 (#:N4863 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS4868) (GUARD1 (#:IT4871 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4871))) #:INTERSECTION4866 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION4873 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4873 (GUARD1 (#:CONS4872 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4872) (CAR #:CONS4872) (GUARD1 (#:IT4874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4874 'UNSIGNED-BYTE)) (CDR #:CONS4872) (GUARD1 (#:CONS4875 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4875) (CAR #:CONS4875) (GUARD1 (#:INTERSECTION4878 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4878 (GUARD1 (#:IT4876 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT4876 '*) #:INTERSECTION4878 (GUARD1 (#:IT4877 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS4875) (GUARD1 (#:IT4879 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4879))) #:INTERSECTION4873 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION4883 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4883 (GUARD1 (#:INTERSECTION4882 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4882 (GUARD1 (#:CONS4880 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4880) (CAR #:CONS4880) (GUARD1 (#:IT4884 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4884 'UNSIGNED-BYTE)) (CDR #:CONS4880) (GUARD1 (#:IT4885 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4885)) #:INTERSECTION4882 (GUARD1 (#:BIND4881 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION4883 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5814 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5815 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5816 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4834 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4834)) (LET ((#:IT4831 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:IT4831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4831 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4831)) (LET ((#:BIND4832 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4832)) (LET ((#:BIND4833 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4833)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION4892 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4892 (GUARD1 (#:CONS4887 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4887) (CAR #:CONS4887) (GUARD1 (#:IT4888 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4888 'SIGNED-BYTE)) (CDR #:CONS4887) (GUARD1 (#:CONS4889 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4889) (CAR #:CONS4889) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N4886 'FIXNUM)) (CDR #:CONS4889) (GUARD1 (#:IT4890 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4890))) #:INTERSECTION4892 (GUARD1 (#:LIFT-DUMMY4891 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION4898 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4898 (GUARD1 (#:CONS4893 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4893) (CAR #:CONS4893) (GUARD1 (#:IT4894 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4894 'SIGNED-BYTE)) (CDR #:CONS4893) (GUARD1 (#:CONS4895 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4895) (CAR #:CONS4895) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N4886)) (CDR #:CONS4895) (GUARD1 (#:IT4896 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4896))) #:INTERSECTION4898 (GUARD1 (#:LIFT-DUMMY4897 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION4902 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4902 (GUARD1 (#:CONS4899 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4899) (CAR #:CONS4899) (GUARD1 (#:IT4900 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4900 'SIGNED-BYTE)) (CDR #:CONS4899) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N4886)) #:INTERSECTION4902 (GUARD1 (#:LIFT-DUMMY4901 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION4904 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4904 (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N4886) #:INTERSECTION4904 (GUARD1 (#:LIFT-DUMMY4903 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (MATCH1 NIL ((GUARD1 #:IT5817 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5818 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5819 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4834 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4834)) (LET ((#:IT4831 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:IT4831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4831 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4831)) (LET ((#:BIND4832 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4832)) (LET ((#:BIND4833 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4833)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION4908 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4908 (GUARD1 (#:IT4905 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4905 'BIGNUM) #:INTERSECTION4908 (GUARD1 (#:BIND4906 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4908 (GUARD1 (#:BIND4907 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION4912 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4912 (GUARD1 (#:CONS4909 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4909) (CAR #:CONS4909) (GUARD1 (#:IT4913 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4913 'BIGNUM)) (CDR #:CONS4909) (GUARD1 (#:IT4914 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4914)) #:INTERSECTION4912 (GUARD1 (#:BIND4910 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4912 (GUARD1 (#:BIND4911 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT5820 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5821 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5822 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4834 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4834)) (LET ((#:IT4831 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:IT4831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4831 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4831)) (LET ((#:BIND4832 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4832)) (LET ((#:BIND4833 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4833)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION4918 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4918 (GUARD1 (#:IT4915 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4915 'FIXNUM) #:INTERSECTION4918 (GUARD1 (#:BIND4916 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4918 (GUARD1 (#:BIND4917 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION4922 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4922 (GUARD1 (#:CONS4919 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4919) (CAR #:CONS4919) (GUARD1 (#:IT4923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4923 'FIXNUM)) (CDR #:CONS4919) (GUARD1 (#:IT4924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4924)) #:INTERSECTION4922 (GUARD1 (#:BIND4920 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4922 (GUARD1 (#:BIND4921 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT5823 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5824 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5825 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4834 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4834)) (LET ((#:IT4831 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:IT4831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4831 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4831)) (LET ((#:BIND4832 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4832)) (LET ((#:BIND4833 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4833)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION4928 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4928 (GUARD1 (#:IT4925 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4925 'INTEGER) #:INTERSECTION4928 (GUARD1 (#:BIND4926 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4928 (GUARD1 (#:BIND4927 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:CONS4929 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4929) (CAR #:CONS4929) (GUARD1 (#:IT4930 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4930 'INTEGER)) (CDR #:CONS4929) (GUARD1 (#:CONS4931 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4931) (CDR #:CONS4931) (GUARD1 (#:CONS4932 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4932) (CDR #:CONS4932) (GUARD1 (#:IT4933 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4933))))) (GUARD1 (#:INTERSECTION4936 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4936 (GUARD1 (#:CONS4934 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4934) (CAR #:CONS4934) (GUARD1 (#:IT4937 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4937 'INTEGER)) (CDR #:CONS4934) (GUARD1 (#:CONS4938 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4938) (CDR #:CONS4938) (GUARD1 (#:IT4939 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4939))) #:INTERSECTION4936 (GUARD1 (#:BIND4935 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION4943 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4943 (GUARD1 (#:CONS4940 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4940) (CAR #:CONS4940) (GUARD1 (#:IT4944 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4944 'INTEGER)) (CDR #:CONS4940) (GUARD1 (#:IT4945 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4945)) #:INTERSECTION4943 (GUARD1 (#:BIND4941 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4943 (GUARD1 (#:BIND4942 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT5826 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5827 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5828 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS4835 #:WHAT16458)) (DECLARE (IGNORABLE #:CONS4835)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4835) (LOCALLY (DECLARE (TYPE CONS #:CONS4835)) (LET ((#:IT4836 (CAR #:CONS4835))) (DECLARE (IGNORABLE #:IT4836)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4836 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4836)) (LET ((#:CONS4837 (CDR #:CONS4835))) (DECLARE (IGNORABLE #:CONS4837)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4837) (LOCALLY (DECLARE (TYPE CONS #:CONS4837)) (LET ((#:CONS4838 (CDR #:CONS4837))) (DECLARE (IGNORABLE #:CONS4838)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4838) (LOCALLY (DECLARE (TYPE CONS #:CONS4838)) (LET ((#:IT4839 (CDR #:CONS4838))) (DECLARE (IGNORABLE #:IT4839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4839) (LOCALLY (DECLARE (TYPE NULL #:IT4839)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4855 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4855 (GUARD1 (#:CONS4853 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4853) (CAR #:CONS4853) (GUARD1 (#:IT4856 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT4856 'MOD)) (CDR #:CONS4853) (GUARD1 (#:CONS4857 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4857) (CAR #:CONS4857) (GUARD1 (#:N4852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS4857) (GUARD1 (#:IT4858 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4858))) #:INTERSECTION4855 (GUARD1 (#:BIND4854 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5829 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5830 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5831 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4855 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4855 (GUARD1 (#:CONS4853 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4853) (CAR #:CONS4853) (GUARD1 (#:IT4856 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT4856 'MOD)) (CDR #:CONS4853) (GUARD1 (#:CONS4857 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4857) (CAR #:CONS4857) (GUARD1 (#:N4852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS4857) (GUARD1 (#:IT4858 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4858))) #:INTERSECTION4855 (GUARD1 (#:BIND4854 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5832 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5833 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5834 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4855 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4855 (GUARD1 (#:CONS4853 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4853) (CAR #:CONS4853) (GUARD1 (#:IT4856 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT4856 'MOD)) (CDR #:CONS4853) (GUARD1 (#:CONS4857 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4857) (CAR #:CONS4857) (GUARD1 (#:N4852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS4857) (GUARD1 (#:IT4858 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4858))) #:INTERSECTION4855 (GUARD1 (#:BIND4854 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5835 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5836 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5837 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS4835 #:WHAT16458)) (DECLARE (IGNORABLE #:CONS4835)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4835) (LOCALLY (DECLARE (TYPE CONS #:CONS4835)) (LET ((#:IT4836 (CAR #:CONS4835))) (DECLARE (IGNORABLE #:IT4836)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4836 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4836)) (LET ((#:CONS4837 (CDR #:CONS4835))) (DECLARE (IGNORABLE #:CONS4837)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4837) (LOCALLY (DECLARE (TYPE CONS #:CONS4837)) (LET ((#:CONS4838 (CDR #:CONS4837))) (DECLARE (IGNORABLE #:CONS4838)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4838) (LOCALLY (DECLARE (TYPE CONS #:CONS4838)) (LET ((#:IT4839 (CDR #:CONS4838))) (DECLARE (IGNORABLE #:IT4839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4839) (LOCALLY (DECLARE (TYPE NULL #:IT4839)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4862 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4862 (GUARD1 (#:IT4859 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT4859 'BIT) #:INTERSECTION4862 (GUARD1 (#:BIND4860 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4862 (GUARD1 (#:BIND4861 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5838 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5839 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5840 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4862 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4862 (GUARD1 (#:IT4859 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT4859 'BIT) #:INTERSECTION4862 (GUARD1 (#:BIND4860 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4862 (GUARD1 (#:BIND4861 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5841 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5842 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5843 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4862 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4862 (GUARD1 (#:IT4859 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT4859 'BIT) #:INTERSECTION4862 (GUARD1 (#:BIND4860 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4862 (GUARD1 (#:BIND4861 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5844 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5845 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5846 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5493 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5493)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5493) (LOCALLY (DECLARE (TYPE CONS #:FUSION5493)) (LET ((#:CONS4835 #:FUSION5493)) (DECLARE (IGNORABLE #:CONS4835)) (LOCALLY (DECLARE (TYPE CONS #:CONS4835)) (LET ((#:GEN5494 (CAR #:FUSION5493))) (DECLARE (IGNORABLE #:GEN5494)) (LET ((#:GEN5495 (CDR #:FUSION5493))) (DECLARE (IGNORABLE #:GEN5495)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5496 T) (MATCH1 NIL ((GUARD1 #:IT5847 T) (MATCH2*+ (#:GEN5494 #:GEN5495 #:PAT5496) (T T T) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (GUARD1 (#:INTERSECTION4866 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4866 (GUARD1 (#:CONS4865 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4865) (CAR #:CONS4865) (GUARD1 (#:IT4867 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4867 'UNSIGNED-BYTE)) (CDR #:CONS4865) (GUARD1 (#:CONS4868 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4868) (CAR #:CONS4868) (GUARD1 (#:INTERSECTION4870 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4870 (GUARD1 (#:IT4869 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT4869 'FIXNUM) #:INTERSECTION4870 (GUARD1 (#:N4863 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS4868) (GUARD1 (#:IT4871 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4871))) #:INTERSECTION4866 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (GUARD1 (#:INTERSECTION4873 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4873 (GUARD1 (#:CONS4872 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4872) (CAR #:CONS4872) (GUARD1 (#:IT4874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4874 'UNSIGNED-BYTE)) (CDR #:CONS4872) (GUARD1 (#:CONS4875 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4875) (CAR #:CONS4875) (GUARD1 (#:INTERSECTION4878 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4878 (GUARD1 (#:IT4876 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT4876 '*) #:INTERSECTION4878 (GUARD1 (#:IT4877 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS4875) (GUARD1 (#:IT4879 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4879))) #:INTERSECTION4873 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (GUARD1 (#:INTERSECTION4883 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4883 (GUARD1 (#:INTERSECTION4882 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4882 (GUARD1 (#:CONS4880 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4880) (CAR #:CONS4880) (GUARD1 (#:IT4884 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4884 'UNSIGNED-BYTE)) (CDR #:CONS4880) (GUARD1 (#:IT4885 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4885)) #:INTERSECTION4882 (GUARD1 (#:BIND4881 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION4883 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT5848 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5849 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4866 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4866 (GUARD1 (#:CONS4865 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4865) (CAR #:CONS4865) (GUARD1 (#:IT4867 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4867 'UNSIGNED-BYTE)) (CDR #:CONS4865) (GUARD1 (#:CONS4868 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4868) (CAR #:CONS4868) (GUARD1 (#:INTERSECTION4870 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4870 (GUARD1 (#:IT4869 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT4869 'FIXNUM) #:INTERSECTION4870 (GUARD1 (#:N4863 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS4868) (GUARD1 (#:IT4871 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4871))) #:INTERSECTION4866 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5850 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5851 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5852 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4873 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4873 (GUARD1 (#:CONS4872 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4872) (CAR #:CONS4872) (GUARD1 (#:IT4874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4874 'UNSIGNED-BYTE)) (CDR #:CONS4872) (GUARD1 (#:CONS4875 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4875) (CAR #:CONS4875) (GUARD1 (#:INTERSECTION4878 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4878 (GUARD1 (#:IT4876 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT4876 '*) #:INTERSECTION4878 (GUARD1 (#:IT4877 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS4875) (GUARD1 (#:IT4879 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4879))) #:INTERSECTION4873 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5853 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5854 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5855 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4883 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4883 (GUARD1 (#:INTERSECTION4882 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4882 (GUARD1 (#:CONS4880 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4880) (CAR #:CONS4880) (GUARD1 (#:IT4884 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4884 'UNSIGNED-BYTE)) (CDR #:CONS4880) (GUARD1 (#:IT4885 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4885)) #:INTERSECTION4882 (GUARD1 (#:BIND4881 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION4883 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5856 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5857 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5858 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4866 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4866 (GUARD1 (#:CONS4865 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4865) (CAR #:CONS4865) (GUARD1 (#:IT4867 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4867 'UNSIGNED-BYTE)) (CDR #:CONS4865) (GUARD1 (#:CONS4868 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4868) (CAR #:CONS4868) (GUARD1 (#:INTERSECTION4870 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4870 (GUARD1 (#:IT4869 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT4869 'FIXNUM) #:INTERSECTION4870 (GUARD1 (#:N4863 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS4868) (GUARD1 (#:IT4871 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4871))) #:INTERSECTION4866 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5859 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5860 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5861 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4873 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4873 (GUARD1 (#:CONS4872 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4872) (CAR #:CONS4872) (GUARD1 (#:IT4874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4874 'UNSIGNED-BYTE)) (CDR #:CONS4872) (GUARD1 (#:CONS4875 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4875) (CAR #:CONS4875) (GUARD1 (#:INTERSECTION4878 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4878 (GUARD1 (#:IT4876 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT4876 '*) #:INTERSECTION4878 (GUARD1 (#:IT4877 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS4875) (GUARD1 (#:IT4879 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4879))) #:INTERSECTION4873 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5862 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5863 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5864 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4883 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4883 (GUARD1 (#:INTERSECTION4882 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4882 (GUARD1 (#:CONS4880 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4880) (CAR #:CONS4880) (GUARD1 (#:IT4884 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4884 'UNSIGNED-BYTE)) (CDR #:CONS4880) (GUARD1 (#:IT4885 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4885)) #:INTERSECTION4882 (GUARD1 (#:BIND4881 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION4883 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5865 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5866 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5867 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5500 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5500)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5500) (LOCALLY (DECLARE (TYPE CONS #:FUSION5500)) (LET ((#:CONS4835 #:FUSION5500)) (DECLARE (IGNORABLE #:CONS4835)) (LOCALLY (DECLARE (TYPE CONS #:CONS4835)) (LET ((#:GEN5501 (CAR #:FUSION5500))) (DECLARE (IGNORABLE #:GEN5501)) (LET ((#:GEN5502 (CDR #:FUSION5500))) (DECLARE (IGNORABLE #:GEN5502)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5503 T) (MATCH1 NIL ((GUARD1 #:IT5868 T) (MATCH2*+ (#:GEN5501 #:GEN5502 #:PAT5503) (T T T) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (GUARD1 (#:INTERSECTION4892 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4892 (GUARD1 (#:CONS4887 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4887) (CAR #:CONS4887) (GUARD1 (#:IT4888 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4888 'SIGNED-BYTE)) (CDR #:CONS4887) (GUARD1 (#:CONS4889 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4889) (CAR #:CONS4889) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N4886 'FIXNUM)) (CDR #:CONS4889) (GUARD1 (#:IT4890 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4890))) #:INTERSECTION4892 (GUARD1 (#:LIFT-DUMMY4891 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (GUARD1 (#:INTERSECTION4898 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4898 (GUARD1 (#:CONS4893 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4893) (CAR #:CONS4893) (GUARD1 (#:IT4894 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4894 'SIGNED-BYTE)) (CDR #:CONS4893) (GUARD1 (#:CONS4895 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4895) (CAR #:CONS4895) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N4886)) (CDR #:CONS4895) (GUARD1 (#:IT4896 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4896))) #:INTERSECTION4898 (GUARD1 (#:LIFT-DUMMY4897 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (GUARD1 (#:INTERSECTION4902 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4902 (GUARD1 (#:CONS4899 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4899) (CAR #:CONS4899) (GUARD1 (#:IT4900 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4900 'SIGNED-BYTE)) (CDR #:CONS4899) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N4886)) #:INTERSECTION4902 (GUARD1 (#:LIFT-DUMMY4901 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (GUARD1 (#:INTERSECTION4904 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4904 (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N4886) #:INTERSECTION4904 (GUARD1 (#:LIFT-DUMMY4903 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT5869 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5870 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4892 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4892 (GUARD1 (#:CONS4887 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4887) (CAR #:CONS4887) (GUARD1 (#:IT4888 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4888 'SIGNED-BYTE)) (CDR #:CONS4887) (GUARD1 (#:CONS4889 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4889) (CAR #:CONS4889) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N4886 'FIXNUM)) (CDR #:CONS4889) (GUARD1 (#:IT4890 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4890))) #:INTERSECTION4892 (GUARD1 (#:LIFT-DUMMY4891 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT5871 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5872 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5873 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4898 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4898 (GUARD1 (#:CONS4893 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4893) (CAR #:CONS4893) (GUARD1 (#:IT4894 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4894 'SIGNED-BYTE)) (CDR #:CONS4893) (GUARD1 (#:CONS4895 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4895) (CAR #:CONS4895) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N4886)) (CDR #:CONS4895) (GUARD1 (#:IT4896 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4896))) #:INTERSECTION4898 (GUARD1 (#:LIFT-DUMMY4897 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT5874 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5875 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5876 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4902 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4902 (GUARD1 (#:CONS4899 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4899) (CAR #:CONS4899) (GUARD1 (#:IT4900 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4900 'SIGNED-BYTE)) (CDR #:CONS4899) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N4886)) #:INTERSECTION4902 (GUARD1 (#:LIFT-DUMMY4901 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT5877 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5878 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5879 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4904 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4904 (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N4886) #:INTERSECTION4904 (GUARD1 (#:LIFT-DUMMY4903 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT5880 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5881 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5882 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4892 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4892 (GUARD1 (#:CONS4887 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4887) (CAR #:CONS4887) (GUARD1 (#:IT4888 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4888 'SIGNED-BYTE)) (CDR #:CONS4887) (GUARD1 (#:CONS4889 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4889) (CAR #:CONS4889) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N4886 'FIXNUM)) (CDR #:CONS4889) (GUARD1 (#:IT4890 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4890))) #:INTERSECTION4892 (GUARD1 (#:LIFT-DUMMY4891 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT5883 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5884 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5885 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4898 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4898 (GUARD1 (#:CONS4893 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4893) (CAR #:CONS4893) (GUARD1 (#:IT4894 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4894 'SIGNED-BYTE)) (CDR #:CONS4893) (GUARD1 (#:CONS4895 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4895) (CAR #:CONS4895) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N4886)) (CDR #:CONS4895) (GUARD1 (#:IT4896 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4896))) #:INTERSECTION4898 (GUARD1 (#:LIFT-DUMMY4897 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT5886 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5887 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5888 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4902 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4902 (GUARD1 (#:CONS4899 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4899) (CAR #:CONS4899) (GUARD1 (#:IT4900 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4900 'SIGNED-BYTE)) (CDR #:CONS4899) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N4886)) #:INTERSECTION4902 (GUARD1 (#:LIFT-DUMMY4901 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT5889 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5890 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5891 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4904 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4904 (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N4886) #:INTERSECTION4904 (GUARD1 (#:LIFT-DUMMY4903 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT5892 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5893 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5894 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5507 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5507)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5507) (LOCALLY (DECLARE (TYPE CONS #:FUSION5507)) (LET ((#:CONS4835 #:FUSION5507)) (DECLARE (IGNORABLE #:CONS4835)) (LOCALLY (DECLARE (TYPE CONS #:CONS4835)) (LET ((#:GEN5508 (CAR #:FUSION5507))) (DECLARE (IGNORABLE #:GEN5508)) (LET ((#:GEN5509 (CDR #:FUSION5507))) (DECLARE (IGNORABLE #:GEN5509)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5510 T) (MATCH1 NIL ((GUARD1 #:IT5895 T) (MATCH2*+ (#:GEN5508 #:GEN5509 #:PAT5510) (T T T) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (GUARD1 (#:INTERSECTION4908 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4908 (GUARD1 (#:IT4905 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4905 'BIGNUM) #:INTERSECTION4908 (GUARD1 (#:BIND4906 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4908 (GUARD1 (#:BIND4907 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (OR1 (GUARD1 (#:INTERSECTION4912 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4912 (GUARD1 (#:CONS4909 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4909) (CAR #:CONS4909) (GUARD1 (#:IT4913 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4913 'BIGNUM)) (CDR #:CONS4909) (GUARD1 (#:IT4914 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4914)) #:INTERSECTION4912 (GUARD1 (#:BIND4910 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4912 (GUARD1 (#:BIND4911 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT5896 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5897 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4908 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4908 (GUARD1 (#:IT4905 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4905 'BIGNUM) #:INTERSECTION4908 (GUARD1 (#:BIND4906 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4908 (GUARD1 (#:BIND4907 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5898 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5899 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5900 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION4912 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4912 (GUARD1 (#:CONS4909 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4909) (CAR #:CONS4909) (GUARD1 (#:IT4913 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4913 'BIGNUM)) (CDR #:CONS4909) (GUARD1 (#:IT4914 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4914)) #:INTERSECTION4912 (GUARD1 (#:BIND4910 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4912 (GUARD1 (#:BIND4911 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT5901 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5902 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5903 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4908 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4908 (GUARD1 (#:IT4905 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4905 'BIGNUM) #:INTERSECTION4908 (GUARD1 (#:BIND4906 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4908 (GUARD1 (#:BIND4907 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5904 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5905 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5906 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION4912 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4912 (GUARD1 (#:CONS4909 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4909) (CAR #:CONS4909) (GUARD1 (#:IT4913 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4913 'BIGNUM)) (CDR #:CONS4909) (GUARD1 (#:IT4914 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4914)) #:INTERSECTION4912 (GUARD1 (#:BIND4910 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4912 (GUARD1 (#:BIND4911 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT5907 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5908 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5909 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5514 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5514)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5514) (LOCALLY (DECLARE (TYPE CONS #:FUSION5514)) (LET ((#:CONS4835 #:FUSION5514)) (DECLARE (IGNORABLE #:CONS4835)) (LOCALLY (DECLARE (TYPE CONS #:CONS4835)) (LET ((#:GEN5515 (CAR #:FUSION5514))) (DECLARE (IGNORABLE #:GEN5515)) (LET ((#:GEN5516 (CDR #:FUSION5514))) (DECLARE (IGNORABLE #:GEN5516)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5517 T) (MATCH1 NIL ((GUARD1 #:IT5910 T) (MATCH2*+ (#:GEN5515 #:GEN5516 #:PAT5517) (T T T) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (GUARD1 (#:INTERSECTION4918 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4918 (GUARD1 (#:IT4915 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4915 'FIXNUM) #:INTERSECTION4918 (GUARD1 (#:BIND4916 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4918 (GUARD1 (#:BIND4917 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (OR1 (GUARD1 (#:INTERSECTION4922 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4922 (GUARD1 (#:CONS4919 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4919) (CAR #:CONS4919) (GUARD1 (#:IT4923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4923 'FIXNUM)) (CDR #:CONS4919) (GUARD1 (#:IT4924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4924)) #:INTERSECTION4922 (GUARD1 (#:BIND4920 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4922 (GUARD1 (#:BIND4921 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT5911 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5912 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4918 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4918 (GUARD1 (#:IT4915 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4915 'FIXNUM) #:INTERSECTION4918 (GUARD1 (#:BIND4916 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4918 (GUARD1 (#:BIND4917 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5913 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5914 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5915 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION4922 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4922 (GUARD1 (#:CONS4919 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4919) (CAR #:CONS4919) (GUARD1 (#:IT4923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4923 'FIXNUM)) (CDR #:CONS4919) (GUARD1 (#:IT4924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4924)) #:INTERSECTION4922 (GUARD1 (#:BIND4920 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4922 (GUARD1 (#:BIND4921 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT5916 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5917 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5918 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4918 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4918 (GUARD1 (#:IT4915 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4915 'FIXNUM) #:INTERSECTION4918 (GUARD1 (#:BIND4916 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4918 (GUARD1 (#:BIND4917 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5919 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5920 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5921 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION4922 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4922 (GUARD1 (#:CONS4919 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4919) (CAR #:CONS4919) (GUARD1 (#:IT4923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4923 'FIXNUM)) (CDR #:CONS4919) (GUARD1 (#:IT4924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4924)) #:INTERSECTION4922 (GUARD1 (#:BIND4920 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4922 (GUARD1 (#:BIND4921 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT5922 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5923 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5924 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5521 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5521)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5521) (LOCALLY (DECLARE (TYPE CONS #:FUSION5521)) (LET ((#:CONS4835 #:FUSION5521)) (DECLARE (IGNORABLE #:CONS4835)) (LOCALLY (DECLARE (TYPE CONS #:CONS4835)) (LET ((#:GEN5522 (CAR #:FUSION5521))) (DECLARE (IGNORABLE #:GEN5522)) (LET ((#:GEN5523 (CDR #:FUSION5521))) (DECLARE (IGNORABLE #:GEN5523)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5524 T) (MATCH1 NIL ((GUARD1 #:IT5925 T) (MATCH2*+ (#:GEN5522 #:GEN5523 #:PAT5524) (T T T) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (GUARD1 (#:INTERSECTION4928 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4928 (GUARD1 (#:IT4925 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4925 'INTEGER) #:INTERSECTION4928 (GUARD1 (#:BIND4926 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4928 (GUARD1 (#:BIND4927 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (OR1 (GUARD1 (#:CONS4929 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4929) (CAR #:CONS4929) (GUARD1 (#:IT4930 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4930 'INTEGER)) (CDR #:CONS4929) (GUARD1 (#:CONS4931 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4931) (CDR #:CONS4931) (GUARD1 (#:CONS4932 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4932) (CDR #:CONS4932) (GUARD1 (#:IT4933 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4933))))) (GUARD1 (#:INTERSECTION4936 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4936 (GUARD1 (#:CONS4934 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4934) (CAR #:CONS4934) (GUARD1 (#:IT4937 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4937 'INTEGER)) (CDR #:CONS4934) (GUARD1 (#:CONS4938 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4938) (CDR #:CONS4938) (GUARD1 (#:IT4939 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4939))) #:INTERSECTION4936 (GUARD1 (#:BIND4935 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION4943 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4943 (GUARD1 (#:CONS4940 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4940) (CAR #:CONS4940) (GUARD1 (#:IT4944 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4944 'INTEGER)) (CDR #:CONS4940) (GUARD1 (#:IT4945 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4945)) #:INTERSECTION4943 (GUARD1 (#:BIND4941 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4943 (GUARD1 (#:BIND4942 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT5926 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5927 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4928 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4928 (GUARD1 (#:IT4925 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4925 'INTEGER) #:INTERSECTION4928 (GUARD1 (#:BIND4926 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4928 (GUARD1 (#:BIND4927 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5928 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5929 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5930 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS4929 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4929) (CAR #:CONS4929) (GUARD1 (#:IT4930 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4930 'INTEGER)) (CDR #:CONS4929) (GUARD1 (#:CONS4931 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4931) (CDR #:CONS4931) (GUARD1 (#:CONS4932 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4932) (CDR #:CONS4932) (GUARD1 (#:IT4933 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4933))))) (GUARD1 (#:INTERSECTION4936 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4936 (GUARD1 (#:CONS4934 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4934) (CAR #:CONS4934) (GUARD1 (#:IT4937 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4937 'INTEGER)) (CDR #:CONS4934) (GUARD1 (#:CONS4938 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4938) (CDR #:CONS4938) (GUARD1 (#:IT4939 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4939))) #:INTERSECTION4936 (GUARD1 (#:BIND4935 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION4943 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4943 (GUARD1 (#:CONS4940 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4940) (CAR #:CONS4940) (GUARD1 (#:IT4944 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4944 'INTEGER)) (CDR #:CONS4940) (GUARD1 (#:IT4945 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4945)) #:INTERSECTION4943 (GUARD1 (#:BIND4941 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4943 (GUARD1 (#:BIND4942 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT5931 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5932 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5933 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4928 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4928 (GUARD1 (#:IT4925 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4925 'INTEGER) #:INTERSECTION4928 (GUARD1 (#:BIND4926 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4928 (GUARD1 (#:BIND4927 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5934 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5935 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5936 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS4929 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4929) (CAR #:CONS4929) (GUARD1 (#:IT4930 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4930 'INTEGER)) (CDR #:CONS4929) (GUARD1 (#:CONS4931 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4931) (CDR #:CONS4931) (GUARD1 (#:CONS4932 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4932) (CDR #:CONS4932) (GUARD1 (#:IT4933 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4933))))) (GUARD1 (#:INTERSECTION4936 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4936 (GUARD1 (#:CONS4934 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4934) (CAR #:CONS4934) (GUARD1 (#:IT4937 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4937 'INTEGER)) (CDR #:CONS4934) (GUARD1 (#:CONS4938 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4938) (CDR #:CONS4938) (GUARD1 (#:IT4939 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4939))) #:INTERSECTION4936 (GUARD1 (#:BIND4935 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION4943 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4943 (GUARD1 (#:CONS4940 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4940) (CAR #:CONS4940) (GUARD1 (#:IT4944 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4944 'INTEGER)) (CDR #:CONS4940) (GUARD1 (#:IT4945 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4945)) #:INTERSECTION4943 (GUARD1 (#:BIND4941 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4943 (GUARD1 (#:BIND4942 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT5937 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5938 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5939 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4949 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4949)) (LET ((#:IT4946 #:INTERSECTION4949)) (DECLARE (IGNORABLE #:IT4946)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4946 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT4946)) (LET ((#:BIND4947 #:INTERSECTION4949)) (DECLARE (IGNORABLE #:BIND4947)) (LET ((#:BIND4948 #:INTERSECTION4949)) (DECLARE (IGNORABLE #:BIND4948)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4970 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4970 (GUARD1 (#:IT4967 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4967 'SINGLE-FLOAT) #:INTERSECTION4970 (GUARD1 (#:BIND4968 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4970 (GUARD1 (#:BIND4969 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5940 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5941 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5942 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4949 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4949)) (LET ((#:IT4946 #:INTERSECTION4949)) (DECLARE (IGNORABLE #:IT4946)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4946 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT4946)) (LET ((#:BIND4947 #:INTERSECTION4949)) (DECLARE (IGNORABLE #:BIND4947)) (LET ((#:BIND4948 #:INTERSECTION4949)) (DECLARE (IGNORABLE #:BIND4948)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS4971 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4971) (CAR #:CONS4971) (GUARD1 (#:IT4972 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4972 'SINGLE-FLOAT)) (CDR #:CONS4971) (GUARD1 (#:CONS4973 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4973) (CDR #:CONS4973) (GUARD1 (#:CONS4974 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4974) (CDR #:CONS4974) (GUARD1 (#:IT4975 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4975))))) (GUARD1 (#:INTERSECTION4978 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4978 (GUARD1 (#:CONS4976 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4976) (CAR #:CONS4976) (GUARD1 (#:IT4979 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4979 'SINGLE-FLOAT)) (CDR #:CONS4976) (GUARD1 (#:CONS4980 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4980) (CDR #:CONS4980) (GUARD1 (#:IT4981 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4981))) #:INTERSECTION4978 (GUARD1 (#:BIND4977 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION4985 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4985 (GUARD1 (#:CONS4982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4982) (CAR #:CONS4982) (GUARD1 (#:IT4986 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4986 'SINGLE-FLOAT)) (CDR #:CONS4982) (GUARD1 (#:IT4987 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4987)) #:INTERSECTION4985 (GUARD1 (#:BIND4983 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4985 (GUARD1 (#:BIND4984 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT5943 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5944 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5945 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS4950 #:WHAT16458)) (DECLARE (IGNORABLE #:CONS4950)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4950) (LOCALLY (DECLARE (TYPE CONS #:CONS4950)) (LET ((#:IT4951 (CAR #:CONS4950))) (DECLARE (IGNORABLE #:IT4951)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4951 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT4951)) (LET ((#:CONS4952 (CDR #:CONS4950))) (DECLARE (IGNORABLE #:CONS4952)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4952) (LOCALLY (DECLARE (TYPE CONS #:CONS4952)) (LET ((#:CONS4953 (CDR #:CONS4952))) (DECLARE (IGNORABLE #:CONS4953)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4953) (LOCALLY (DECLARE (TYPE CONS #:CONS4953)) (LET ((#:IT4954 (CDR #:CONS4953))) (DECLARE (IGNORABLE #:IT4954)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4954) (LOCALLY (DECLARE (TYPE NULL #:IT4954)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4970 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4970 (GUARD1 (#:IT4967 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4967 'SINGLE-FLOAT) #:INTERSECTION4970 (GUARD1 (#:BIND4968 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4970 (GUARD1 (#:BIND4969 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5946 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5947 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5948 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4957 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4957)) (LET ((#:CONS4955 #:INTERSECTION4957)) (DECLARE (IGNORABLE #:CONS4955)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4955) (LOCALLY (DECLARE (TYPE CONS #:CONS4955)) (LET ((#:IT4958 (CAR #:CONS4955))) (DECLARE (IGNORABLE #:IT4958)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4958 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT4958)) (LET ((#:CONS4959 (CDR #:CONS4955))) (DECLARE (IGNORABLE #:CONS4959)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4959) (LOCALLY (DECLARE (TYPE CONS #:CONS4959)) (LET ((#:IT4960 (CDR #:CONS4959))) (DECLARE (IGNORABLE #:IT4960)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4960) (LOCALLY (DECLARE (TYPE NULL #:IT4960)) (LET ((#:BIND4956 #:INTERSECTION4957)) (DECLARE (IGNORABLE #:BIND4956)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4970 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4970 (GUARD1 (#:IT4967 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4967 'SINGLE-FLOAT) #:INTERSECTION4970 (GUARD1 (#:BIND4968 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4970 (GUARD1 (#:BIND4969 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5949 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5950 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5951 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4964 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4964)) (LET ((#:CONS4961 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:CONS4961)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4961) (LOCALLY (DECLARE (TYPE CONS #:CONS4961)) (LET ((#:IT4965 (CAR #:CONS4961))) (DECLARE (IGNORABLE #:IT4965)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4965 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT4965)) (LET ((#:IT4966 (CDR #:CONS4961))) (DECLARE (IGNORABLE #:IT4966)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4966) (LOCALLY (DECLARE (TYPE NULL #:IT4966)) (LET ((#:BIND4962 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:BIND4962)) (LET ((#:BIND4963 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:BIND4963)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4970 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4970 (GUARD1 (#:IT4967 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4967 'SINGLE-FLOAT) #:INTERSECTION4970 (GUARD1 (#:BIND4968 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4970 (GUARD1 (#:BIND4969 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5952 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5953 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5954 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5531 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5531)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5531) (LOCALLY (DECLARE (TYPE CONS #:FUSION5531)) (LET ((#:CONS4950 #:FUSION5531)) (DECLARE (IGNORABLE #:CONS4950)) (LOCALLY (DECLARE (TYPE CONS #:CONS4950)) (LET ((#:GEN5532 (CAR #:FUSION5531))) (DECLARE (IGNORABLE #:GEN5532)) (LET ((#:GEN5533 (CDR #:FUSION5531))) (DECLARE (IGNORABLE #:GEN5533)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5534 T) (MATCH1 NIL ((GUARD1 #:IT5955 T) (MATCH2*+ (#:GEN5532 #:GEN5533 #:PAT5534) (T T T) (((GUARD1 (#:IT4951 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4951 'SINGLE-FLOAT)) (GUARD1 (#:CONS4952 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4952) (CDR #:CONS4952) (GUARD1 (#:CONS4953 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4953) (CDR #:CONS4953) (GUARD1 (#:IT4954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4954)))) (GUARD1 (#:CONS4971 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4971) (CAR #:CONS4971) (GUARD1 (#:IT4972 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4972 'SINGLE-FLOAT)) (CDR #:CONS4971) (GUARD1 (#:CONS4973 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4973) (CDR #:CONS4973) (GUARD1 (#:CONS4974 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4974) (CDR #:CONS4974) (GUARD1 (#:IT4975 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4975)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4951 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4951 'SINGLE-FLOAT)) (GUARD1 (#:CONS4952 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4952) (CDR #:CONS4952) (GUARD1 (#:CONS4953 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4953) (CDR #:CONS4953) (GUARD1 (#:IT4954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4954)))) (GUARD1 (#:INTERSECTION4978 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4978 (GUARD1 (#:CONS4976 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4976) (CAR #:CONS4976) (GUARD1 (#:IT4979 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4979 'SINGLE-FLOAT)) (CDR #:CONS4976) (GUARD1 (#:CONS4980 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4980) (CDR #:CONS4980) (GUARD1 (#:IT4981 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4981))) #:INTERSECTION4978 (GUARD1 (#:BIND4977 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4951 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4951 'SINGLE-FLOAT)) (GUARD1 (#:CONS4952 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4952) (CDR #:CONS4952) (GUARD1 (#:CONS4953 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4953) (CDR #:CONS4953) (GUARD1 (#:IT4954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4954)))) (GUARD1 (#:INTERSECTION4985 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4985 (GUARD1 (#:CONS4982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4982) (CAR #:CONS4982) (GUARD1 (#:IT4986 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4986 'SINGLE-FLOAT)) (CDR #:CONS4982) (GUARD1 (#:IT4987 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4987)) #:INTERSECTION4985 (GUARD1 (#:BIND4983 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4985 (GUARD1 (#:BIND4984 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT5956 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5957 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4957 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4957)) (LET ((#:CONS4955 #:INTERSECTION4957)) (DECLARE (IGNORABLE #:CONS4955)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4955) (LOCALLY (DECLARE (TYPE CONS #:CONS4955)) (LET ((#:IT4958 (CAR #:CONS4955))) (DECLARE (IGNORABLE #:IT4958)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4958 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT4958)) (LET ((#:CONS4959 (CDR #:CONS4955))) (DECLARE (IGNORABLE #:CONS4959)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4959) (LOCALLY (DECLARE (TYPE CONS #:CONS4959)) (LET ((#:IT4960 (CDR #:CONS4959))) (DECLARE (IGNORABLE #:IT4960)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4960) (LOCALLY (DECLARE (TYPE NULL #:IT4960)) (LET ((#:BIND4956 #:INTERSECTION4957)) (DECLARE (IGNORABLE #:BIND4956)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:CONS4971 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4971) (CAR #:CONS4971) (GUARD1 (#:IT4972 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4972 'SINGLE-FLOAT)) (CDR #:CONS4971) (GUARD1 (#:CONS4973 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4973) (CDR #:CONS4973) (GUARD1 (#:CONS4974 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4974) (CDR #:CONS4974) (GUARD1 (#:IT4975 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4975))))) (MATCH1 NIL ((GUARD1 #:IT5958 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5959 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5960 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4957 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4957)) (LET ((#:CONS4955 #:INTERSECTION4957)) (DECLARE (IGNORABLE #:CONS4955)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4955) (LOCALLY (DECLARE (TYPE CONS #:CONS4955)) (LET ((#:IT4958 (CAR #:CONS4955))) (DECLARE (IGNORABLE #:IT4958)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4958 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT4958)) (LET ((#:CONS4959 (CDR #:CONS4955))) (DECLARE (IGNORABLE #:CONS4959)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4959) (LOCALLY (DECLARE (TYPE CONS #:CONS4959)) (LET ((#:IT4960 (CDR #:CONS4959))) (DECLARE (IGNORABLE #:IT4960)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4960) (LOCALLY (DECLARE (TYPE NULL #:IT4960)) (LET ((#:BIND4956 #:INTERSECTION4957)) (DECLARE (IGNORABLE #:BIND4956)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4978 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4978 (GUARD1 (#:CONS4976 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4976) (CAR #:CONS4976) (GUARD1 (#:IT4979 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4979 'SINGLE-FLOAT)) (CDR #:CONS4976) (GUARD1 (#:CONS4980 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4980) (CDR #:CONS4980) (GUARD1 (#:IT4981 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4981))) #:INTERSECTION4978 (GUARD1 (#:BIND4977 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5961 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5962 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5963 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4957 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4957)) (LET ((#:CONS4955 #:INTERSECTION4957)) (DECLARE (IGNORABLE #:CONS4955)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4955) (LOCALLY (DECLARE (TYPE CONS #:CONS4955)) (LET ((#:IT4958 (CAR #:CONS4955))) (DECLARE (IGNORABLE #:IT4958)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4958 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT4958)) (LET ((#:CONS4959 (CDR #:CONS4955))) (DECLARE (IGNORABLE #:CONS4959)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4959) (LOCALLY (DECLARE (TYPE CONS #:CONS4959)) (LET ((#:IT4960 (CDR #:CONS4959))) (DECLARE (IGNORABLE #:IT4960)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4960) (LOCALLY (DECLARE (TYPE NULL #:IT4960)) (LET ((#:BIND4956 #:INTERSECTION4957)) (DECLARE (IGNORABLE #:BIND4956)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4985 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4985 (GUARD1 (#:CONS4982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4982) (CAR #:CONS4982) (GUARD1 (#:IT4986 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4986 'SINGLE-FLOAT)) (CDR #:CONS4982) (GUARD1 (#:IT4987 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4987)) #:INTERSECTION4985 (GUARD1 (#:BIND4983 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4985 (GUARD1 (#:BIND4984 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5964 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5965 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5966 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4964 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4964)) (LET ((#:CONS4961 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:CONS4961)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4961) (LOCALLY (DECLARE (TYPE CONS #:CONS4961)) (LET ((#:IT4965 (CAR #:CONS4961))) (DECLARE (IGNORABLE #:IT4965)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4965 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT4965)) (LET ((#:IT4966 (CDR #:CONS4961))) (DECLARE (IGNORABLE #:IT4966)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4966) (LOCALLY (DECLARE (TYPE NULL #:IT4966)) (LET ((#:BIND4962 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:BIND4962)) (LET ((#:BIND4963 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:BIND4963)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:CONS4971 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4971) (CAR #:CONS4971) (GUARD1 (#:IT4972 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4972 'SINGLE-FLOAT)) (CDR #:CONS4971) (GUARD1 (#:CONS4973 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4973) (CDR #:CONS4973) (GUARD1 (#:CONS4974 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4974) (CDR #:CONS4974) (GUARD1 (#:IT4975 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4975))))) (MATCH1 NIL ((GUARD1 #:IT5967 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5968 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5969 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4964 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4964)) (LET ((#:CONS4961 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:CONS4961)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4961) (LOCALLY (DECLARE (TYPE CONS #:CONS4961)) (LET ((#:IT4965 (CAR #:CONS4961))) (DECLARE (IGNORABLE #:IT4965)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4965 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT4965)) (LET ((#:IT4966 (CDR #:CONS4961))) (DECLARE (IGNORABLE #:IT4966)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4966) (LOCALLY (DECLARE (TYPE NULL #:IT4966)) (LET ((#:BIND4962 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:BIND4962)) (LET ((#:BIND4963 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:BIND4963)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4978 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4978 (GUARD1 (#:CONS4976 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4976) (CAR #:CONS4976) (GUARD1 (#:IT4979 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4979 'SINGLE-FLOAT)) (CDR #:CONS4976) (GUARD1 (#:CONS4980 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4980) (CDR #:CONS4980) (GUARD1 (#:IT4981 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4981))) #:INTERSECTION4978 (GUARD1 (#:BIND4977 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5970 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5971 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5972 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4964 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4964)) (LET ((#:CONS4961 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:CONS4961)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4961) (LOCALLY (DECLARE (TYPE CONS #:CONS4961)) (LET ((#:IT4965 (CAR #:CONS4961))) (DECLARE (IGNORABLE #:IT4965)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4965 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT4965)) (LET ((#:IT4966 (CDR #:CONS4961))) (DECLARE (IGNORABLE #:IT4966)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4966) (LOCALLY (DECLARE (TYPE NULL #:IT4966)) (LET ((#:BIND4962 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:BIND4962)) (LET ((#:BIND4963 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:BIND4963)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4985 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4985 (GUARD1 (#:CONS4982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4982) (CAR #:CONS4982) (GUARD1 (#:IT4986 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4986 'SINGLE-FLOAT)) (CDR #:CONS4982) (GUARD1 (#:IT4987 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4987)) #:INTERSECTION4985 (GUARD1 (#:BIND4983 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4985 (GUARD1 (#:BIND4984 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5973 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5974 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5975 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4991 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4991)) (LET ((#:IT4988 #:INTERSECTION4991)) (DECLARE (IGNORABLE #:IT4988)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4988 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT4988)) (LET ((#:BIND4989 #:INTERSECTION4991)) (DECLARE (IGNORABLE #:BIND4989)) (LET ((#:BIND4990 #:INTERSECTION4991)) (DECLARE (IGNORABLE #:BIND4990)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5012 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5012 (GUARD1 (#:IT5009 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5009 'DOUBLE-FLOAT) #:INTERSECTION5012 (GUARD1 (#:BIND5010 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5012 (GUARD1 (#:BIND5011 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5976 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5977 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5978 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4991 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4991)) (LET ((#:IT4988 #:INTERSECTION4991)) (DECLARE (IGNORABLE #:IT4988)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4988 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT4988)) (LET ((#:BIND4989 #:INTERSECTION4991)) (DECLARE (IGNORABLE #:BIND4989)) (LET ((#:BIND4990 #:INTERSECTION4991)) (DECLARE (IGNORABLE #:BIND4990)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS5013 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5013) (CAR #:CONS5013) (GUARD1 (#:IT5014 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5014 'DOUBLE-FLOAT)) (CDR #:CONS5013) (GUARD1 (#:CONS5015 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5015) (CDR #:CONS5015) (GUARD1 (#:CONS5016 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5016) (CDR #:CONS5016) (GUARD1 (#:IT5017 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5017))))) (GUARD1 (#:INTERSECTION5020 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5020 (GUARD1 (#:CONS5018 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5018) (CAR #:CONS5018) (GUARD1 (#:IT5021 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5021 'DOUBLE-FLOAT)) (CDR #:CONS5018) (GUARD1 (#:CONS5022 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5022) (CDR #:CONS5022) (GUARD1 (#:IT5023 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5023))) #:INTERSECTION5020 (GUARD1 (#:BIND5019 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5027 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5027 (GUARD1 (#:CONS5024 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5024) (CAR #:CONS5024) (GUARD1 (#:IT5028 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5028 'DOUBLE-FLOAT)) (CDR #:CONS5024) (GUARD1 (#:IT5029 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5029)) #:INTERSECTION5027 (GUARD1 (#:BIND5025 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5027 (GUARD1 (#:BIND5026 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT5979 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5980 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5981 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS4992 #:WHAT16458)) (DECLARE (IGNORABLE #:CONS4992)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4992) (LOCALLY (DECLARE (TYPE CONS #:CONS4992)) (LET ((#:IT4993 (CAR #:CONS4992))) (DECLARE (IGNORABLE #:IT4993)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4993 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT4993)) (LET ((#:CONS4994 (CDR #:CONS4992))) (DECLARE (IGNORABLE #:CONS4994)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4994) (LOCALLY (DECLARE (TYPE CONS #:CONS4994)) (LET ((#:CONS4995 (CDR #:CONS4994))) (DECLARE (IGNORABLE #:CONS4995)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4995) (LOCALLY (DECLARE (TYPE CONS #:CONS4995)) (LET ((#:IT4996 (CDR #:CONS4995))) (DECLARE (IGNORABLE #:IT4996)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4996) (LOCALLY (DECLARE (TYPE NULL #:IT4996)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5012 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5012 (GUARD1 (#:IT5009 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5009 'DOUBLE-FLOAT) #:INTERSECTION5012 (GUARD1 (#:BIND5010 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5012 (GUARD1 (#:BIND5011 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5982 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5983 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5984 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4999 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4999)) (LET ((#:CONS4997 #:INTERSECTION4999)) (DECLARE (IGNORABLE #:CONS4997)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4997) (LOCALLY (DECLARE (TYPE CONS #:CONS4997)) (LET ((#:IT5000 (CAR #:CONS4997))) (DECLARE (IGNORABLE #:IT5000)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5000 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT5000)) (LET ((#:CONS5001 (CDR #:CONS4997))) (DECLARE (IGNORABLE #:CONS5001)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5001) (LOCALLY (DECLARE (TYPE CONS #:CONS5001)) (LET ((#:IT5002 (CDR #:CONS5001))) (DECLARE (IGNORABLE #:IT5002)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5002) (LOCALLY (DECLARE (TYPE NULL #:IT5002)) (LET ((#:BIND4998 #:INTERSECTION4999)) (DECLARE (IGNORABLE #:BIND4998)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5012 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5012 (GUARD1 (#:IT5009 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5009 'DOUBLE-FLOAT) #:INTERSECTION5012 (GUARD1 (#:BIND5010 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5012 (GUARD1 (#:BIND5011 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5985 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5986 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5987 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5006 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5006)) (LET ((#:CONS5003 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:CONS5003)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5003) (LOCALLY (DECLARE (TYPE CONS #:CONS5003)) (LET ((#:IT5007 (CAR #:CONS5003))) (DECLARE (IGNORABLE #:IT5007)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5007 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT5007)) (LET ((#:IT5008 (CDR #:CONS5003))) (DECLARE (IGNORABLE #:IT5008)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5008) (LOCALLY (DECLARE (TYPE NULL #:IT5008)) (LET ((#:BIND5004 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:BIND5004)) (LET ((#:BIND5005 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:BIND5005)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5012 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5012 (GUARD1 (#:IT5009 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5009 'DOUBLE-FLOAT) #:INTERSECTION5012 (GUARD1 (#:BIND5010 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5012 (GUARD1 (#:BIND5011 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5988 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5989 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5990 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5541 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5541)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5541) (LOCALLY (DECLARE (TYPE CONS #:FUSION5541)) (LET ((#:CONS4992 #:FUSION5541)) (DECLARE (IGNORABLE #:CONS4992)) (LOCALLY (DECLARE (TYPE CONS #:CONS4992)) (LET ((#:GEN5542 (CAR #:FUSION5541))) (DECLARE (IGNORABLE #:GEN5542)) (LET ((#:GEN5543 (CDR #:FUSION5541))) (DECLARE (IGNORABLE #:GEN5543)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5544 T) (MATCH1 NIL ((GUARD1 #:IT5991 T) (MATCH2*+ (#:GEN5542 #:GEN5543 #:PAT5544) (T T T) (((GUARD1 (#:IT4993 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT4993 'DOUBLE-FLOAT)) (GUARD1 (#:CONS4994 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4994) (CDR #:CONS4994) (GUARD1 (#:CONS4995 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4995) (CDR #:CONS4995) (GUARD1 (#:IT4996 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4996)))) (GUARD1 (#:CONS5013 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5013) (CAR #:CONS5013) (GUARD1 (#:IT5014 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5014 'DOUBLE-FLOAT)) (CDR #:CONS5013) (GUARD1 (#:CONS5015 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5015) (CDR #:CONS5015) (GUARD1 (#:CONS5016 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5016) (CDR #:CONS5016) (GUARD1 (#:IT5017 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5017)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4993 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT4993 'DOUBLE-FLOAT)) (GUARD1 (#:CONS4994 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4994) (CDR #:CONS4994) (GUARD1 (#:CONS4995 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4995) (CDR #:CONS4995) (GUARD1 (#:IT4996 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4996)))) (GUARD1 (#:INTERSECTION5020 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5020 (GUARD1 (#:CONS5018 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5018) (CAR #:CONS5018) (GUARD1 (#:IT5021 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5021 'DOUBLE-FLOAT)) (CDR #:CONS5018) (GUARD1 (#:CONS5022 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5022) (CDR #:CONS5022) (GUARD1 (#:IT5023 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5023))) #:INTERSECTION5020 (GUARD1 (#:BIND5019 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4993 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT4993 'DOUBLE-FLOAT)) (GUARD1 (#:CONS4994 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4994) (CDR #:CONS4994) (GUARD1 (#:CONS4995 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4995) (CDR #:CONS4995) (GUARD1 (#:IT4996 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4996)))) (GUARD1 (#:INTERSECTION5027 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5027 (GUARD1 (#:CONS5024 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5024) (CAR #:CONS5024) (GUARD1 (#:IT5028 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5028 'DOUBLE-FLOAT)) (CDR #:CONS5024) (GUARD1 (#:IT5029 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5029)) #:INTERSECTION5027 (GUARD1 (#:BIND5025 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5027 (GUARD1 (#:BIND5026 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT5992 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5993 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4999 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4999)) (LET ((#:CONS4997 #:INTERSECTION4999)) (DECLARE (IGNORABLE #:CONS4997)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4997) (LOCALLY (DECLARE (TYPE CONS #:CONS4997)) (LET ((#:IT5000 (CAR #:CONS4997))) (DECLARE (IGNORABLE #:IT5000)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5000 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT5000)) (LET ((#:CONS5001 (CDR #:CONS4997))) (DECLARE (IGNORABLE #:CONS5001)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5001) (LOCALLY (DECLARE (TYPE CONS #:CONS5001)) (LET ((#:IT5002 (CDR #:CONS5001))) (DECLARE (IGNORABLE #:IT5002)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5002) (LOCALLY (DECLARE (TYPE NULL #:IT5002)) (LET ((#:BIND4998 #:INTERSECTION4999)) (DECLARE (IGNORABLE #:BIND4998)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:CONS5013 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5013) (CAR #:CONS5013) (GUARD1 (#:IT5014 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5014 'DOUBLE-FLOAT)) (CDR #:CONS5013) (GUARD1 (#:CONS5015 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5015) (CDR #:CONS5015) (GUARD1 (#:CONS5016 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5016) (CDR #:CONS5016) (GUARD1 (#:IT5017 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5017))))) (MATCH1 NIL ((GUARD1 #:IT5994 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5995 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5996 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4999 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4999)) (LET ((#:CONS4997 #:INTERSECTION4999)) (DECLARE (IGNORABLE #:CONS4997)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4997) (LOCALLY (DECLARE (TYPE CONS #:CONS4997)) (LET ((#:IT5000 (CAR #:CONS4997))) (DECLARE (IGNORABLE #:IT5000)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5000 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT5000)) (LET ((#:CONS5001 (CDR #:CONS4997))) (DECLARE (IGNORABLE #:CONS5001)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5001) (LOCALLY (DECLARE (TYPE CONS #:CONS5001)) (LET ((#:IT5002 (CDR #:CONS5001))) (DECLARE (IGNORABLE #:IT5002)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5002) (LOCALLY (DECLARE (TYPE NULL #:IT5002)) (LET ((#:BIND4998 #:INTERSECTION4999)) (DECLARE (IGNORABLE #:BIND4998)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5020 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5020 (GUARD1 (#:CONS5018 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5018) (CAR #:CONS5018) (GUARD1 (#:IT5021 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5021 'DOUBLE-FLOAT)) (CDR #:CONS5018) (GUARD1 (#:CONS5022 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5022) (CDR #:CONS5022) (GUARD1 (#:IT5023 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5023))) #:INTERSECTION5020 (GUARD1 (#:BIND5019 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5997 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5998 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5999 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4999 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4999)) (LET ((#:CONS4997 #:INTERSECTION4999)) (DECLARE (IGNORABLE #:CONS4997)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4997) (LOCALLY (DECLARE (TYPE CONS #:CONS4997)) (LET ((#:IT5000 (CAR #:CONS4997))) (DECLARE (IGNORABLE #:IT5000)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5000 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT5000)) (LET ((#:CONS5001 (CDR #:CONS4997))) (DECLARE (IGNORABLE #:CONS5001)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5001) (LOCALLY (DECLARE (TYPE CONS #:CONS5001)) (LET ((#:IT5002 (CDR #:CONS5001))) (DECLARE (IGNORABLE #:IT5002)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5002) (LOCALLY (DECLARE (TYPE NULL #:IT5002)) (LET ((#:BIND4998 #:INTERSECTION4999)) (DECLARE (IGNORABLE #:BIND4998)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5027 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5027 (GUARD1 (#:CONS5024 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5024) (CAR #:CONS5024) (GUARD1 (#:IT5028 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5028 'DOUBLE-FLOAT)) (CDR #:CONS5024) (GUARD1 (#:IT5029 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5029)) #:INTERSECTION5027 (GUARD1 (#:BIND5025 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5027 (GUARD1 (#:BIND5026 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6000 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6001 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6002 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5006 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5006)) (LET ((#:CONS5003 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:CONS5003)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5003) (LOCALLY (DECLARE (TYPE CONS #:CONS5003)) (LET ((#:IT5007 (CAR #:CONS5003))) (DECLARE (IGNORABLE #:IT5007)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5007 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT5007)) (LET ((#:IT5008 (CDR #:CONS5003))) (DECLARE (IGNORABLE #:IT5008)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5008) (LOCALLY (DECLARE (TYPE NULL #:IT5008)) (LET ((#:BIND5004 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:BIND5004)) (LET ((#:BIND5005 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:BIND5005)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:CONS5013 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5013) (CAR #:CONS5013) (GUARD1 (#:IT5014 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5014 'DOUBLE-FLOAT)) (CDR #:CONS5013) (GUARD1 (#:CONS5015 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5015) (CDR #:CONS5015) (GUARD1 (#:CONS5016 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5016) (CDR #:CONS5016) (GUARD1 (#:IT5017 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5017))))) (MATCH1 NIL ((GUARD1 #:IT6003 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6004 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6005 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5006 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5006)) (LET ((#:CONS5003 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:CONS5003)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5003) (LOCALLY (DECLARE (TYPE CONS #:CONS5003)) (LET ((#:IT5007 (CAR #:CONS5003))) (DECLARE (IGNORABLE #:IT5007)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5007 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT5007)) (LET ((#:IT5008 (CDR #:CONS5003))) (DECLARE (IGNORABLE #:IT5008)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5008) (LOCALLY (DECLARE (TYPE NULL #:IT5008)) (LET ((#:BIND5004 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:BIND5004)) (LET ((#:BIND5005 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:BIND5005)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5020 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5020 (GUARD1 (#:CONS5018 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5018) (CAR #:CONS5018) (GUARD1 (#:IT5021 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5021 'DOUBLE-FLOAT)) (CDR #:CONS5018) (GUARD1 (#:CONS5022 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5022) (CDR #:CONS5022) (GUARD1 (#:IT5023 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5023))) #:INTERSECTION5020 (GUARD1 (#:BIND5019 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6006 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6007 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6008 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5006 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5006)) (LET ((#:CONS5003 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:CONS5003)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5003) (LOCALLY (DECLARE (TYPE CONS #:CONS5003)) (LET ((#:IT5007 (CAR #:CONS5003))) (DECLARE (IGNORABLE #:IT5007)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5007 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT5007)) (LET ((#:IT5008 (CDR #:CONS5003))) (DECLARE (IGNORABLE #:IT5008)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5008) (LOCALLY (DECLARE (TYPE NULL #:IT5008)) (LET ((#:BIND5004 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:BIND5004)) (LET ((#:BIND5005 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:BIND5005)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5027 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5027 (GUARD1 (#:CONS5024 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5024) (CAR #:CONS5024) (GUARD1 (#:IT5028 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5028 'DOUBLE-FLOAT)) (CDR #:CONS5024) (GUARD1 (#:IT5029 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5029)) #:INTERSECTION5027 (GUARD1 (#:BIND5025 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5027 (GUARD1 (#:BIND5026 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6009 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6010 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6011 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5033 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5033)) (LET ((#:IT5030 #:INTERSECTION5033)) (DECLARE (IGNORABLE #:IT5030)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5030 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT5030)) (LET ((#:BIND5031 #:INTERSECTION5033)) (DECLARE (IGNORABLE #:BIND5031)) (LET ((#:BIND5032 #:INTERSECTION5033)) (DECLARE (IGNORABLE #:BIND5032)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5054 (GUARD1 (#:IT5051 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5051 'LONG-FLOAT) #:INTERSECTION5054 (GUARD1 (#:BIND5052 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5054 (GUARD1 (#:BIND5053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6012 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6013 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6014 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5033 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5033)) (LET ((#:IT5030 #:INTERSECTION5033)) (DECLARE (IGNORABLE #:IT5030)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5030 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT5030)) (LET ((#:BIND5031 #:INTERSECTION5033)) (DECLARE (IGNORABLE #:BIND5031)) (LET ((#:BIND5032 #:INTERSECTION5033)) (DECLARE (IGNORABLE #:BIND5032)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS5055 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5055) (CAR #:CONS5055) (GUARD1 (#:IT5056 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5056 'LONG-FLOAT)) (CDR #:CONS5055) (GUARD1 (#:CONS5057 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5057) (CDR #:CONS5057) (GUARD1 (#:CONS5058 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5058) (CDR #:CONS5058) (GUARD1 (#:IT5059 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5059))))) (GUARD1 (#:INTERSECTION5062 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5062 (GUARD1 (#:CONS5060 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5060) (CAR #:CONS5060) (GUARD1 (#:IT5063 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5063 'LONG-FLOAT)) (CDR #:CONS5060) (GUARD1 (#:CONS5064 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5064) (CDR #:CONS5064) (GUARD1 (#:IT5065 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5065))) #:INTERSECTION5062 (GUARD1 (#:BIND5061 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5069 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5069 (GUARD1 (#:CONS5066 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5066) (CAR #:CONS5066) (GUARD1 (#:IT5070 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5070 'LONG-FLOAT)) (CDR #:CONS5066) (GUARD1 (#:IT5071 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5071)) #:INTERSECTION5069 (GUARD1 (#:BIND5067 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5069 (GUARD1 (#:BIND5068 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6015 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6016 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6017 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS5034 #:WHAT16458)) (DECLARE (IGNORABLE #:CONS5034)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5034) (LOCALLY (DECLARE (TYPE CONS #:CONS5034)) (LET ((#:IT5035 (CAR #:CONS5034))) (DECLARE (IGNORABLE #:IT5035)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5035 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT5035)) (LET ((#:CONS5036 (CDR #:CONS5034))) (DECLARE (IGNORABLE #:CONS5036)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5036) (LOCALLY (DECLARE (TYPE CONS #:CONS5036)) (LET ((#:CONS5037 (CDR #:CONS5036))) (DECLARE (IGNORABLE #:CONS5037)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5037) (LOCALLY (DECLARE (TYPE CONS #:CONS5037)) (LET ((#:IT5038 (CDR #:CONS5037))) (DECLARE (IGNORABLE #:IT5038)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5038) (LOCALLY (DECLARE (TYPE NULL #:IT5038)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5054 (GUARD1 (#:IT5051 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5051 'LONG-FLOAT) #:INTERSECTION5054 (GUARD1 (#:BIND5052 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5054 (GUARD1 (#:BIND5053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6018 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6019 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6020 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5041 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5041)) (LET ((#:CONS5039 #:INTERSECTION5041)) (DECLARE (IGNORABLE #:CONS5039)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5039) (LOCALLY (DECLARE (TYPE CONS #:CONS5039)) (LET ((#:IT5042 (CAR #:CONS5039))) (DECLARE (IGNORABLE #:IT5042)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5042 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT5042)) (LET ((#:CONS5043 (CDR #:CONS5039))) (DECLARE (IGNORABLE #:CONS5043)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5043) (LOCALLY (DECLARE (TYPE CONS #:CONS5043)) (LET ((#:IT5044 (CDR #:CONS5043))) (DECLARE (IGNORABLE #:IT5044)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5044) (LOCALLY (DECLARE (TYPE NULL #:IT5044)) (LET ((#:BIND5040 #:INTERSECTION5041)) (DECLARE (IGNORABLE #:BIND5040)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5054 (GUARD1 (#:IT5051 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5051 'LONG-FLOAT) #:INTERSECTION5054 (GUARD1 (#:BIND5052 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5054 (GUARD1 (#:BIND5053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6021 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6022 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6023 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5048 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5048)) (LET ((#:CONS5045 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:CONS5045)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5045) (LOCALLY (DECLARE (TYPE CONS #:CONS5045)) (LET ((#:IT5049 (CAR #:CONS5045))) (DECLARE (IGNORABLE #:IT5049)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5049 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT5049)) (LET ((#:IT5050 (CDR #:CONS5045))) (DECLARE (IGNORABLE #:IT5050)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5050) (LOCALLY (DECLARE (TYPE NULL #:IT5050)) (LET ((#:BIND5046 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:BIND5046)) (LET ((#:BIND5047 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:BIND5047)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5054 (GUARD1 (#:IT5051 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5051 'LONG-FLOAT) #:INTERSECTION5054 (GUARD1 (#:BIND5052 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5054 (GUARD1 (#:BIND5053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6024 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6025 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6026 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5551 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5551)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5551) (LOCALLY (DECLARE (TYPE CONS #:FUSION5551)) (LET ((#:CONS5034 #:FUSION5551)) (DECLARE (IGNORABLE #:CONS5034)) (LOCALLY (DECLARE (TYPE CONS #:CONS5034)) (LET ((#:GEN5552 (CAR #:FUSION5551))) (DECLARE (IGNORABLE #:GEN5552)) (LET ((#:GEN5553 (CDR #:FUSION5551))) (DECLARE (IGNORABLE #:GEN5553)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5554 T) (MATCH1 NIL ((GUARD1 #:IT6027 T) (MATCH2*+ (#:GEN5552 #:GEN5553 #:PAT5554) (T T T) (((GUARD1 (#:IT5035 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5035 'LONG-FLOAT)) (GUARD1 (#:CONS5036 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5036) (CDR #:CONS5036) (GUARD1 (#:CONS5037 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5037) (CDR #:CONS5037) (GUARD1 (#:IT5038 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5038)))) (GUARD1 (#:CONS5055 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5055) (CAR #:CONS5055) (GUARD1 (#:IT5056 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5056 'LONG-FLOAT)) (CDR #:CONS5055) (GUARD1 (#:CONS5057 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5057) (CDR #:CONS5057) (GUARD1 (#:CONS5058 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5058) (CDR #:CONS5058) (GUARD1 (#:IT5059 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5059)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5035 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5035 'LONG-FLOAT)) (GUARD1 (#:CONS5036 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5036) (CDR #:CONS5036) (GUARD1 (#:CONS5037 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5037) (CDR #:CONS5037) (GUARD1 (#:IT5038 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5038)))) (GUARD1 (#:INTERSECTION5062 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5062 (GUARD1 (#:CONS5060 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5060) (CAR #:CONS5060) (GUARD1 (#:IT5063 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5063 'LONG-FLOAT)) (CDR #:CONS5060) (GUARD1 (#:CONS5064 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5064) (CDR #:CONS5064) (GUARD1 (#:IT5065 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5065))) #:INTERSECTION5062 (GUARD1 (#:BIND5061 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5035 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5035 'LONG-FLOAT)) (GUARD1 (#:CONS5036 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5036) (CDR #:CONS5036) (GUARD1 (#:CONS5037 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5037) (CDR #:CONS5037) (GUARD1 (#:IT5038 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5038)))) (GUARD1 (#:INTERSECTION5069 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5069 (GUARD1 (#:CONS5066 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5066) (CAR #:CONS5066) (GUARD1 (#:IT5070 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5070 'LONG-FLOAT)) (CDR #:CONS5066) (GUARD1 (#:IT5071 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5071)) #:INTERSECTION5069 (GUARD1 (#:BIND5067 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5069 (GUARD1 (#:BIND5068 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6028 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6029 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5041 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5041)) (LET ((#:CONS5039 #:INTERSECTION5041)) (DECLARE (IGNORABLE #:CONS5039)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5039) (LOCALLY (DECLARE (TYPE CONS #:CONS5039)) (LET ((#:IT5042 (CAR #:CONS5039))) (DECLARE (IGNORABLE #:IT5042)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5042 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT5042)) (LET ((#:CONS5043 (CDR #:CONS5039))) (DECLARE (IGNORABLE #:CONS5043)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5043) (LOCALLY (DECLARE (TYPE CONS #:CONS5043)) (LET ((#:IT5044 (CDR #:CONS5043))) (DECLARE (IGNORABLE #:IT5044)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5044) (LOCALLY (DECLARE (TYPE NULL #:IT5044)) (LET ((#:BIND5040 #:INTERSECTION5041)) (DECLARE (IGNORABLE #:BIND5040)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:CONS5055 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5055) (CAR #:CONS5055) (GUARD1 (#:IT5056 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5056 'LONG-FLOAT)) (CDR #:CONS5055) (GUARD1 (#:CONS5057 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5057) (CDR #:CONS5057) (GUARD1 (#:CONS5058 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5058) (CDR #:CONS5058) (GUARD1 (#:IT5059 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5059))))) (MATCH1 NIL ((GUARD1 #:IT6030 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6031 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6032 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5041 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5041)) (LET ((#:CONS5039 #:INTERSECTION5041)) (DECLARE (IGNORABLE #:CONS5039)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5039) (LOCALLY (DECLARE (TYPE CONS #:CONS5039)) (LET ((#:IT5042 (CAR #:CONS5039))) (DECLARE (IGNORABLE #:IT5042)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5042 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT5042)) (LET ((#:CONS5043 (CDR #:CONS5039))) (DECLARE (IGNORABLE #:CONS5043)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5043) (LOCALLY (DECLARE (TYPE CONS #:CONS5043)) (LET ((#:IT5044 (CDR #:CONS5043))) (DECLARE (IGNORABLE #:IT5044)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5044) (LOCALLY (DECLARE (TYPE NULL #:IT5044)) (LET ((#:BIND5040 #:INTERSECTION5041)) (DECLARE (IGNORABLE #:BIND5040)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5062 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5062 (GUARD1 (#:CONS5060 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5060) (CAR #:CONS5060) (GUARD1 (#:IT5063 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5063 'LONG-FLOAT)) (CDR #:CONS5060) (GUARD1 (#:CONS5064 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5064) (CDR #:CONS5064) (GUARD1 (#:IT5065 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5065))) #:INTERSECTION5062 (GUARD1 (#:BIND5061 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6033 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6034 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6035 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5041 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5041)) (LET ((#:CONS5039 #:INTERSECTION5041)) (DECLARE (IGNORABLE #:CONS5039)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5039) (LOCALLY (DECLARE (TYPE CONS #:CONS5039)) (LET ((#:IT5042 (CAR #:CONS5039))) (DECLARE (IGNORABLE #:IT5042)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5042 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT5042)) (LET ((#:CONS5043 (CDR #:CONS5039))) (DECLARE (IGNORABLE #:CONS5043)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5043) (LOCALLY (DECLARE (TYPE CONS #:CONS5043)) (LET ((#:IT5044 (CDR #:CONS5043))) (DECLARE (IGNORABLE #:IT5044)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5044) (LOCALLY (DECLARE (TYPE NULL #:IT5044)) (LET ((#:BIND5040 #:INTERSECTION5041)) (DECLARE (IGNORABLE #:BIND5040)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5069 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5069 (GUARD1 (#:CONS5066 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5066) (CAR #:CONS5066) (GUARD1 (#:IT5070 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5070 'LONG-FLOAT)) (CDR #:CONS5066) (GUARD1 (#:IT5071 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5071)) #:INTERSECTION5069 (GUARD1 (#:BIND5067 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5069 (GUARD1 (#:BIND5068 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6036 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6037 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6038 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5048 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5048)) (LET ((#:CONS5045 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:CONS5045)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5045) (LOCALLY (DECLARE (TYPE CONS #:CONS5045)) (LET ((#:IT5049 (CAR #:CONS5045))) (DECLARE (IGNORABLE #:IT5049)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5049 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT5049)) (LET ((#:IT5050 (CDR #:CONS5045))) (DECLARE (IGNORABLE #:IT5050)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5050) (LOCALLY (DECLARE (TYPE NULL #:IT5050)) (LET ((#:BIND5046 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:BIND5046)) (LET ((#:BIND5047 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:BIND5047)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:CONS5055 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5055) (CAR #:CONS5055) (GUARD1 (#:IT5056 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5056 'LONG-FLOAT)) (CDR #:CONS5055) (GUARD1 (#:CONS5057 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5057) (CDR #:CONS5057) (GUARD1 (#:CONS5058 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5058) (CDR #:CONS5058) (GUARD1 (#:IT5059 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5059))))) (MATCH1 NIL ((GUARD1 #:IT6039 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6040 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6041 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5048 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5048)) (LET ((#:CONS5045 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:CONS5045)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5045) (LOCALLY (DECLARE (TYPE CONS #:CONS5045)) (LET ((#:IT5049 (CAR #:CONS5045))) (DECLARE (IGNORABLE #:IT5049)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5049 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT5049)) (LET ((#:IT5050 (CDR #:CONS5045))) (DECLARE (IGNORABLE #:IT5050)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5050) (LOCALLY (DECLARE (TYPE NULL #:IT5050)) (LET ((#:BIND5046 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:BIND5046)) (LET ((#:BIND5047 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:BIND5047)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5062 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5062 (GUARD1 (#:CONS5060 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5060) (CAR #:CONS5060) (GUARD1 (#:IT5063 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5063 'LONG-FLOAT)) (CDR #:CONS5060) (GUARD1 (#:CONS5064 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5064) (CDR #:CONS5064) (GUARD1 (#:IT5065 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5065))) #:INTERSECTION5062 (GUARD1 (#:BIND5061 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6042 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6043 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6044 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5048 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5048)) (LET ((#:CONS5045 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:CONS5045)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5045) (LOCALLY (DECLARE (TYPE CONS #:CONS5045)) (LET ((#:IT5049 (CAR #:CONS5045))) (DECLARE (IGNORABLE #:IT5049)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5049 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT5049)) (LET ((#:IT5050 (CDR #:CONS5045))) (DECLARE (IGNORABLE #:IT5050)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5050) (LOCALLY (DECLARE (TYPE NULL #:IT5050)) (LET ((#:BIND5046 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:BIND5046)) (LET ((#:BIND5047 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:BIND5047)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5069 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5069 (GUARD1 (#:CONS5066 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5066) (CAR #:CONS5066) (GUARD1 (#:IT5070 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5070 'LONG-FLOAT)) (CDR #:CONS5066) (GUARD1 (#:IT5071 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5071)) #:INTERSECTION5069 (GUARD1 (#:BIND5067 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5069 (GUARD1 (#:BIND5068 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6045 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6046 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6047 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5075 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5075)) (LET ((#:IT5072 #:INTERSECTION5075)) (DECLARE (IGNORABLE #:IT5072)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5072 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT5072)) (LET ((#:BIND5073 #:INTERSECTION5075)) (DECLARE (IGNORABLE #:BIND5073)) (LET ((#:BIND5074 #:INTERSECTION5075)) (DECLARE (IGNORABLE #:BIND5074)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5096 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5096 (GUARD1 (#:IT5093 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5093 'SHORT-FLOAT) #:INTERSECTION5096 (GUARD1 (#:BIND5094 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5096 (GUARD1 (#:BIND5095 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6048 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6049 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6050 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5075 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5075)) (LET ((#:IT5072 #:INTERSECTION5075)) (DECLARE (IGNORABLE #:IT5072)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5072 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT5072)) (LET ((#:BIND5073 #:INTERSECTION5075)) (DECLARE (IGNORABLE #:BIND5073)) (LET ((#:BIND5074 #:INTERSECTION5075)) (DECLARE (IGNORABLE #:BIND5074)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS5097 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5097) (CAR #:CONS5097) (GUARD1 (#:IT5098 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5098 'SHORT-FLOAT)) (CDR #:CONS5097) (GUARD1 (#:CONS5099 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5099) (CDR #:CONS5099) (GUARD1 (#:CONS5100 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5100) (CDR #:CONS5100) (GUARD1 (#:IT5101 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5101))))) (GUARD1 (#:INTERSECTION5104 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5104 (GUARD1 (#:CONS5102 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5102) (CAR #:CONS5102) (GUARD1 (#:IT5105 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5105 'SHORT-FLOAT)) (CDR #:CONS5102) (GUARD1 (#:CONS5106 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5106) (CDR #:CONS5106) (GUARD1 (#:IT5107 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5107))) #:INTERSECTION5104 (GUARD1 (#:BIND5103 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5111 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5111 (GUARD1 (#:CONS5108 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5108) (CAR #:CONS5108) (GUARD1 (#:IT5112 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5112 'SHORT-FLOAT)) (CDR #:CONS5108) (GUARD1 (#:IT5113 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5113)) #:INTERSECTION5111 (GUARD1 (#:BIND5109 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5111 (GUARD1 (#:BIND5110 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6051 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6052 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6053 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS5076 #:WHAT16458)) (DECLARE (IGNORABLE #:CONS5076)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5076) (LOCALLY (DECLARE (TYPE CONS #:CONS5076)) (LET ((#:IT5077 (CAR #:CONS5076))) (DECLARE (IGNORABLE #:IT5077)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5077 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT5077)) (LET ((#:CONS5078 (CDR #:CONS5076))) (DECLARE (IGNORABLE #:CONS5078)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5078) (LOCALLY (DECLARE (TYPE CONS #:CONS5078)) (LET ((#:CONS5079 (CDR #:CONS5078))) (DECLARE (IGNORABLE #:CONS5079)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5079) (LOCALLY (DECLARE (TYPE CONS #:CONS5079)) (LET ((#:IT5080 (CDR #:CONS5079))) (DECLARE (IGNORABLE #:IT5080)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5080) (LOCALLY (DECLARE (TYPE NULL #:IT5080)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5096 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5096 (GUARD1 (#:IT5093 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5093 'SHORT-FLOAT) #:INTERSECTION5096 (GUARD1 (#:BIND5094 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5096 (GUARD1 (#:BIND5095 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6054 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6055 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6056 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5083 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5083)) (LET ((#:CONS5081 #:INTERSECTION5083)) (DECLARE (IGNORABLE #:CONS5081)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5081) (LOCALLY (DECLARE (TYPE CONS #:CONS5081)) (LET ((#:IT5084 (CAR #:CONS5081))) (DECLARE (IGNORABLE #:IT5084)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5084 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT5084)) (LET ((#:CONS5085 (CDR #:CONS5081))) (DECLARE (IGNORABLE #:CONS5085)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5085) (LOCALLY (DECLARE (TYPE CONS #:CONS5085)) (LET ((#:IT5086 (CDR #:CONS5085))) (DECLARE (IGNORABLE #:IT5086)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5086) (LOCALLY (DECLARE (TYPE NULL #:IT5086)) (LET ((#:BIND5082 #:INTERSECTION5083)) (DECLARE (IGNORABLE #:BIND5082)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5096 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5096 (GUARD1 (#:IT5093 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5093 'SHORT-FLOAT) #:INTERSECTION5096 (GUARD1 (#:BIND5094 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5096 (GUARD1 (#:BIND5095 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6057 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6058 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6059 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5090 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5090)) (LET ((#:CONS5087 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:CONS5087)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5087) (LOCALLY (DECLARE (TYPE CONS #:CONS5087)) (LET ((#:IT5091 (CAR #:CONS5087))) (DECLARE (IGNORABLE #:IT5091)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5091 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT5091)) (LET ((#:IT5092 (CDR #:CONS5087))) (DECLARE (IGNORABLE #:IT5092)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5092) (LOCALLY (DECLARE (TYPE NULL #:IT5092)) (LET ((#:BIND5088 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:BIND5088)) (LET ((#:BIND5089 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:BIND5089)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5096 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5096 (GUARD1 (#:IT5093 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5093 'SHORT-FLOAT) #:INTERSECTION5096 (GUARD1 (#:BIND5094 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5096 (GUARD1 (#:BIND5095 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6060 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6061 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6062 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5561 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5561)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5561) (LOCALLY (DECLARE (TYPE CONS #:FUSION5561)) (LET ((#:CONS5076 #:FUSION5561)) (DECLARE (IGNORABLE #:CONS5076)) (LOCALLY (DECLARE (TYPE CONS #:CONS5076)) (LET ((#:GEN5562 (CAR #:FUSION5561))) (DECLARE (IGNORABLE #:GEN5562)) (LET ((#:GEN5563 (CDR #:FUSION5561))) (DECLARE (IGNORABLE #:GEN5563)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5564 T) (MATCH1 NIL ((GUARD1 #:IT6063 T) (MATCH2*+ (#:GEN5562 #:GEN5563 #:PAT5564) (T T T) (((GUARD1 (#:IT5077 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5077 'SHORT-FLOAT)) (GUARD1 (#:CONS5078 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5078) (CDR #:CONS5078) (GUARD1 (#:CONS5079 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5079) (CDR #:CONS5079) (GUARD1 (#:IT5080 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5080)))) (GUARD1 (#:CONS5097 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5097) (CAR #:CONS5097) (GUARD1 (#:IT5098 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5098 'SHORT-FLOAT)) (CDR #:CONS5097) (GUARD1 (#:CONS5099 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5099) (CDR #:CONS5099) (GUARD1 (#:CONS5100 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5100) (CDR #:CONS5100) (GUARD1 (#:IT5101 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5101)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5077 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5077 'SHORT-FLOAT)) (GUARD1 (#:CONS5078 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5078) (CDR #:CONS5078) (GUARD1 (#:CONS5079 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5079) (CDR #:CONS5079) (GUARD1 (#:IT5080 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5080)))) (GUARD1 (#:INTERSECTION5104 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5104 (GUARD1 (#:CONS5102 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5102) (CAR #:CONS5102) (GUARD1 (#:IT5105 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5105 'SHORT-FLOAT)) (CDR #:CONS5102) (GUARD1 (#:CONS5106 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5106) (CDR #:CONS5106) (GUARD1 (#:IT5107 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5107))) #:INTERSECTION5104 (GUARD1 (#:BIND5103 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5077 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5077 'SHORT-FLOAT)) (GUARD1 (#:CONS5078 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5078) (CDR #:CONS5078) (GUARD1 (#:CONS5079 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5079) (CDR #:CONS5079) (GUARD1 (#:IT5080 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5080)))) (GUARD1 (#:INTERSECTION5111 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5111 (GUARD1 (#:CONS5108 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5108) (CAR #:CONS5108) (GUARD1 (#:IT5112 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5112 'SHORT-FLOAT)) (CDR #:CONS5108) (GUARD1 (#:IT5113 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5113)) #:INTERSECTION5111 (GUARD1 (#:BIND5109 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5111 (GUARD1 (#:BIND5110 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6064 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6065 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5083 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5083)) (LET ((#:CONS5081 #:INTERSECTION5083)) (DECLARE (IGNORABLE #:CONS5081)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5081) (LOCALLY (DECLARE (TYPE CONS #:CONS5081)) (LET ((#:IT5084 (CAR #:CONS5081))) (DECLARE (IGNORABLE #:IT5084)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5084 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT5084)) (LET ((#:CONS5085 (CDR #:CONS5081))) (DECLARE (IGNORABLE #:CONS5085)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5085) (LOCALLY (DECLARE (TYPE CONS #:CONS5085)) (LET ((#:IT5086 (CDR #:CONS5085))) (DECLARE (IGNORABLE #:IT5086)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5086) (LOCALLY (DECLARE (TYPE NULL #:IT5086)) (LET ((#:BIND5082 #:INTERSECTION5083)) (DECLARE (IGNORABLE #:BIND5082)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:CONS5097 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5097) (CAR #:CONS5097) (GUARD1 (#:IT5098 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5098 'SHORT-FLOAT)) (CDR #:CONS5097) (GUARD1 (#:CONS5099 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5099) (CDR #:CONS5099) (GUARD1 (#:CONS5100 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5100) (CDR #:CONS5100) (GUARD1 (#:IT5101 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5101))))) (MATCH1 NIL ((GUARD1 #:IT6066 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6067 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6068 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5083 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5083)) (LET ((#:CONS5081 #:INTERSECTION5083)) (DECLARE (IGNORABLE #:CONS5081)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5081) (LOCALLY (DECLARE (TYPE CONS #:CONS5081)) (LET ((#:IT5084 (CAR #:CONS5081))) (DECLARE (IGNORABLE #:IT5084)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5084 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT5084)) (LET ((#:CONS5085 (CDR #:CONS5081))) (DECLARE (IGNORABLE #:CONS5085)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5085) (LOCALLY (DECLARE (TYPE CONS #:CONS5085)) (LET ((#:IT5086 (CDR #:CONS5085))) (DECLARE (IGNORABLE #:IT5086)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5086) (LOCALLY (DECLARE (TYPE NULL #:IT5086)) (LET ((#:BIND5082 #:INTERSECTION5083)) (DECLARE (IGNORABLE #:BIND5082)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5104 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5104 (GUARD1 (#:CONS5102 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5102) (CAR #:CONS5102) (GUARD1 (#:IT5105 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5105 'SHORT-FLOAT)) (CDR #:CONS5102) (GUARD1 (#:CONS5106 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5106) (CDR #:CONS5106) (GUARD1 (#:IT5107 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5107))) #:INTERSECTION5104 (GUARD1 (#:BIND5103 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6069 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6070 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6071 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5083 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5083)) (LET ((#:CONS5081 #:INTERSECTION5083)) (DECLARE (IGNORABLE #:CONS5081)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5081) (LOCALLY (DECLARE (TYPE CONS #:CONS5081)) (LET ((#:IT5084 (CAR #:CONS5081))) (DECLARE (IGNORABLE #:IT5084)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5084 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT5084)) (LET ((#:CONS5085 (CDR #:CONS5081))) (DECLARE (IGNORABLE #:CONS5085)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5085) (LOCALLY (DECLARE (TYPE CONS #:CONS5085)) (LET ((#:IT5086 (CDR #:CONS5085))) (DECLARE (IGNORABLE #:IT5086)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5086) (LOCALLY (DECLARE (TYPE NULL #:IT5086)) (LET ((#:BIND5082 #:INTERSECTION5083)) (DECLARE (IGNORABLE #:BIND5082)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5111 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5111 (GUARD1 (#:CONS5108 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5108) (CAR #:CONS5108) (GUARD1 (#:IT5112 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5112 'SHORT-FLOAT)) (CDR #:CONS5108) (GUARD1 (#:IT5113 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5113)) #:INTERSECTION5111 (GUARD1 (#:BIND5109 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5111 (GUARD1 (#:BIND5110 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6072 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6073 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6074 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5090 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5090)) (LET ((#:CONS5087 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:CONS5087)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5087) (LOCALLY (DECLARE (TYPE CONS #:CONS5087)) (LET ((#:IT5091 (CAR #:CONS5087))) (DECLARE (IGNORABLE #:IT5091)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5091 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT5091)) (LET ((#:IT5092 (CDR #:CONS5087))) (DECLARE (IGNORABLE #:IT5092)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5092) (LOCALLY (DECLARE (TYPE NULL #:IT5092)) (LET ((#:BIND5088 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:BIND5088)) (LET ((#:BIND5089 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:BIND5089)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:CONS5097 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5097) (CAR #:CONS5097) (GUARD1 (#:IT5098 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5098 'SHORT-FLOAT)) (CDR #:CONS5097) (GUARD1 (#:CONS5099 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5099) (CDR #:CONS5099) (GUARD1 (#:CONS5100 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5100) (CDR #:CONS5100) (GUARD1 (#:IT5101 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5101))))) (MATCH1 NIL ((GUARD1 #:IT6075 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6076 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6077 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5090 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5090)) (LET ((#:CONS5087 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:CONS5087)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5087) (LOCALLY (DECLARE (TYPE CONS #:CONS5087)) (LET ((#:IT5091 (CAR #:CONS5087))) (DECLARE (IGNORABLE #:IT5091)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5091 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT5091)) (LET ((#:IT5092 (CDR #:CONS5087))) (DECLARE (IGNORABLE #:IT5092)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5092) (LOCALLY (DECLARE (TYPE NULL #:IT5092)) (LET ((#:BIND5088 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:BIND5088)) (LET ((#:BIND5089 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:BIND5089)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5104 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5104 (GUARD1 (#:CONS5102 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5102) (CAR #:CONS5102) (GUARD1 (#:IT5105 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5105 'SHORT-FLOAT)) (CDR #:CONS5102) (GUARD1 (#:CONS5106 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5106) (CDR #:CONS5106) (GUARD1 (#:IT5107 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5107))) #:INTERSECTION5104 (GUARD1 (#:BIND5103 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6078 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6079 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6080 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5090 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5090)) (LET ((#:CONS5087 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:CONS5087)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5087) (LOCALLY (DECLARE (TYPE CONS #:CONS5087)) (LET ((#:IT5091 (CAR #:CONS5087))) (DECLARE (IGNORABLE #:IT5091)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5091 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT5091)) (LET ((#:IT5092 (CDR #:CONS5087))) (DECLARE (IGNORABLE #:IT5092)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5092) (LOCALLY (DECLARE (TYPE NULL #:IT5092)) (LET ((#:BIND5088 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:BIND5088)) (LET ((#:BIND5089 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:BIND5089)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5111 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5111 (GUARD1 (#:CONS5108 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5108) (CAR #:CONS5108) (GUARD1 (#:IT5112 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5112 'SHORT-FLOAT)) (CDR #:CONS5108) (GUARD1 (#:IT5113 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5113)) #:INTERSECTION5111 (GUARD1 (#:BIND5109 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5111 (GUARD1 (#:BIND5110 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6081 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6082 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6083 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5117 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5117)) (LET ((#:IT5114 #:INTERSECTION5117)) (DECLARE (IGNORABLE #:IT5114)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5114 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5114)) (LET ((#:BIND5115 #:INTERSECTION5117)) (DECLARE (IGNORABLE #:BIND5115)) (LET ((#:BIND5116 #:INTERSECTION5117)) (DECLARE (IGNORABLE #:BIND5116)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5138 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5138 (GUARD1 (#:IT5137 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5137 'FLOAT) #:INTERSECTION5138 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5138 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5140 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5140 (GUARD1 (#:IT5139 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5139 'SHORT-FLOAT) #:INTERSECTION5140 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5140 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5142 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5142 (GUARD1 (#:IT5141 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5141 'SINGLE-FLOAT) #:INTERSECTION5142 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5142 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5144 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5144 (GUARD1 (#:IT5143 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5143 'DOUBLE-FLOAT) #:INTERSECTION5144 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5144 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5146 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5146 (GUARD1 (#:IT5145 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5145 'LONG-FLOAT) #:INTERSECTION5146 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5146 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6084 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6085 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6086 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5117 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5117)) (LET ((#:IT5114 #:INTERSECTION5117)) (DECLARE (IGNORABLE #:IT5114)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5114 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5114)) (LET ((#:BIND5115 #:INTERSECTION5117)) (DECLARE (IGNORABLE #:BIND5115)) (LET ((#:BIND5116 #:INTERSECTION5117)) (DECLARE (IGNORABLE #:BIND5116)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS5147 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5147) (CAR #:CONS5147) (OR1 (GUARD1 (#:IT5148 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5148 'FLOAT)) (GUARD1 (#:IT5149 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5149 'SHORT-FLOAT)) (GUARD1 (#:IT5150 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5150 'SINGLE-FLOAT)) (GUARD1 (#:IT5151 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5151 'DOUBLE-FLOAT)) (GUARD1 (#:IT5152 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5152 'LONG-FLOAT))) (CDR #:CONS5147) (GUARD1 (#:CONS5153 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5153) (CDR #:CONS5153) (GUARD1 (#:CONS5154 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5154) (CDR #:CONS5154) (GUARD1 (#:IT5155 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5155))))) (GUARD1 (#:INTERSECTION5158 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5158 (GUARD1 (#:CONS5156 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5156) (CAR #:CONS5156) (OR1 (GUARD1 (#:IT5159 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5159 'FLOAT)) (GUARD1 (#:IT5160 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5160 'SHORT-FLOAT)) (GUARD1 (#:IT5161 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5161 'SINGLE-FLOAT)) (GUARD1 (#:IT5162 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5162 'DOUBLE-FLOAT)) (GUARD1 (#:IT5163 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5163 'LONG-FLOAT))) (CDR #:CONS5156) (GUARD1 (#:CONS5164 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5164) (CDR #:CONS5164) (GUARD1 (#:IT5165 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5165))) #:INTERSECTION5158 (GUARD1 (#:BIND5157 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5169 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5169 (GUARD1 (#:CONS5166 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5166) (CAR #:CONS5166) (OR1 (GUARD1 (#:IT5170 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5170 'FLOAT)) (GUARD1 (#:IT5171 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5171 'SHORT-FLOAT)) (GUARD1 (#:IT5172 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5172 'SINGLE-FLOAT)) (GUARD1 (#:IT5173 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5173 'DOUBLE-FLOAT)) (GUARD1 (#:IT5174 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5174 'LONG-FLOAT))) (CDR #:CONS5166) (GUARD1 (#:IT5175 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5175)) #:INTERSECTION5169 (GUARD1 (#:BIND5167 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5169 (GUARD1 (#:BIND5168 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6087 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6088 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6089 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5568 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5568)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5568) (LOCALLY (DECLARE (TYPE CONS #:FUSION5568)) (LET ((#:CONS5118 #:FUSION5568)) (DECLARE (IGNORABLE #:CONS5118)) (LOCALLY (DECLARE (TYPE CONS #:CONS5118)) (LET ((#:GEN5569 (CAR #:FUSION5568))) (DECLARE (IGNORABLE #:GEN5569)) (LET ((#:GEN5570 (CDR #:FUSION5568))) (DECLARE (IGNORABLE #:GEN5570)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5571 T) (MATCH1 NIL ((GUARD1 #:IT6090 T) (MATCH2*+ (#:GEN5569 #:GEN5570 #:PAT5571) (T T T) (((GUARD1 (#:IT5119 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5119 'FLOAT)) (GUARD1 (#:CONS5120 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5120) (CDR #:CONS5120) (GUARD1 (#:CONS5121 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5121) (CDR #:CONS5121) (GUARD1 (#:IT5122 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5122)))) (GUARD1 (#:INTERSECTION5138 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5138 (GUARD1 (#:IT5137 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5137 'FLOAT) #:INTERSECTION5138 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5138 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5119 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5119 'FLOAT)) (GUARD1 (#:CONS5120 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5120) (CDR #:CONS5120) (GUARD1 (#:CONS5121 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5121) (CDR #:CONS5121) (GUARD1 (#:IT5122 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5122)))) (GUARD1 (#:INTERSECTION5140 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5140 (GUARD1 (#:IT5139 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5139 'SHORT-FLOAT) #:INTERSECTION5140 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5140 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5119 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5119 'FLOAT)) (GUARD1 (#:CONS5120 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5120) (CDR #:CONS5120) (GUARD1 (#:CONS5121 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5121) (CDR #:CONS5121) (GUARD1 (#:IT5122 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5122)))) (GUARD1 (#:INTERSECTION5142 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5142 (GUARD1 (#:IT5141 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5141 'SINGLE-FLOAT) #:INTERSECTION5142 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5142 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5119 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5119 'FLOAT)) (GUARD1 (#:CONS5120 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5120) (CDR #:CONS5120) (GUARD1 (#:CONS5121 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5121) (CDR #:CONS5121) (GUARD1 (#:IT5122 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5122)))) (GUARD1 (#:INTERSECTION5144 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5144 (GUARD1 (#:IT5143 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5143 'DOUBLE-FLOAT) #:INTERSECTION5144 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5144 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5119 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5119 'FLOAT)) (GUARD1 (#:CONS5120 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5120) (CDR #:CONS5120) (GUARD1 (#:CONS5121 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5121) (CDR #:CONS5121) (GUARD1 (#:IT5122 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5122)))) (GUARD1 (#:INTERSECTION5146 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5146 (GUARD1 (#:IT5145 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5145 'LONG-FLOAT) #:INTERSECTION5146 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5146 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6091 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6092 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5125 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5125)) (LET ((#:CONS5123 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:CONS5123)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5123) (LOCALLY (DECLARE (TYPE CONS #:CONS5123)) (LET ((#:IT5126 (CAR #:CONS5123))) (DECLARE (IGNORABLE #:IT5126)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5126 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5126)) (LET ((#:CONS5127 (CDR #:CONS5123))) (DECLARE (IGNORABLE #:CONS5127)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5127) (LOCALLY (DECLARE (TYPE CONS #:CONS5127)) (LET ((#:IT5128 (CDR #:CONS5127))) (DECLARE (IGNORABLE #:IT5128)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5128) (LOCALLY (DECLARE (TYPE NULL #:IT5128)) (LET ((#:BIND5124 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:BIND5124)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5138 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5138 (GUARD1 (#:IT5137 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5137 'FLOAT) #:INTERSECTION5138 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5138 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6093 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6094 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6095 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5125 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5125)) (LET ((#:CONS5123 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:CONS5123)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5123) (LOCALLY (DECLARE (TYPE CONS #:CONS5123)) (LET ((#:IT5126 (CAR #:CONS5123))) (DECLARE (IGNORABLE #:IT5126)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5126 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5126)) (LET ((#:CONS5127 (CDR #:CONS5123))) (DECLARE (IGNORABLE #:CONS5127)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5127) (LOCALLY (DECLARE (TYPE CONS #:CONS5127)) (LET ((#:IT5128 (CDR #:CONS5127))) (DECLARE (IGNORABLE #:IT5128)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5128) (LOCALLY (DECLARE (TYPE NULL #:IT5128)) (LET ((#:BIND5124 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:BIND5124)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5140 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5140 (GUARD1 (#:IT5139 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5139 'SHORT-FLOAT) #:INTERSECTION5140 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5140 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6096 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6097 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6098 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5125 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5125)) (LET ((#:CONS5123 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:CONS5123)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5123) (LOCALLY (DECLARE (TYPE CONS #:CONS5123)) (LET ((#:IT5126 (CAR #:CONS5123))) (DECLARE (IGNORABLE #:IT5126)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5126 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5126)) (LET ((#:CONS5127 (CDR #:CONS5123))) (DECLARE (IGNORABLE #:CONS5127)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5127) (LOCALLY (DECLARE (TYPE CONS #:CONS5127)) (LET ((#:IT5128 (CDR #:CONS5127))) (DECLARE (IGNORABLE #:IT5128)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5128) (LOCALLY (DECLARE (TYPE NULL #:IT5128)) (LET ((#:BIND5124 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:BIND5124)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5142 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5142 (GUARD1 (#:IT5141 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5141 'SINGLE-FLOAT) #:INTERSECTION5142 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5142 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6099 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6100 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6101 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5125 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5125)) (LET ((#:CONS5123 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:CONS5123)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5123) (LOCALLY (DECLARE (TYPE CONS #:CONS5123)) (LET ((#:IT5126 (CAR #:CONS5123))) (DECLARE (IGNORABLE #:IT5126)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5126 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5126)) (LET ((#:CONS5127 (CDR #:CONS5123))) (DECLARE (IGNORABLE #:CONS5127)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5127) (LOCALLY (DECLARE (TYPE CONS #:CONS5127)) (LET ((#:IT5128 (CDR #:CONS5127))) (DECLARE (IGNORABLE #:IT5128)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5128) (LOCALLY (DECLARE (TYPE NULL #:IT5128)) (LET ((#:BIND5124 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:BIND5124)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5144 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5144 (GUARD1 (#:IT5143 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5143 'DOUBLE-FLOAT) #:INTERSECTION5144 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5144 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6102 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6103 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6104 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5125 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5125)) (LET ((#:CONS5123 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:CONS5123)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5123) (LOCALLY (DECLARE (TYPE CONS #:CONS5123)) (LET ((#:IT5126 (CAR #:CONS5123))) (DECLARE (IGNORABLE #:IT5126)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5126 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5126)) (LET ((#:CONS5127 (CDR #:CONS5123))) (DECLARE (IGNORABLE #:CONS5127)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5127) (LOCALLY (DECLARE (TYPE CONS #:CONS5127)) (LET ((#:IT5128 (CDR #:CONS5127))) (DECLARE (IGNORABLE #:IT5128)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5128) (LOCALLY (DECLARE (TYPE NULL #:IT5128)) (LET ((#:BIND5124 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:BIND5124)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5146 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5146 (GUARD1 (#:IT5145 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5145 'LONG-FLOAT) #:INTERSECTION5146 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5146 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6105 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6106 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6107 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5132 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5132)) (LET ((#:CONS5129 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:CONS5129)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5129) (LOCALLY (DECLARE (TYPE CONS #:CONS5129)) (LET ((#:IT5133 (CAR #:CONS5129))) (DECLARE (IGNORABLE #:IT5133)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5133 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5133)) (LET ((#:IT5134 (CDR #:CONS5129))) (DECLARE (IGNORABLE #:IT5134)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5134) (LOCALLY (DECLARE (TYPE NULL #:IT5134)) (LET ((#:BIND5130 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5130)) (LET ((#:BIND5131 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5131)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5138 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5138 (GUARD1 (#:IT5137 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5137 'FLOAT) #:INTERSECTION5138 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5138 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6108 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6109 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6110 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5132 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5132)) (LET ((#:CONS5129 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:CONS5129)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5129) (LOCALLY (DECLARE (TYPE CONS #:CONS5129)) (LET ((#:IT5133 (CAR #:CONS5129))) (DECLARE (IGNORABLE #:IT5133)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5133 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5133)) (LET ((#:IT5134 (CDR #:CONS5129))) (DECLARE (IGNORABLE #:IT5134)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5134) (LOCALLY (DECLARE (TYPE NULL #:IT5134)) (LET ((#:BIND5130 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5130)) (LET ((#:BIND5131 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5131)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5140 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5140 (GUARD1 (#:IT5139 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5139 'SHORT-FLOAT) #:INTERSECTION5140 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5140 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6111 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6112 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6113 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5132 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5132)) (LET ((#:CONS5129 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:CONS5129)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5129) (LOCALLY (DECLARE (TYPE CONS #:CONS5129)) (LET ((#:IT5133 (CAR #:CONS5129))) (DECLARE (IGNORABLE #:IT5133)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5133 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5133)) (LET ((#:IT5134 (CDR #:CONS5129))) (DECLARE (IGNORABLE #:IT5134)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5134) (LOCALLY (DECLARE (TYPE NULL #:IT5134)) (LET ((#:BIND5130 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5130)) (LET ((#:BIND5131 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5131)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5142 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5142 (GUARD1 (#:IT5141 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5141 'SINGLE-FLOAT) #:INTERSECTION5142 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5142 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6114 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6115 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6116 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5132 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5132)) (LET ((#:CONS5129 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:CONS5129)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5129) (LOCALLY (DECLARE (TYPE CONS #:CONS5129)) (LET ((#:IT5133 (CAR #:CONS5129))) (DECLARE (IGNORABLE #:IT5133)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5133 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5133)) (LET ((#:IT5134 (CDR #:CONS5129))) (DECLARE (IGNORABLE #:IT5134)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5134) (LOCALLY (DECLARE (TYPE NULL #:IT5134)) (LET ((#:BIND5130 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5130)) (LET ((#:BIND5131 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5131)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5144 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5144 (GUARD1 (#:IT5143 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5143 'DOUBLE-FLOAT) #:INTERSECTION5144 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5144 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6117 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6118 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6119 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5132 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5132)) (LET ((#:CONS5129 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:CONS5129)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5129) (LOCALLY (DECLARE (TYPE CONS #:CONS5129)) (LET ((#:IT5133 (CAR #:CONS5129))) (DECLARE (IGNORABLE #:IT5133)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5133 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5133)) (LET ((#:IT5134 (CDR #:CONS5129))) (DECLARE (IGNORABLE #:IT5134)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5134) (LOCALLY (DECLARE (TYPE NULL #:IT5134)) (LET ((#:BIND5130 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5130)) (LET ((#:BIND5131 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5131)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5146 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5146 (GUARD1 (#:IT5145 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5145 'LONG-FLOAT) #:INTERSECTION5146 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5146 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6120 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6121 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6122 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5575 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5575)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5575) (LOCALLY (DECLARE (TYPE CONS #:FUSION5575)) (LET ((#:CONS5118 #:FUSION5575)) (DECLARE (IGNORABLE #:CONS5118)) (LOCALLY (DECLARE (TYPE CONS #:CONS5118)) (LET ((#:GEN5576 (CAR #:FUSION5575))) (DECLARE (IGNORABLE #:GEN5576)) (LET ((#:GEN5577 (CDR #:FUSION5575))) (DECLARE (IGNORABLE #:GEN5577)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5578 T) (MATCH1 NIL ((GUARD1 #:IT6123 T) (MATCH2*+ (#:GEN5576 #:GEN5577 #:PAT5578) (T T T) (((GUARD1 (#:IT5119 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5119 'FLOAT)) (GUARD1 (#:CONS5120 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5120) (CDR #:CONS5120) (GUARD1 (#:CONS5121 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5121) (CDR #:CONS5121) (GUARD1 (#:IT5122 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5122)))) (GUARD1 (#:CONS5147 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5147) (CAR #:CONS5147) (OR1 (GUARD1 (#:IT5148 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5148 'FLOAT)) (GUARD1 (#:IT5149 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5149 'SHORT-FLOAT)) (GUARD1 (#:IT5150 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5150 'SINGLE-FLOAT)) (GUARD1 (#:IT5151 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5151 'DOUBLE-FLOAT)) (GUARD1 (#:IT5152 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5152 'LONG-FLOAT))) (CDR #:CONS5147) (GUARD1 (#:CONS5153 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5153) (CDR #:CONS5153) (GUARD1 (#:CONS5154 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5154) (CDR #:CONS5154) (GUARD1 (#:IT5155 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5155)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5119 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5119 'FLOAT)) (GUARD1 (#:CONS5120 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5120) (CDR #:CONS5120) (GUARD1 (#:CONS5121 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5121) (CDR #:CONS5121) (GUARD1 (#:IT5122 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5122)))) (GUARD1 (#:INTERSECTION5158 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5158 (GUARD1 (#:CONS5156 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5156) (CAR #:CONS5156) (OR1 (GUARD1 (#:IT5159 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5159 'FLOAT)) (GUARD1 (#:IT5160 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5160 'SHORT-FLOAT)) (GUARD1 (#:IT5161 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5161 'SINGLE-FLOAT)) (GUARD1 (#:IT5162 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5162 'DOUBLE-FLOAT)) (GUARD1 (#:IT5163 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5163 'LONG-FLOAT))) (CDR #:CONS5156) (GUARD1 (#:CONS5164 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5164) (CDR #:CONS5164) (GUARD1 (#:IT5165 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5165))) #:INTERSECTION5158 (GUARD1 (#:BIND5157 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5119 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5119 'FLOAT)) (GUARD1 (#:CONS5120 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5120) (CDR #:CONS5120) (GUARD1 (#:CONS5121 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5121) (CDR #:CONS5121) (GUARD1 (#:IT5122 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5122)))) (GUARD1 (#:INTERSECTION5169 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5169 (GUARD1 (#:CONS5166 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5166) (CAR #:CONS5166) (OR1 (GUARD1 (#:IT5170 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5170 'FLOAT)) (GUARD1 (#:IT5171 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5171 'SHORT-FLOAT)) (GUARD1 (#:IT5172 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5172 'SINGLE-FLOAT)) (GUARD1 (#:IT5173 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5173 'DOUBLE-FLOAT)) (GUARD1 (#:IT5174 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5174 'LONG-FLOAT))) (CDR #:CONS5166) (GUARD1 (#:IT5175 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5175)) #:INTERSECTION5169 (GUARD1 (#:BIND5167 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5169 (GUARD1 (#:BIND5168 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6124 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6125 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5125 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5125)) (LET ((#:CONS5123 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:CONS5123)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5123) (LOCALLY (DECLARE (TYPE CONS #:CONS5123)) (LET ((#:IT5126 (CAR #:CONS5123))) (DECLARE (IGNORABLE #:IT5126)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5126 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5126)) (LET ((#:CONS5127 (CDR #:CONS5123))) (DECLARE (IGNORABLE #:CONS5127)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5127) (LOCALLY (DECLARE (TYPE CONS #:CONS5127)) (LET ((#:IT5128 (CDR #:CONS5127))) (DECLARE (IGNORABLE #:IT5128)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5128) (LOCALLY (DECLARE (TYPE NULL #:IT5128)) (LET ((#:BIND5124 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:BIND5124)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:CONS5147 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5147) (CAR #:CONS5147) (OR1 (GUARD1 (#:IT5148 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5148 'FLOAT)) (GUARD1 (#:IT5149 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5149 'SHORT-FLOAT)) (GUARD1 (#:IT5150 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5150 'SINGLE-FLOAT)) (GUARD1 (#:IT5151 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5151 'DOUBLE-FLOAT)) (GUARD1 (#:IT5152 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5152 'LONG-FLOAT))) (CDR #:CONS5147) (GUARD1 (#:CONS5153 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5153) (CDR #:CONS5153) (GUARD1 (#:CONS5154 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5154) (CDR #:CONS5154) (GUARD1 (#:IT5155 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5155))))) (MATCH1 NIL ((GUARD1 #:IT6126 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6127 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6128 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5125 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5125)) (LET ((#:CONS5123 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:CONS5123)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5123) (LOCALLY (DECLARE (TYPE CONS #:CONS5123)) (LET ((#:IT5126 (CAR #:CONS5123))) (DECLARE (IGNORABLE #:IT5126)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5126 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5126)) (LET ((#:CONS5127 (CDR #:CONS5123))) (DECLARE (IGNORABLE #:CONS5127)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5127) (LOCALLY (DECLARE (TYPE CONS #:CONS5127)) (LET ((#:IT5128 (CDR #:CONS5127))) (DECLARE (IGNORABLE #:IT5128)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5128) (LOCALLY (DECLARE (TYPE NULL #:IT5128)) (LET ((#:BIND5124 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:BIND5124)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5158 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5158 (GUARD1 (#:CONS5156 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5156) (CAR #:CONS5156) (OR1 (GUARD1 (#:IT5159 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5159 'FLOAT)) (GUARD1 (#:IT5160 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5160 'SHORT-FLOAT)) (GUARD1 (#:IT5161 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5161 'SINGLE-FLOAT)) (GUARD1 (#:IT5162 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5162 'DOUBLE-FLOAT)) (GUARD1 (#:IT5163 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5163 'LONG-FLOAT))) (CDR #:CONS5156) (GUARD1 (#:CONS5164 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5164) (CDR #:CONS5164) (GUARD1 (#:IT5165 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5165))) #:INTERSECTION5158 (GUARD1 (#:BIND5157 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6129 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6130 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6131 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5125 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5125)) (LET ((#:CONS5123 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:CONS5123)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5123) (LOCALLY (DECLARE (TYPE CONS #:CONS5123)) (LET ((#:IT5126 (CAR #:CONS5123))) (DECLARE (IGNORABLE #:IT5126)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5126 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5126)) (LET ((#:CONS5127 (CDR #:CONS5123))) (DECLARE (IGNORABLE #:CONS5127)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5127) (LOCALLY (DECLARE (TYPE CONS #:CONS5127)) (LET ((#:IT5128 (CDR #:CONS5127))) (DECLARE (IGNORABLE #:IT5128)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5128) (LOCALLY (DECLARE (TYPE NULL #:IT5128)) (LET ((#:BIND5124 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:BIND5124)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5169 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5169 (GUARD1 (#:CONS5166 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5166) (CAR #:CONS5166) (OR1 (GUARD1 (#:IT5170 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5170 'FLOAT)) (GUARD1 (#:IT5171 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5171 'SHORT-FLOAT)) (GUARD1 (#:IT5172 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5172 'SINGLE-FLOAT)) (GUARD1 (#:IT5173 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5173 'DOUBLE-FLOAT)) (GUARD1 (#:IT5174 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5174 'LONG-FLOAT))) (CDR #:CONS5166) (GUARD1 (#:IT5175 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5175)) #:INTERSECTION5169 (GUARD1 (#:BIND5167 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5169 (GUARD1 (#:BIND5168 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6132 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6133 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6134 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5132 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5132)) (LET ((#:CONS5129 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:CONS5129)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5129) (LOCALLY (DECLARE (TYPE CONS #:CONS5129)) (LET ((#:IT5133 (CAR #:CONS5129))) (DECLARE (IGNORABLE #:IT5133)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5133 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5133)) (LET ((#:IT5134 (CDR #:CONS5129))) (DECLARE (IGNORABLE #:IT5134)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5134) (LOCALLY (DECLARE (TYPE NULL #:IT5134)) (LET ((#:BIND5130 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5130)) (LET ((#:BIND5131 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5131)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:CONS5147 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5147) (CAR #:CONS5147) (OR1 (GUARD1 (#:IT5148 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5148 'FLOAT)) (GUARD1 (#:IT5149 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5149 'SHORT-FLOAT)) (GUARD1 (#:IT5150 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5150 'SINGLE-FLOAT)) (GUARD1 (#:IT5151 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5151 'DOUBLE-FLOAT)) (GUARD1 (#:IT5152 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5152 'LONG-FLOAT))) (CDR #:CONS5147) (GUARD1 (#:CONS5153 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5153) (CDR #:CONS5153) (GUARD1 (#:CONS5154 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5154) (CDR #:CONS5154) (GUARD1 (#:IT5155 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5155))))) (MATCH1 NIL ((GUARD1 #:IT6135 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6136 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6137 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5132 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5132)) (LET ((#:CONS5129 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:CONS5129)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5129) (LOCALLY (DECLARE (TYPE CONS #:CONS5129)) (LET ((#:IT5133 (CAR #:CONS5129))) (DECLARE (IGNORABLE #:IT5133)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5133 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5133)) (LET ((#:IT5134 (CDR #:CONS5129))) (DECLARE (IGNORABLE #:IT5134)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5134) (LOCALLY (DECLARE (TYPE NULL #:IT5134)) (LET ((#:BIND5130 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5130)) (LET ((#:BIND5131 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5131)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5158 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5158 (GUARD1 (#:CONS5156 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5156) (CAR #:CONS5156) (OR1 (GUARD1 (#:IT5159 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5159 'FLOAT)) (GUARD1 (#:IT5160 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5160 'SHORT-FLOAT)) (GUARD1 (#:IT5161 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5161 'SINGLE-FLOAT)) (GUARD1 (#:IT5162 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5162 'DOUBLE-FLOAT)) (GUARD1 (#:IT5163 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5163 'LONG-FLOAT))) (CDR #:CONS5156) (GUARD1 (#:CONS5164 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5164) (CDR #:CONS5164) (GUARD1 (#:IT5165 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5165))) #:INTERSECTION5158 (GUARD1 (#:BIND5157 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6138 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6139 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6140 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5132 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5132)) (LET ((#:CONS5129 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:CONS5129)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5129) (LOCALLY (DECLARE (TYPE CONS #:CONS5129)) (LET ((#:IT5133 (CAR #:CONS5129))) (DECLARE (IGNORABLE #:IT5133)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5133 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5133)) (LET ((#:IT5134 (CDR #:CONS5129))) (DECLARE (IGNORABLE #:IT5134)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5134) (LOCALLY (DECLARE (TYPE NULL #:IT5134)) (LET ((#:BIND5130 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5130)) (LET ((#:BIND5131 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5131)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5169 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5169 (GUARD1 (#:CONS5166 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5166) (CAR #:CONS5166) (OR1 (GUARD1 (#:IT5170 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5170 'FLOAT)) (GUARD1 (#:IT5171 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5171 'SHORT-FLOAT)) (GUARD1 (#:IT5172 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5172 'SINGLE-FLOAT)) (GUARD1 (#:IT5173 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5173 'DOUBLE-FLOAT)) (GUARD1 (#:IT5174 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5174 'LONG-FLOAT))) (CDR #:CONS5166) (GUARD1 (#:IT5175 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5175)) #:INTERSECTION5169 (GUARD1 (#:BIND5167 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5169 (GUARD1 (#:BIND5168 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6141 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6142 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6143 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT5176 #:WHAT16458)) (DECLARE (IGNORABLE #:IT5176)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5176 'RATIO) (LOCALLY (DECLARE (TYPE (EQL RATIO) #:IT5176)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:IT5180 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5180 'RATIO)) (MATCH1 NIL ((GUARD1 #:IT6144 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6145 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6146 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT5176 #:WHAT16458)) (DECLARE (IGNORABLE #:IT5176)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5176 'RATIO) (LOCALLY (DECLARE (TYPE (EQL RATIO) #:IT5176)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS5181 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5181) (CAR #:CONS5181) (GUARD1 (#:IT5182 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5182 'RATIO)) (CDR #:CONS5181) (GUARD1 (#:IT5183 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5183)))) (MATCH1 NIL ((GUARD1 #:IT6147 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6148 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6149 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5582 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5582)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5582) (LOCALLY (DECLARE (TYPE CONS #:FUSION5582)) (LET ((#:CONS5177 #:FUSION5582)) (DECLARE (IGNORABLE #:CONS5177)) (LOCALLY (DECLARE (TYPE CONS #:CONS5177)) (LET ((#:GEN5583 (CAR #:FUSION5582))) (DECLARE (IGNORABLE #:GEN5583)) (LET ((#:GEN5584 (CDR #:FUSION5582))) (DECLARE (IGNORABLE #:GEN5584)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5585 T) (MATCH1 NIL ((GUARD1 #:IT6150 T) (MATCH2*+ (#:GEN5583 #:GEN5584 #:PAT5585) (T T T) (((GUARD1 (#:IT5178 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5178 'RATIO)) (GUARD1 (#:IT5179 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5179)) (GUARD1 (#:IT5180 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5180 'RATIO))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5178 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5178 'RATIO)) (GUARD1 (#:IT5179 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5179)) (GUARD1 (#:CONS5181 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5181) (CAR #:CONS5181) (GUARD1 (#:IT5182 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5182 'RATIO)) (CDR #:CONS5181) (GUARD1 (#:IT5183 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5183)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6151 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6152 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5187 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5187)) (LET ((#:IT5184 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:IT5184)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5184 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5184)) (LET ((#:BIND5185 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5185)) (LET ((#:BIND5186 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5186)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5208 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5208 (GUARD1 (#:CONS5206 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5206) (CAR #:CONS5206) (GUARD1 (#:IT5209 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT5209 'MOD)) (CDR #:CONS5206) (GUARD1 (#:CONS5210 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5210) (CAR #:CONS5210) (GUARD1 (#:N5205 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS5210) (GUARD1 (#:IT5211 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5211))) #:INTERSECTION5208 (GUARD1 (#:BIND5207 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6153 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6154 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6155 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5187 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5187)) (LET ((#:IT5184 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:IT5184)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5184 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5184)) (LET ((#:BIND5185 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5185)) (LET ((#:BIND5186 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5186)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5215 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5215 (GUARD1 (#:IT5212 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT5212 'BIT) #:INTERSECTION5215 (GUARD1 (#:BIND5213 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5215 (GUARD1 (#:BIND5214 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6156 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6157 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6158 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5187 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5187)) (LET ((#:IT5184 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:IT5184)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5184 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5184)) (LET ((#:BIND5185 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5185)) (LET ((#:BIND5186 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5186)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5219 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5219 (GUARD1 (#:CONS5218 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5218) (CAR #:CONS5218) (GUARD1 (#:IT5220 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5220 'UNSIGNED-BYTE)) (CDR #:CONS5218) (GUARD1 (#:CONS5221 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5221) (CAR #:CONS5221) (GUARD1 (#:INTERSECTION5223 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5223 (GUARD1 (#:IT5222 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT5222 'FIXNUM) #:INTERSECTION5223 (GUARD1 (#:N5216 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5221) (GUARD1 (#:IT5224 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5224))) #:INTERSECTION5219 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5226 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5226 (GUARD1 (#:CONS5225 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5225) (CAR #:CONS5225) (GUARD1 (#:IT5227 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5227 'UNSIGNED-BYTE)) (CDR #:CONS5225) (GUARD1 (#:CONS5228 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5228) (CAR #:CONS5228) (GUARD1 (#:INTERSECTION5231 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5231 (GUARD1 (#:IT5229 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT5229 '*) #:INTERSECTION5231 (GUARD1 (#:IT5230 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5228) (GUARD1 (#:IT5232 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5232))) #:INTERSECTION5226 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5236 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5236 (GUARD1 (#:INTERSECTION5235 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5235 (GUARD1 (#:CONS5233 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5233) (CAR #:CONS5233) (GUARD1 (#:IT5237 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5237 'UNSIGNED-BYTE)) (CDR #:CONS5233) (GUARD1 (#:IT5238 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5238)) #:INTERSECTION5235 (GUARD1 (#:BIND5234 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION5236 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6159 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6160 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6161 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5187 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5187)) (LET ((#:IT5184 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:IT5184)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5184 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5184)) (LET ((#:BIND5185 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5185)) (LET ((#:BIND5186 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5186)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5245 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5245 (GUARD1 (#:CONS5240 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5240) (CAR #:CONS5240) (GUARD1 (#:IT5241 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5241 'SIGNED-BYTE)) (CDR #:CONS5240) (GUARD1 (#:CONS5242 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5242) (CAR #:CONS5242) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N5239 'FIXNUM)) (CDR #:CONS5242) (GUARD1 (#:IT5243 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5243))) #:INTERSECTION5245 (GUARD1 (#:LIFT-DUMMY5244 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION5251 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5251 (GUARD1 (#:CONS5246 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5246) (CAR #:CONS5246) (GUARD1 (#:IT5247 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5247 'SIGNED-BYTE)) (CDR #:CONS5246) (GUARD1 (#:CONS5248 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5248) (CAR #:CONS5248) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N5239)) (CDR #:CONS5248) (GUARD1 (#:IT5249 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5249))) #:INTERSECTION5251 (GUARD1 (#:LIFT-DUMMY5250 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION5255 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5255 (GUARD1 (#:CONS5252 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5252) (CAR #:CONS5252) (GUARD1 (#:IT5253 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5253 'SIGNED-BYTE)) (CDR #:CONS5252) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N5239)) #:INTERSECTION5255 (GUARD1 (#:LIFT-DUMMY5254 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION5257 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5257 (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N5239) #:INTERSECTION5257 (GUARD1 (#:LIFT-DUMMY5256 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (MATCH1 NIL ((GUARD1 #:IT6162 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6163 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6164 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5187 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5187)) (LET ((#:IT5184 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:IT5184)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5184 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5184)) (LET ((#:BIND5185 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5185)) (LET ((#:BIND5186 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5186)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5261 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5261 (GUARD1 (#:IT5258 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5258 'BIGNUM) #:INTERSECTION5261 (GUARD1 (#:BIND5259 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5261 (GUARD1 (#:BIND5260 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION5265 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5265 (GUARD1 (#:CONS5262 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5262) (CAR #:CONS5262) (GUARD1 (#:IT5266 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5266 'BIGNUM)) (CDR #:CONS5262) (GUARD1 (#:IT5267 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5267)) #:INTERSECTION5265 (GUARD1 (#:BIND5263 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5265 (GUARD1 (#:BIND5264 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT6165 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6166 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6167 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5187 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5187)) (LET ((#:IT5184 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:IT5184)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5184 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5184)) (LET ((#:BIND5185 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5185)) (LET ((#:BIND5186 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5186)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5271 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5271 (GUARD1 (#:IT5268 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5268 'FIXNUM) #:INTERSECTION5271 (GUARD1 (#:BIND5269 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5271 (GUARD1 (#:BIND5270 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION5275 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5275 (GUARD1 (#:CONS5272 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5272) (CAR #:CONS5272) (GUARD1 (#:IT5276 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5276 'FIXNUM)) (CDR #:CONS5272) (GUARD1 (#:IT5277 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5277)) #:INTERSECTION5275 (GUARD1 (#:BIND5273 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5275 (GUARD1 (#:BIND5274 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT6168 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6169 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6170 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5187 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5187)) (LET ((#:IT5184 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:IT5184)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5184 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5184)) (LET ((#:BIND5185 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5185)) (LET ((#:BIND5186 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5186)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5281 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5281 (GUARD1 (#:IT5278 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5278 'RATIO) #:INTERSECTION5281 (GUARD1 (#:BIND5279 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5281 (GUARD1 (#:BIND5280 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION5285 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5285 (GUARD1 (#:CONS5282 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5282) (CAR #:CONS5282) (GUARD1 (#:IT5286 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5286 'RATIO)) (CDR #:CONS5282) (GUARD1 (#:IT5287 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5287)) #:INTERSECTION5285 (GUARD1 (#:BIND5283 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5285 (GUARD1 (#:BIND5284 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT6171 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6172 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6173 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5187 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5187)) (LET ((#:IT5184 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:IT5184)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5184 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5184)) (LET ((#:BIND5185 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5185)) (LET ((#:BIND5186 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5186)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (OR1 (GUARD1 (#:INTERSECTION5291 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5291 (GUARD1 (#:IT5290 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5290 'INTEGER) #:INTERSECTION5291 (GUARD1 (#:BIND5288 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5291 (GUARD1 (#:BIND5289 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5293 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5293 (GUARD1 (#:IT5292 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5292 'RATIONAL) #:INTERSECTION5293 (GUARD1 (#:BIND5288 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5293 (GUARD1 (#:BIND5289 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (OR1 (GUARD1 (#:CONS5294 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5294) (CAR #:CONS5294) (OR1 (GUARD1 (#:IT5295 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5295 'INTEGER)) (GUARD1 (#:IT5296 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5296 'RATIONAL))) (CDR #:CONS5294) (GUARD1 (#:CONS5297 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5297) (CDR #:CONS5297) (GUARD1 (#:CONS5298 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5298) (CDR #:CONS5298) (GUARD1 (#:IT5299 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5299))))) (GUARD1 (#:INTERSECTION5302 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5302 (GUARD1 (#:CONS5300 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5300) (CAR #:CONS5300) (OR1 (GUARD1 (#:IT5303 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5303 'INTEGER)) (GUARD1 (#:IT5304 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5304 'RATIONAL))) (CDR #:CONS5300) (GUARD1 (#:CONS5305 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5305) (CDR #:CONS5305) (GUARD1 (#:IT5306 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5306))) #:INTERSECTION5302 (GUARD1 (#:BIND5301 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5310 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5310 (GUARD1 (#:CONS5307 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5307) (CAR #:CONS5307) (OR1 (GUARD1 (#:IT5311 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5311 'INTEGER)) (GUARD1 (#:IT5312 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5312 'RATIONAL))) (CDR #:CONS5307) (GUARD1 (#:IT5313 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5313)) #:INTERSECTION5310 (GUARD1 (#:BIND5308 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5310 (GUARD1 (#:BIND5309 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT6174 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6175 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6176 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS5188 #:WHAT16458)) (DECLARE (IGNORABLE #:CONS5188)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5188) (LOCALLY (DECLARE (TYPE CONS #:CONS5188)) (LET ((#:IT5189 (CAR #:CONS5188))) (DECLARE (IGNORABLE #:IT5189)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5189 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5189)) (LET ((#:CONS5190 (CDR #:CONS5188))) (DECLARE (IGNORABLE #:CONS5190)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5190) (LOCALLY (DECLARE (TYPE CONS #:CONS5190)) (LET ((#:CONS5191 (CDR #:CONS5190))) (DECLARE (IGNORABLE #:CONS5191)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5191) (LOCALLY (DECLARE (TYPE CONS #:CONS5191)) (LET ((#:IT5192 (CDR #:CONS5191))) (DECLARE (IGNORABLE #:IT5192)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5192) (LOCALLY (DECLARE (TYPE NULL #:IT5192)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5208 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5208 (GUARD1 (#:CONS5206 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5206) (CAR #:CONS5206) (GUARD1 (#:IT5209 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT5209 'MOD)) (CDR #:CONS5206) (GUARD1 (#:CONS5210 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5210) (CAR #:CONS5210) (GUARD1 (#:N5205 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS5210) (GUARD1 (#:IT5211 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5211))) #:INTERSECTION5208 (GUARD1 (#:BIND5207 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6177 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6178 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6179 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5208 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5208 (GUARD1 (#:CONS5206 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5206) (CAR #:CONS5206) (GUARD1 (#:IT5209 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT5209 'MOD)) (CDR #:CONS5206) (GUARD1 (#:CONS5210 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5210) (CAR #:CONS5210) (GUARD1 (#:N5205 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS5210) (GUARD1 (#:IT5211 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5211))) #:INTERSECTION5208 (GUARD1 (#:BIND5207 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6180 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6181 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6182 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5208 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5208 (GUARD1 (#:CONS5206 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5206) (CAR #:CONS5206) (GUARD1 (#:IT5209 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT5209 'MOD)) (CDR #:CONS5206) (GUARD1 (#:CONS5210 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5210) (CAR #:CONS5210) (GUARD1 (#:N5205 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS5210) (GUARD1 (#:IT5211 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5211))) #:INTERSECTION5208 (GUARD1 (#:BIND5207 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6183 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6184 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6185 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS5188 #:WHAT16458)) (DECLARE (IGNORABLE #:CONS5188)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5188) (LOCALLY (DECLARE (TYPE CONS #:CONS5188)) (LET ((#:IT5189 (CAR #:CONS5188))) (DECLARE (IGNORABLE #:IT5189)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5189 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5189)) (LET ((#:CONS5190 (CDR #:CONS5188))) (DECLARE (IGNORABLE #:CONS5190)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5190) (LOCALLY (DECLARE (TYPE CONS #:CONS5190)) (LET ((#:CONS5191 (CDR #:CONS5190))) (DECLARE (IGNORABLE #:CONS5191)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5191) (LOCALLY (DECLARE (TYPE CONS #:CONS5191)) (LET ((#:IT5192 (CDR #:CONS5191))) (DECLARE (IGNORABLE #:IT5192)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5192) (LOCALLY (DECLARE (TYPE NULL #:IT5192)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5215 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5215 (GUARD1 (#:IT5212 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT5212 'BIT) #:INTERSECTION5215 (GUARD1 (#:BIND5213 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5215 (GUARD1 (#:BIND5214 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6186 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6187 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6188 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5215 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5215 (GUARD1 (#:IT5212 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT5212 'BIT) #:INTERSECTION5215 (GUARD1 (#:BIND5213 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5215 (GUARD1 (#:BIND5214 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6189 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6190 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6191 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5215 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5215 (GUARD1 (#:IT5212 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT5212 'BIT) #:INTERSECTION5215 (GUARD1 (#:BIND5213 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5215 (GUARD1 (#:BIND5214 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6192 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6193 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6194 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5595 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5595)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5595) (LOCALLY (DECLARE (TYPE CONS #:FUSION5595)) (LET ((#:CONS5188 #:FUSION5595)) (DECLARE (IGNORABLE #:CONS5188)) (LOCALLY (DECLARE (TYPE CONS #:CONS5188)) (LET ((#:GEN5596 (CAR #:FUSION5595))) (DECLARE (IGNORABLE #:GEN5596)) (LET ((#:GEN5597 (CDR #:FUSION5595))) (DECLARE (IGNORABLE #:GEN5597)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5598 T) (MATCH1 NIL ((GUARD1 #:IT6195 T) (MATCH2*+ (#:GEN5596 #:GEN5597 #:PAT5598) (T T T) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (GUARD1 (#:INTERSECTION5219 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5219 (GUARD1 (#:CONS5218 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5218) (CAR #:CONS5218) (GUARD1 (#:IT5220 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5220 'UNSIGNED-BYTE)) (CDR #:CONS5218) (GUARD1 (#:CONS5221 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5221) (CAR #:CONS5221) (GUARD1 (#:INTERSECTION5223 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5223 (GUARD1 (#:IT5222 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT5222 'FIXNUM) #:INTERSECTION5223 (GUARD1 (#:N5216 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5221) (GUARD1 (#:IT5224 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5224))) #:INTERSECTION5219 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (GUARD1 (#:INTERSECTION5226 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5226 (GUARD1 (#:CONS5225 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5225) (CAR #:CONS5225) (GUARD1 (#:IT5227 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5227 'UNSIGNED-BYTE)) (CDR #:CONS5225) (GUARD1 (#:CONS5228 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5228) (CAR #:CONS5228) (GUARD1 (#:INTERSECTION5231 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5231 (GUARD1 (#:IT5229 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT5229 '*) #:INTERSECTION5231 (GUARD1 (#:IT5230 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5228) (GUARD1 (#:IT5232 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5232))) #:INTERSECTION5226 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (GUARD1 (#:INTERSECTION5236 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5236 (GUARD1 (#:INTERSECTION5235 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5235 (GUARD1 (#:CONS5233 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5233) (CAR #:CONS5233) (GUARD1 (#:IT5237 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5237 'UNSIGNED-BYTE)) (CDR #:CONS5233) (GUARD1 (#:IT5238 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5238)) #:INTERSECTION5235 (GUARD1 (#:BIND5234 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION5236 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6196 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6197 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5219 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5219 (GUARD1 (#:CONS5218 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5218) (CAR #:CONS5218) (GUARD1 (#:IT5220 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5220 'UNSIGNED-BYTE)) (CDR #:CONS5218) (GUARD1 (#:CONS5221 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5221) (CAR #:CONS5221) (GUARD1 (#:INTERSECTION5223 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5223 (GUARD1 (#:IT5222 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT5222 'FIXNUM) #:INTERSECTION5223 (GUARD1 (#:N5216 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5221) (GUARD1 (#:IT5224 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5224))) #:INTERSECTION5219 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6198 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6199 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6200 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5226 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5226 (GUARD1 (#:CONS5225 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5225) (CAR #:CONS5225) (GUARD1 (#:IT5227 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5227 'UNSIGNED-BYTE)) (CDR #:CONS5225) (GUARD1 (#:CONS5228 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5228) (CAR #:CONS5228) (GUARD1 (#:INTERSECTION5231 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5231 (GUARD1 (#:IT5229 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT5229 '*) #:INTERSECTION5231 (GUARD1 (#:IT5230 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5228) (GUARD1 (#:IT5232 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5232))) #:INTERSECTION5226 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6201 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6202 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6203 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5236 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5236 (GUARD1 (#:INTERSECTION5235 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5235 (GUARD1 (#:CONS5233 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5233) (CAR #:CONS5233) (GUARD1 (#:IT5237 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5237 'UNSIGNED-BYTE)) (CDR #:CONS5233) (GUARD1 (#:IT5238 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5238)) #:INTERSECTION5235 (GUARD1 (#:BIND5234 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION5236 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6204 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6205 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6206 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5219 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5219 (GUARD1 (#:CONS5218 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5218) (CAR #:CONS5218) (GUARD1 (#:IT5220 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5220 'UNSIGNED-BYTE)) (CDR #:CONS5218) (GUARD1 (#:CONS5221 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5221) (CAR #:CONS5221) (GUARD1 (#:INTERSECTION5223 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5223 (GUARD1 (#:IT5222 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT5222 'FIXNUM) #:INTERSECTION5223 (GUARD1 (#:N5216 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5221) (GUARD1 (#:IT5224 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5224))) #:INTERSECTION5219 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6207 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6208 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6209 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5226 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5226 (GUARD1 (#:CONS5225 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5225) (CAR #:CONS5225) (GUARD1 (#:IT5227 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5227 'UNSIGNED-BYTE)) (CDR #:CONS5225) (GUARD1 (#:CONS5228 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5228) (CAR #:CONS5228) (GUARD1 (#:INTERSECTION5231 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5231 (GUARD1 (#:IT5229 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT5229 '*) #:INTERSECTION5231 (GUARD1 (#:IT5230 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5228) (GUARD1 (#:IT5232 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5232))) #:INTERSECTION5226 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6210 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6211 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6212 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5236 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5236 (GUARD1 (#:INTERSECTION5235 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5235 (GUARD1 (#:CONS5233 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5233) (CAR #:CONS5233) (GUARD1 (#:IT5237 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5237 'UNSIGNED-BYTE)) (CDR #:CONS5233) (GUARD1 (#:IT5238 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5238)) #:INTERSECTION5235 (GUARD1 (#:BIND5234 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION5236 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6213 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6214 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6215 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5602 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5602)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5602) (LOCALLY (DECLARE (TYPE CONS #:FUSION5602)) (LET ((#:CONS5188 #:FUSION5602)) (DECLARE (IGNORABLE #:CONS5188)) (LOCALLY (DECLARE (TYPE CONS #:CONS5188)) (LET ((#:GEN5603 (CAR #:FUSION5602))) (DECLARE (IGNORABLE #:GEN5603)) (LET ((#:GEN5604 (CDR #:FUSION5602))) (DECLARE (IGNORABLE #:GEN5604)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5605 T) (MATCH1 NIL ((GUARD1 #:IT6216 T) (MATCH2*+ (#:GEN5603 #:GEN5604 #:PAT5605) (T T T) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (GUARD1 (#:INTERSECTION5245 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5245 (GUARD1 (#:CONS5240 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5240) (CAR #:CONS5240) (GUARD1 (#:IT5241 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5241 'SIGNED-BYTE)) (CDR #:CONS5240) (GUARD1 (#:CONS5242 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5242) (CAR #:CONS5242) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N5239 'FIXNUM)) (CDR #:CONS5242) (GUARD1 (#:IT5243 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5243))) #:INTERSECTION5245 (GUARD1 (#:LIFT-DUMMY5244 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (GUARD1 (#:INTERSECTION5251 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5251 (GUARD1 (#:CONS5246 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5246) (CAR #:CONS5246) (GUARD1 (#:IT5247 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5247 'SIGNED-BYTE)) (CDR #:CONS5246) (GUARD1 (#:CONS5248 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5248) (CAR #:CONS5248) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N5239)) (CDR #:CONS5248) (GUARD1 (#:IT5249 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5249))) #:INTERSECTION5251 (GUARD1 (#:LIFT-DUMMY5250 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (GUARD1 (#:INTERSECTION5255 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5255 (GUARD1 (#:CONS5252 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5252) (CAR #:CONS5252) (GUARD1 (#:IT5253 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5253 'SIGNED-BYTE)) (CDR #:CONS5252) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N5239)) #:INTERSECTION5255 (GUARD1 (#:LIFT-DUMMY5254 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (GUARD1 (#:INTERSECTION5257 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5257 (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N5239) #:INTERSECTION5257 (GUARD1 (#:LIFT-DUMMY5256 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6217 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6218 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5245 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5245 (GUARD1 (#:CONS5240 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5240) (CAR #:CONS5240) (GUARD1 (#:IT5241 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5241 'SIGNED-BYTE)) (CDR #:CONS5240) (GUARD1 (#:CONS5242 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5242) (CAR #:CONS5242) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N5239 'FIXNUM)) (CDR #:CONS5242) (GUARD1 (#:IT5243 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5243))) #:INTERSECTION5245 (GUARD1 (#:LIFT-DUMMY5244 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6219 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6220 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6221 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5251 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5251 (GUARD1 (#:CONS5246 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5246) (CAR #:CONS5246) (GUARD1 (#:IT5247 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5247 'SIGNED-BYTE)) (CDR #:CONS5246) (GUARD1 (#:CONS5248 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5248) (CAR #:CONS5248) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N5239)) (CDR #:CONS5248) (GUARD1 (#:IT5249 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5249))) #:INTERSECTION5251 (GUARD1 (#:LIFT-DUMMY5250 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6222 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6223 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6224 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5255 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5255 (GUARD1 (#:CONS5252 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5252) (CAR #:CONS5252) (GUARD1 (#:IT5253 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5253 'SIGNED-BYTE)) (CDR #:CONS5252) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N5239)) #:INTERSECTION5255 (GUARD1 (#:LIFT-DUMMY5254 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6225 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6226 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6227 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5257 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5257 (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N5239) #:INTERSECTION5257 (GUARD1 (#:LIFT-DUMMY5256 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6228 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6229 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6230 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5245 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5245 (GUARD1 (#:CONS5240 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5240) (CAR #:CONS5240) (GUARD1 (#:IT5241 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5241 'SIGNED-BYTE)) (CDR #:CONS5240) (GUARD1 (#:CONS5242 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5242) (CAR #:CONS5242) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N5239 'FIXNUM)) (CDR #:CONS5242) (GUARD1 (#:IT5243 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5243))) #:INTERSECTION5245 (GUARD1 (#:LIFT-DUMMY5244 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6231 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6232 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6233 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5251 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5251 (GUARD1 (#:CONS5246 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5246) (CAR #:CONS5246) (GUARD1 (#:IT5247 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5247 'SIGNED-BYTE)) (CDR #:CONS5246) (GUARD1 (#:CONS5248 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5248) (CAR #:CONS5248) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N5239)) (CDR #:CONS5248) (GUARD1 (#:IT5249 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5249))) #:INTERSECTION5251 (GUARD1 (#:LIFT-DUMMY5250 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6234 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6235 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6236 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5255 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5255 (GUARD1 (#:CONS5252 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5252) (CAR #:CONS5252) (GUARD1 (#:IT5253 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5253 'SIGNED-BYTE)) (CDR #:CONS5252) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N5239)) #:INTERSECTION5255 (GUARD1 (#:LIFT-DUMMY5254 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6237 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6238 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6239 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5257 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5257 (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N5239) #:INTERSECTION5257 (GUARD1 (#:LIFT-DUMMY5256 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6240 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6241 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6242 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5609 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5609)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5609) (LOCALLY (DECLARE (TYPE CONS #:FUSION5609)) (LET ((#:CONS5188 #:FUSION5609)) (DECLARE (IGNORABLE #:CONS5188)) (LOCALLY (DECLARE (TYPE CONS #:CONS5188)) (LET ((#:GEN5610 (CAR #:FUSION5609))) (DECLARE (IGNORABLE #:GEN5610)) (LET ((#:GEN5611 (CDR #:FUSION5609))) (DECLARE (IGNORABLE #:GEN5611)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5612 T) (MATCH1 NIL ((GUARD1 #:IT6243 T) (MATCH2*+ (#:GEN5610 #:GEN5611 #:PAT5612) (T T T) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (GUARD1 (#:INTERSECTION5261 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5261 (GUARD1 (#:IT5258 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5258 'BIGNUM) #:INTERSECTION5261 (GUARD1 (#:BIND5259 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5261 (GUARD1 (#:BIND5260 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (OR1 (GUARD1 (#:INTERSECTION5265 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5265 (GUARD1 (#:CONS5262 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5262) (CAR #:CONS5262) (GUARD1 (#:IT5266 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5266 'BIGNUM)) (CDR #:CONS5262) (GUARD1 (#:IT5267 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5267)) #:INTERSECTION5265 (GUARD1 (#:BIND5263 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5265 (GUARD1 (#:BIND5264 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6244 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6245 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5261 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5261 (GUARD1 (#:IT5258 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5258 'BIGNUM) #:INTERSECTION5261 (GUARD1 (#:BIND5259 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5261 (GUARD1 (#:BIND5260 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6246 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6247 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6248 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5265 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5265 (GUARD1 (#:CONS5262 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5262) (CAR #:CONS5262) (GUARD1 (#:IT5266 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5266 'BIGNUM)) (CDR #:CONS5262) (GUARD1 (#:IT5267 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5267)) #:INTERSECTION5265 (GUARD1 (#:BIND5263 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5265 (GUARD1 (#:BIND5264 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6249 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6250 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6251 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5261 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5261 (GUARD1 (#:IT5258 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5258 'BIGNUM) #:INTERSECTION5261 (GUARD1 (#:BIND5259 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5261 (GUARD1 (#:BIND5260 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6252 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6253 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6254 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5265 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5265 (GUARD1 (#:CONS5262 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5262) (CAR #:CONS5262) (GUARD1 (#:IT5266 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5266 'BIGNUM)) (CDR #:CONS5262) (GUARD1 (#:IT5267 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5267)) #:INTERSECTION5265 (GUARD1 (#:BIND5263 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5265 (GUARD1 (#:BIND5264 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6255 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6256 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6257 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5616 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5616)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5616) (LOCALLY (DECLARE (TYPE CONS #:FUSION5616)) (LET ((#:CONS5188 #:FUSION5616)) (DECLARE (IGNORABLE #:CONS5188)) (LOCALLY (DECLARE (TYPE CONS #:CONS5188)) (LET ((#:GEN5617 (CAR #:FUSION5616))) (DECLARE (IGNORABLE #:GEN5617)) (LET ((#:GEN5618 (CDR #:FUSION5616))) (DECLARE (IGNORABLE #:GEN5618)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5619 T) (MATCH1 NIL ((GUARD1 #:IT6258 T) (MATCH2*+ (#:GEN5617 #:GEN5618 #:PAT5619) (T T T) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (GUARD1 (#:INTERSECTION5271 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5271 (GUARD1 (#:IT5268 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5268 'FIXNUM) #:INTERSECTION5271 (GUARD1 (#:BIND5269 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5271 (GUARD1 (#:BIND5270 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (OR1 (GUARD1 (#:INTERSECTION5275 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5275 (GUARD1 (#:CONS5272 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5272) (CAR #:CONS5272) (GUARD1 (#:IT5276 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5276 'FIXNUM)) (CDR #:CONS5272) (GUARD1 (#:IT5277 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5277)) #:INTERSECTION5275 (GUARD1 (#:BIND5273 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5275 (GUARD1 (#:BIND5274 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6259 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6260 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5271 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5271 (GUARD1 (#:IT5268 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5268 'FIXNUM) #:INTERSECTION5271 (GUARD1 (#:BIND5269 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5271 (GUARD1 (#:BIND5270 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6261 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6262 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6263 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5275 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5275 (GUARD1 (#:CONS5272 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5272) (CAR #:CONS5272) (GUARD1 (#:IT5276 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5276 'FIXNUM)) (CDR #:CONS5272) (GUARD1 (#:IT5277 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5277)) #:INTERSECTION5275 (GUARD1 (#:BIND5273 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5275 (GUARD1 (#:BIND5274 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6264 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6265 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6266 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5271 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5271 (GUARD1 (#:IT5268 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5268 'FIXNUM) #:INTERSECTION5271 (GUARD1 (#:BIND5269 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5271 (GUARD1 (#:BIND5270 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6267 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6268 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6269 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5275 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5275 (GUARD1 (#:CONS5272 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5272) (CAR #:CONS5272) (GUARD1 (#:IT5276 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5276 'FIXNUM)) (CDR #:CONS5272) (GUARD1 (#:IT5277 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5277)) #:INTERSECTION5275 (GUARD1 (#:BIND5273 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5275 (GUARD1 (#:BIND5274 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6270 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6271 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6272 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5623 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5623)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5623) (LOCALLY (DECLARE (TYPE CONS #:FUSION5623)) (LET ((#:CONS5188 #:FUSION5623)) (DECLARE (IGNORABLE #:CONS5188)) (LOCALLY (DECLARE (TYPE CONS #:CONS5188)) (LET ((#:GEN5624 (CAR #:FUSION5623))) (DECLARE (IGNORABLE #:GEN5624)) (LET ((#:GEN5625 (CDR #:FUSION5623))) (DECLARE (IGNORABLE #:GEN5625)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5626 T) (MATCH1 NIL ((GUARD1 #:IT6273 T) (MATCH2*+ (#:GEN5624 #:GEN5625 #:PAT5626) (T T T) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (GUARD1 (#:INTERSECTION5281 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5281 (GUARD1 (#:IT5278 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5278 'RATIO) #:INTERSECTION5281 (GUARD1 (#:BIND5279 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5281 (GUARD1 (#:BIND5280 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (OR1 (GUARD1 (#:INTERSECTION5285 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5285 (GUARD1 (#:CONS5282 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5282) (CAR #:CONS5282) (GUARD1 (#:IT5286 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5286 'RATIO)) (CDR #:CONS5282) (GUARD1 (#:IT5287 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5287)) #:INTERSECTION5285 (GUARD1 (#:BIND5283 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5285 (GUARD1 (#:BIND5284 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6274 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6275 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5281 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5281 (GUARD1 (#:IT5278 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5278 'RATIO) #:INTERSECTION5281 (GUARD1 (#:BIND5279 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5281 (GUARD1 (#:BIND5280 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6276 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6277 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6278 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5285 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5285 (GUARD1 (#:CONS5282 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5282) (CAR #:CONS5282) (GUARD1 (#:IT5286 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5286 'RATIO)) (CDR #:CONS5282) (GUARD1 (#:IT5287 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5287)) #:INTERSECTION5285 (GUARD1 (#:BIND5283 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5285 (GUARD1 (#:BIND5284 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6279 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6280 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6281 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5281 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5281 (GUARD1 (#:IT5278 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5278 'RATIO) #:INTERSECTION5281 (GUARD1 (#:BIND5279 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5281 (GUARD1 (#:BIND5280 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6282 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6283 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6284 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5285 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5285 (GUARD1 (#:CONS5282 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5282) (CAR #:CONS5282) (GUARD1 (#:IT5286 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5286 'RATIO)) (CDR #:CONS5282) (GUARD1 (#:IT5287 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5287)) #:INTERSECTION5285 (GUARD1 (#:BIND5283 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5285 (GUARD1 (#:BIND5284 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6285 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6286 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6287 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5630 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5630)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5630) (LOCALLY (DECLARE (TYPE CONS #:FUSION5630)) (LET ((#:CONS5188 #:FUSION5630)) (DECLARE (IGNORABLE #:CONS5188)) (LOCALLY (DECLARE (TYPE CONS #:CONS5188)) (LET ((#:GEN5631 (CAR #:FUSION5630))) (DECLARE (IGNORABLE #:GEN5631)) (LET ((#:GEN5632 (CDR #:FUSION5630))) (DECLARE (IGNORABLE #:GEN5632)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5633 T) (MATCH1 NIL ((GUARD1 #:IT6288 T) (MATCH2*+ (#:GEN5631 #:GEN5632 #:PAT5633) (T T T) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (OR1 (GUARD1 (#:INTERSECTION5291 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5291 (GUARD1 (#:IT5290 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5290 'INTEGER) #:INTERSECTION5291 (GUARD1 (#:BIND5288 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5291 (GUARD1 (#:BIND5289 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5293 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5293 (GUARD1 (#:IT5292 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5292 'RATIONAL) #:INTERSECTION5293 (GUARD1 (#:BIND5288 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5293 (GUARD1 (#:BIND5289 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (OR1 (GUARD1 (#:CONS5294 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5294) (CAR #:CONS5294) (OR1 (GUARD1 (#:IT5295 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5295 'INTEGER)) (GUARD1 (#:IT5296 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5296 'RATIONAL))) (CDR #:CONS5294) (GUARD1 (#:CONS5297 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5297) (CDR #:CONS5297) (GUARD1 (#:CONS5298 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5298) (CDR #:CONS5298) (GUARD1 (#:IT5299 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5299))))) (GUARD1 (#:INTERSECTION5302 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5302 (GUARD1 (#:CONS5300 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5300) (CAR #:CONS5300) (OR1 (GUARD1 (#:IT5303 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5303 'INTEGER)) (GUARD1 (#:IT5304 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5304 'RATIONAL))) (CDR #:CONS5300) (GUARD1 (#:CONS5305 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5305) (CDR #:CONS5305) (GUARD1 (#:IT5306 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5306))) #:INTERSECTION5302 (GUARD1 (#:BIND5301 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5310 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5310 (GUARD1 (#:CONS5307 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5307) (CAR #:CONS5307) (OR1 (GUARD1 (#:IT5311 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5311 'INTEGER)) (GUARD1 (#:IT5312 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5312 'RATIONAL))) (CDR #:CONS5307) (GUARD1 (#:IT5313 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5313)) #:INTERSECTION5310 (GUARD1 (#:BIND5308 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5310 (GUARD1 (#:BIND5309 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6289 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6290 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5291 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5291 (GUARD1 (#:IT5290 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5290 'INTEGER) #:INTERSECTION5291 (GUARD1 (#:BIND5288 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5291 (GUARD1 (#:BIND5289 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5293 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5293 (GUARD1 (#:IT5292 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5292 'RATIONAL) #:INTERSECTION5293 (GUARD1 (#:BIND5288 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5293 (GUARD1 (#:BIND5289 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6291 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6292 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6293 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS5294 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5294) (CAR #:CONS5294) (OR1 (GUARD1 (#:IT5295 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5295 'INTEGER)) (GUARD1 (#:IT5296 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5296 'RATIONAL))) (CDR #:CONS5294) (GUARD1 (#:CONS5297 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5297) (CDR #:CONS5297) (GUARD1 (#:CONS5298 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5298) (CDR #:CONS5298) (GUARD1 (#:IT5299 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5299))))) (GUARD1 (#:INTERSECTION5302 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5302 (GUARD1 (#:CONS5300 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5300) (CAR #:CONS5300) (OR1 (GUARD1 (#:IT5303 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5303 'INTEGER)) (GUARD1 (#:IT5304 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5304 'RATIONAL))) (CDR #:CONS5300) (GUARD1 (#:CONS5305 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5305) (CDR #:CONS5305) (GUARD1 (#:IT5306 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5306))) #:INTERSECTION5302 (GUARD1 (#:BIND5301 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5310 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5310 (GUARD1 (#:CONS5307 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5307) (CAR #:CONS5307) (OR1 (GUARD1 (#:IT5311 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5311 'INTEGER)) (GUARD1 (#:IT5312 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5312 'RATIONAL))) (CDR #:CONS5307) (GUARD1 (#:IT5313 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5313)) #:INTERSECTION5310 (GUARD1 (#:BIND5308 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5310 (GUARD1 (#:BIND5309 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6294 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6295 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6296 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5291 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5291 (GUARD1 (#:IT5290 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5290 'INTEGER) #:INTERSECTION5291 (GUARD1 (#:BIND5288 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5291 (GUARD1 (#:BIND5289 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5293 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5293 (GUARD1 (#:IT5292 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5292 'RATIONAL) #:INTERSECTION5293 (GUARD1 (#:BIND5288 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5293 (GUARD1 (#:BIND5289 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6297 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6298 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6299 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS5294 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5294) (CAR #:CONS5294) (OR1 (GUARD1 (#:IT5295 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5295 'INTEGER)) (GUARD1 (#:IT5296 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5296 'RATIONAL))) (CDR #:CONS5294) (GUARD1 (#:CONS5297 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5297) (CDR #:CONS5297) (GUARD1 (#:CONS5298 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5298) (CDR #:CONS5298) (GUARD1 (#:IT5299 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5299))))) (GUARD1 (#:INTERSECTION5302 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5302 (GUARD1 (#:CONS5300 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5300) (CAR #:CONS5300) (OR1 (GUARD1 (#:IT5303 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5303 'INTEGER)) (GUARD1 (#:IT5304 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5304 'RATIONAL))) (CDR #:CONS5300) (GUARD1 (#:CONS5305 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5305) (CDR #:CONS5305) (GUARD1 (#:IT5306 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5306))) #:INTERSECTION5302 (GUARD1 (#:BIND5301 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5310 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5310 (GUARD1 (#:CONS5307 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5307) (CAR #:CONS5307) (OR1 (GUARD1 (#:IT5311 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5311 'INTEGER)) (GUARD1 (#:IT5312 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5312 'RATIONAL))) (CDR #:CONS5307) (GUARD1 (#:IT5313 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5313)) #:INTERSECTION5310 (GUARD1 (#:BIND5308 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5310 (GUARD1 (#:BIND5309 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6300 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6301 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6302 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5317 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5317)) (LET ((#:IT5314 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:IT5314)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5314 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5314)) (LET ((#:BIND5315 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5315)) (LET ((#:BIND5316 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5316)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5338 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5338 (GUARD1 (#:CONS5336 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5336) (CAR #:CONS5336) (GUARD1 (#:IT5339 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT5339 'MOD)) (CDR #:CONS5336) (GUARD1 (#:CONS5340 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5340) (CAR #:CONS5340) (GUARD1 (#:N5335 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS5340) (GUARD1 (#:IT5341 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5341))) #:INTERSECTION5338 (GUARD1 (#:BIND5337 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6303 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6304 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6305 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5317 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5317)) (LET ((#:IT5314 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:IT5314)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5314 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5314)) (LET ((#:BIND5315 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5315)) (LET ((#:BIND5316 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5316)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5345 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5345 (GUARD1 (#:IT5342 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT5342 'BIT) #:INTERSECTION5345 (GUARD1 (#:BIND5343 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5345 (GUARD1 (#:BIND5344 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6306 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6307 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6308 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5317 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5317)) (LET ((#:IT5314 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:IT5314)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5314 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5314)) (LET ((#:BIND5315 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5315)) (LET ((#:BIND5316 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5316)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5349 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5349 (GUARD1 (#:CONS5348 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5348) (CAR #:CONS5348) (GUARD1 (#:IT5350 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5350 'UNSIGNED-BYTE)) (CDR #:CONS5348) (GUARD1 (#:CONS5351 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5351) (CAR #:CONS5351) (GUARD1 (#:INTERSECTION5353 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5353 (GUARD1 (#:IT5352 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT5352 'FIXNUM) #:INTERSECTION5353 (GUARD1 (#:N5346 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5351) (GUARD1 (#:IT5354 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5354))) #:INTERSECTION5349 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5356 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5356 (GUARD1 (#:CONS5355 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5355) (CAR #:CONS5355) (GUARD1 (#:IT5357 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5357 'UNSIGNED-BYTE)) (CDR #:CONS5355) (GUARD1 (#:CONS5358 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5358) (CAR #:CONS5358) (GUARD1 (#:INTERSECTION5361 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5361 (GUARD1 (#:IT5359 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT5359 '*) #:INTERSECTION5361 (GUARD1 (#:IT5360 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5358) (GUARD1 (#:IT5362 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5362))) #:INTERSECTION5356 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5366 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5366 (GUARD1 (#:INTERSECTION5365 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5365 (GUARD1 (#:CONS5363 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5363) (CAR #:CONS5363) (GUARD1 (#:IT5367 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5367 'UNSIGNED-BYTE)) (CDR #:CONS5363) (GUARD1 (#:IT5368 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5368)) #:INTERSECTION5365 (GUARD1 (#:BIND5364 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION5366 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6309 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6310 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6311 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5317 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5317)) (LET ((#:IT5314 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:IT5314)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5314 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5314)) (LET ((#:BIND5315 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5315)) (LET ((#:BIND5316 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5316)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5375 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5375 (GUARD1 (#:CONS5370 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5370) (CAR #:CONS5370) (GUARD1 (#:IT5371 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5371 'SIGNED-BYTE)) (CDR #:CONS5370) (GUARD1 (#:CONS5372 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5372) (CAR #:CONS5372) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N5369 'FIXNUM)) (CDR #:CONS5372) (GUARD1 (#:IT5373 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5373))) #:INTERSECTION5375 (GUARD1 (#:LIFT-DUMMY5374 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION5381 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5381 (GUARD1 (#:CONS5376 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5376) (CAR #:CONS5376) (GUARD1 (#:IT5377 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5377 'SIGNED-BYTE)) (CDR #:CONS5376) (GUARD1 (#:CONS5378 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5378) (CAR #:CONS5378) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N5369)) (CDR #:CONS5378) (GUARD1 (#:IT5379 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5379))) #:INTERSECTION5381 (GUARD1 (#:LIFT-DUMMY5380 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION5385 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5385 (GUARD1 (#:CONS5382 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5382) (CAR #:CONS5382) (GUARD1 (#:IT5383 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5383 'SIGNED-BYTE)) (CDR #:CONS5382) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N5369)) #:INTERSECTION5385 (GUARD1 (#:LIFT-DUMMY5384 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION5387 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5387 (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N5369) #:INTERSECTION5387 (GUARD1 (#:LIFT-DUMMY5386 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (MATCH1 NIL ((GUARD1 #:IT6312 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6313 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6314 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5317 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5317)) (LET ((#:IT5314 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:IT5314)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5314 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5314)) (LET ((#:BIND5315 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5315)) (LET ((#:BIND5316 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5316)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5391 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5391 (GUARD1 (#:IT5388 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5388 'BIGNUM) #:INTERSECTION5391 (GUARD1 (#:BIND5389 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5391 (GUARD1 (#:BIND5390 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION5395 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5395 (GUARD1 (#:CONS5392 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5392) (CAR #:CONS5392) (GUARD1 (#:IT5396 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5396 'BIGNUM)) (CDR #:CONS5392) (GUARD1 (#:IT5397 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5397)) #:INTERSECTION5395 (GUARD1 (#:BIND5393 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5395 (GUARD1 (#:BIND5394 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT6315 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6316 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6317 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5317 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5317)) (LET ((#:IT5314 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:IT5314)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5314 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5314)) (LET ((#:BIND5315 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5315)) (LET ((#:BIND5316 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5316)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5401 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5401 (GUARD1 (#:IT5398 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5398 'FIXNUM) #:INTERSECTION5401 (GUARD1 (#:BIND5399 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5401 (GUARD1 (#:BIND5400 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION5405 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5405 (GUARD1 (#:CONS5402 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5402) (CAR #:CONS5402) (GUARD1 (#:IT5406 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5406 'FIXNUM)) (CDR #:CONS5402) (GUARD1 (#:IT5407 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5407)) #:INTERSECTION5405 (GUARD1 (#:BIND5403 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5405 (GUARD1 (#:BIND5404 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT6318 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6319 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6320 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5317 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5317)) (LET ((#:IT5314 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:IT5314)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5314 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5314)) (LET ((#:BIND5315 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5315)) (LET ((#:BIND5316 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5316)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5411 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5411 (GUARD1 (#:IT5408 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5408 'RATIO) #:INTERSECTION5411 (GUARD1 (#:BIND5409 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5411 (GUARD1 (#:BIND5410 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION5415 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5415 (GUARD1 (#:CONS5412 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5412) (CAR #:CONS5412) (GUARD1 (#:IT5416 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5416 'RATIO)) (CDR #:CONS5412) (GUARD1 (#:IT5417 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5417)) #:INTERSECTION5415 (GUARD1 (#:BIND5413 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5415 (GUARD1 (#:BIND5414 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT6321 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6322 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6323 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5317 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5317)) (LET ((#:IT5314 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:IT5314)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5314 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5314)) (LET ((#:BIND5315 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5315)) (LET ((#:BIND5316 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5316)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (OR1 (GUARD1 (#:INTERSECTION5421 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5421 (GUARD1 (#:IT5420 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5420 'FLOAT) #:INTERSECTION5421 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5421 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5423 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5423 (GUARD1 (#:IT5422 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5422 'SHORT-FLOAT) #:INTERSECTION5423 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5423 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5425 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5425 (GUARD1 (#:IT5424 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5424 'SINGLE-FLOAT) #:INTERSECTION5425 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5425 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5427 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5427 (GUARD1 (#:IT5426 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5426 'DOUBLE-FLOAT) #:INTERSECTION5427 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5427 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5429 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5429 (GUARD1 (#:IT5428 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5428 'LONG-FLOAT) #:INTERSECTION5429 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5429 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5431 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5431 (GUARD1 (#:IT5430 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5430 'INTEGER) #:INTERSECTION5431 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5431 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5433 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5433 (GUARD1 (#:IT5432 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5432 'RATIONAL) #:INTERSECTION5433 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5433 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5435 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5435 (GUARD1 (#:IT5434 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5434 'REAL) #:INTERSECTION5435 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5435 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (OR1 (GUARD1 (#:CONS5436 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5436) (CAR #:CONS5436) (OR1 (GUARD1 (#:IT5437 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5437 'FLOAT)) (GUARD1 (#:IT5438 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5438 'SHORT-FLOAT)) (GUARD1 (#:IT5439 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5439 'SINGLE-FLOAT)) (GUARD1 (#:IT5440 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5440 'DOUBLE-FLOAT)) (GUARD1 (#:IT5441 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5441 'LONG-FLOAT)) (GUARD1 (#:IT5442 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5442 'INTEGER)) (GUARD1 (#:IT5443 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5443 'RATIONAL)) (GUARD1 (#:IT5444 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5444 'REAL))) (CDR #:CONS5436) (GUARD1 (#:CONS5445 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5445) (CDR #:CONS5445) (GUARD1 (#:CONS5446 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5446) (CDR #:CONS5446) (GUARD1 (#:IT5447 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5447))))) (GUARD1 (#:INTERSECTION5450 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5450 (GUARD1 (#:CONS5448 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5448) (CAR #:CONS5448) (OR1 (GUARD1 (#:IT5451 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5451 'FLOAT)) (GUARD1 (#:IT5452 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5452 'SHORT-FLOAT)) (GUARD1 (#:IT5453 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5453 'SINGLE-FLOAT)) (GUARD1 (#:IT5454 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5454 'DOUBLE-FLOAT)) (GUARD1 (#:IT5455 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5455 'LONG-FLOAT)) (GUARD1 (#:IT5456 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5456 'INTEGER)) (GUARD1 (#:IT5457 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5457 'RATIONAL)) (GUARD1 (#:IT5458 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5458 'REAL))) (CDR #:CONS5448) (GUARD1 (#:CONS5459 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5459) (CDR #:CONS5459) (GUARD1 (#:IT5460 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5460))) #:INTERSECTION5450 (GUARD1 (#:BIND5449 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5464 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5464 (GUARD1 (#:CONS5461 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5461) (CAR #:CONS5461) (OR1 (GUARD1 (#:IT5465 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5465 'FLOAT)) (GUARD1 (#:IT5466 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5466 'SHORT-FLOAT)) (GUARD1 (#:IT5467 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5467 'SINGLE-FLOAT)) (GUARD1 (#:IT5468 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5468 'DOUBLE-FLOAT)) (GUARD1 (#:IT5469 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5469 'LONG-FLOAT)) (GUARD1 (#:IT5470 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5470 'INTEGER)) (GUARD1 (#:IT5471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5471 'RATIONAL)) (GUARD1 (#:IT5472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5472 'REAL))) (CDR #:CONS5461) (GUARD1 (#:IT5473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5473)) #:INTERSECTION5464 (GUARD1 (#:BIND5462 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5464 (GUARD1 (#:BIND5463 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT6324 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6325 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6326 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS5318 #:WHAT16458)) (DECLARE (IGNORABLE #:CONS5318)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5318) (LOCALLY (DECLARE (TYPE CONS #:CONS5318)) (LET ((#:IT5319 (CAR #:CONS5318))) (DECLARE (IGNORABLE #:IT5319)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5319 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5319)) (LET ((#:CONS5320 (CDR #:CONS5318))) (DECLARE (IGNORABLE #:CONS5320)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5320) (LOCALLY (DECLARE (TYPE CONS #:CONS5320)) (LET ((#:CONS5321 (CDR #:CONS5320))) (DECLARE (IGNORABLE #:CONS5321)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5321) (LOCALLY (DECLARE (TYPE CONS #:CONS5321)) (LET ((#:IT5322 (CDR #:CONS5321))) (DECLARE (IGNORABLE #:IT5322)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5322) (LOCALLY (DECLARE (TYPE NULL #:IT5322)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5338 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5338 (GUARD1 (#:CONS5336 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5336) (CAR #:CONS5336) (GUARD1 (#:IT5339 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT5339 'MOD)) (CDR #:CONS5336) (GUARD1 (#:CONS5340 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5340) (CAR #:CONS5340) (GUARD1 (#:N5335 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS5340) (GUARD1 (#:IT5341 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5341))) #:INTERSECTION5338 (GUARD1 (#:BIND5337 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6327 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6328 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6329 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5338 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5338 (GUARD1 (#:CONS5336 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5336) (CAR #:CONS5336) (GUARD1 (#:IT5339 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT5339 'MOD)) (CDR #:CONS5336) (GUARD1 (#:CONS5340 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5340) (CAR #:CONS5340) (GUARD1 (#:N5335 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS5340) (GUARD1 (#:IT5341 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5341))) #:INTERSECTION5338 (GUARD1 (#:BIND5337 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6330 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6331 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6332 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5338 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5338 (GUARD1 (#:CONS5336 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5336) (CAR #:CONS5336) (GUARD1 (#:IT5339 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT5339 'MOD)) (CDR #:CONS5336) (GUARD1 (#:CONS5340 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5340) (CAR #:CONS5340) (GUARD1 (#:N5335 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS5340) (GUARD1 (#:IT5341 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5341))) #:INTERSECTION5338 (GUARD1 (#:BIND5337 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6333 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6334 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6335 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS5318 #:WHAT16458)) (DECLARE (IGNORABLE #:CONS5318)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5318) (LOCALLY (DECLARE (TYPE CONS #:CONS5318)) (LET ((#:IT5319 (CAR #:CONS5318))) (DECLARE (IGNORABLE #:IT5319)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5319 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5319)) (LET ((#:CONS5320 (CDR #:CONS5318))) (DECLARE (IGNORABLE #:CONS5320)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5320) (LOCALLY (DECLARE (TYPE CONS #:CONS5320)) (LET ((#:CONS5321 (CDR #:CONS5320))) (DECLARE (IGNORABLE #:CONS5321)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5321) (LOCALLY (DECLARE (TYPE CONS #:CONS5321)) (LET ((#:IT5322 (CDR #:CONS5321))) (DECLARE (IGNORABLE #:IT5322)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5322) (LOCALLY (DECLARE (TYPE NULL #:IT5322)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5345 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5345 (GUARD1 (#:IT5342 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT5342 'BIT) #:INTERSECTION5345 (GUARD1 (#:BIND5343 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5345 (GUARD1 (#:BIND5344 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6336 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6337 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6338 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5345 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5345 (GUARD1 (#:IT5342 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT5342 'BIT) #:INTERSECTION5345 (GUARD1 (#:BIND5343 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5345 (GUARD1 (#:BIND5344 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6339 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6340 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6341 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5345 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5345 (GUARD1 (#:IT5342 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT5342 'BIT) #:INTERSECTION5345 (GUARD1 (#:BIND5343 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5345 (GUARD1 (#:BIND5344 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6342 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6343 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6344 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5643 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5643)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5643) (LOCALLY (DECLARE (TYPE CONS #:FUSION5643)) (LET ((#:CONS5318 #:FUSION5643)) (DECLARE (IGNORABLE #:CONS5318)) (LOCALLY (DECLARE (TYPE CONS #:CONS5318)) (LET ((#:GEN5644 (CAR #:FUSION5643))) (DECLARE (IGNORABLE #:GEN5644)) (LET ((#:GEN5645 (CDR #:FUSION5643))) (DECLARE (IGNORABLE #:GEN5645)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5646 T) (MATCH1 NIL ((GUARD1 #:IT6345 T) (MATCH2*+ (#:GEN5644 #:GEN5645 #:PAT5646) (T T T) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (GUARD1 (#:INTERSECTION5349 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5349 (GUARD1 (#:CONS5348 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5348) (CAR #:CONS5348) (GUARD1 (#:IT5350 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5350 'UNSIGNED-BYTE)) (CDR #:CONS5348) (GUARD1 (#:CONS5351 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5351) (CAR #:CONS5351) (GUARD1 (#:INTERSECTION5353 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5353 (GUARD1 (#:IT5352 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT5352 'FIXNUM) #:INTERSECTION5353 (GUARD1 (#:N5346 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5351) (GUARD1 (#:IT5354 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5354))) #:INTERSECTION5349 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (GUARD1 (#:INTERSECTION5356 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5356 (GUARD1 (#:CONS5355 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5355) (CAR #:CONS5355) (GUARD1 (#:IT5357 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5357 'UNSIGNED-BYTE)) (CDR #:CONS5355) (GUARD1 (#:CONS5358 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5358) (CAR #:CONS5358) (GUARD1 (#:INTERSECTION5361 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5361 (GUARD1 (#:IT5359 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT5359 '*) #:INTERSECTION5361 (GUARD1 (#:IT5360 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5358) (GUARD1 (#:IT5362 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5362))) #:INTERSECTION5356 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (GUARD1 (#:INTERSECTION5366 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5366 (GUARD1 (#:INTERSECTION5365 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5365 (GUARD1 (#:CONS5363 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5363) (CAR #:CONS5363) (GUARD1 (#:IT5367 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5367 'UNSIGNED-BYTE)) (CDR #:CONS5363) (GUARD1 (#:IT5368 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5368)) #:INTERSECTION5365 (GUARD1 (#:BIND5364 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION5366 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6346 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6347 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5349 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5349 (GUARD1 (#:CONS5348 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5348) (CAR #:CONS5348) (GUARD1 (#:IT5350 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5350 'UNSIGNED-BYTE)) (CDR #:CONS5348) (GUARD1 (#:CONS5351 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5351) (CAR #:CONS5351) (GUARD1 (#:INTERSECTION5353 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5353 (GUARD1 (#:IT5352 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT5352 'FIXNUM) #:INTERSECTION5353 (GUARD1 (#:N5346 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5351) (GUARD1 (#:IT5354 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5354))) #:INTERSECTION5349 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6348 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6349 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6350 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5356 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5356 (GUARD1 (#:CONS5355 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5355) (CAR #:CONS5355) (GUARD1 (#:IT5357 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5357 'UNSIGNED-BYTE)) (CDR #:CONS5355) (GUARD1 (#:CONS5358 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5358) (CAR #:CONS5358) (GUARD1 (#:INTERSECTION5361 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5361 (GUARD1 (#:IT5359 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT5359 '*) #:INTERSECTION5361 (GUARD1 (#:IT5360 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5358) (GUARD1 (#:IT5362 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5362))) #:INTERSECTION5356 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6351 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6352 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6353 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5366 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5366 (GUARD1 (#:INTERSECTION5365 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5365 (GUARD1 (#:CONS5363 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5363) (CAR #:CONS5363) (GUARD1 (#:IT5367 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5367 'UNSIGNED-BYTE)) (CDR #:CONS5363) (GUARD1 (#:IT5368 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5368)) #:INTERSECTION5365 (GUARD1 (#:BIND5364 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION5366 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6354 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6355 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6356 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5349 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5349 (GUARD1 (#:CONS5348 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5348) (CAR #:CONS5348) (GUARD1 (#:IT5350 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5350 'UNSIGNED-BYTE)) (CDR #:CONS5348) (GUARD1 (#:CONS5351 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5351) (CAR #:CONS5351) (GUARD1 (#:INTERSECTION5353 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5353 (GUARD1 (#:IT5352 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT5352 'FIXNUM) #:INTERSECTION5353 (GUARD1 (#:N5346 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5351) (GUARD1 (#:IT5354 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5354))) #:INTERSECTION5349 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6357 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6358 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6359 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5356 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5356 (GUARD1 (#:CONS5355 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5355) (CAR #:CONS5355) (GUARD1 (#:IT5357 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5357 'UNSIGNED-BYTE)) (CDR #:CONS5355) (GUARD1 (#:CONS5358 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5358) (CAR #:CONS5358) (GUARD1 (#:INTERSECTION5361 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5361 (GUARD1 (#:IT5359 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT5359 '*) #:INTERSECTION5361 (GUARD1 (#:IT5360 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5358) (GUARD1 (#:IT5362 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5362))) #:INTERSECTION5356 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6360 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6361 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6362 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5366 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5366 (GUARD1 (#:INTERSECTION5365 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5365 (GUARD1 (#:CONS5363 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5363) (CAR #:CONS5363) (GUARD1 (#:IT5367 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5367 'UNSIGNED-BYTE)) (CDR #:CONS5363) (GUARD1 (#:IT5368 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5368)) #:INTERSECTION5365 (GUARD1 (#:BIND5364 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION5366 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6363 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6364 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6365 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5650 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5650)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5650) (LOCALLY (DECLARE (TYPE CONS #:FUSION5650)) (LET ((#:CONS5318 #:FUSION5650)) (DECLARE (IGNORABLE #:CONS5318)) (LOCALLY (DECLARE (TYPE CONS #:CONS5318)) (LET ((#:GEN5651 (CAR #:FUSION5650))) (DECLARE (IGNORABLE #:GEN5651)) (LET ((#:GEN5652 (CDR #:FUSION5650))) (DECLARE (IGNORABLE #:GEN5652)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5653 T) (MATCH1 NIL ((GUARD1 #:IT6366 T) (MATCH2*+ (#:GEN5651 #:GEN5652 #:PAT5653) (T T T) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (GUARD1 (#:INTERSECTION5375 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5375 (GUARD1 (#:CONS5370 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5370) (CAR #:CONS5370) (GUARD1 (#:IT5371 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5371 'SIGNED-BYTE)) (CDR #:CONS5370) (GUARD1 (#:CONS5372 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5372) (CAR #:CONS5372) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N5369 'FIXNUM)) (CDR #:CONS5372) (GUARD1 (#:IT5373 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5373))) #:INTERSECTION5375 (GUARD1 (#:LIFT-DUMMY5374 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (GUARD1 (#:INTERSECTION5381 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5381 (GUARD1 (#:CONS5376 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5376) (CAR #:CONS5376) (GUARD1 (#:IT5377 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5377 'SIGNED-BYTE)) (CDR #:CONS5376) (GUARD1 (#:CONS5378 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5378) (CAR #:CONS5378) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N5369)) (CDR #:CONS5378) (GUARD1 (#:IT5379 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5379))) #:INTERSECTION5381 (GUARD1 (#:LIFT-DUMMY5380 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (GUARD1 (#:INTERSECTION5385 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5385 (GUARD1 (#:CONS5382 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5382) (CAR #:CONS5382) (GUARD1 (#:IT5383 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5383 'SIGNED-BYTE)) (CDR #:CONS5382) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N5369)) #:INTERSECTION5385 (GUARD1 (#:LIFT-DUMMY5384 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (GUARD1 (#:INTERSECTION5387 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5387 (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N5369) #:INTERSECTION5387 (GUARD1 (#:LIFT-DUMMY5386 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6367 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6368 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5375 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5375 (GUARD1 (#:CONS5370 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5370) (CAR #:CONS5370) (GUARD1 (#:IT5371 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5371 'SIGNED-BYTE)) (CDR #:CONS5370) (GUARD1 (#:CONS5372 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5372) (CAR #:CONS5372) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N5369 'FIXNUM)) (CDR #:CONS5372) (GUARD1 (#:IT5373 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5373))) #:INTERSECTION5375 (GUARD1 (#:LIFT-DUMMY5374 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6369 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6370 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6371 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5381 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5381 (GUARD1 (#:CONS5376 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5376) (CAR #:CONS5376) (GUARD1 (#:IT5377 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5377 'SIGNED-BYTE)) (CDR #:CONS5376) (GUARD1 (#:CONS5378 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5378) (CAR #:CONS5378) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N5369)) (CDR #:CONS5378) (GUARD1 (#:IT5379 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5379))) #:INTERSECTION5381 (GUARD1 (#:LIFT-DUMMY5380 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6372 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6373 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6374 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5385 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5385 (GUARD1 (#:CONS5382 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5382) (CAR #:CONS5382) (GUARD1 (#:IT5383 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5383 'SIGNED-BYTE)) (CDR #:CONS5382) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N5369)) #:INTERSECTION5385 (GUARD1 (#:LIFT-DUMMY5384 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6375 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6376 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6377 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5387 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5387 (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N5369) #:INTERSECTION5387 (GUARD1 (#:LIFT-DUMMY5386 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6378 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6379 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6380 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5375 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5375 (GUARD1 (#:CONS5370 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5370) (CAR #:CONS5370) (GUARD1 (#:IT5371 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5371 'SIGNED-BYTE)) (CDR #:CONS5370) (GUARD1 (#:CONS5372 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5372) (CAR #:CONS5372) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N5369 'FIXNUM)) (CDR #:CONS5372) (GUARD1 (#:IT5373 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5373))) #:INTERSECTION5375 (GUARD1 (#:LIFT-DUMMY5374 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6381 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6382 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6383 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5381 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5381 (GUARD1 (#:CONS5376 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5376) (CAR #:CONS5376) (GUARD1 (#:IT5377 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5377 'SIGNED-BYTE)) (CDR #:CONS5376) (GUARD1 (#:CONS5378 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5378) (CAR #:CONS5378) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N5369)) (CDR #:CONS5378) (GUARD1 (#:IT5379 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5379))) #:INTERSECTION5381 (GUARD1 (#:LIFT-DUMMY5380 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6384 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6385 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6386 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5385 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5385 (GUARD1 (#:CONS5382 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5382) (CAR #:CONS5382) (GUARD1 (#:IT5383 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5383 'SIGNED-BYTE)) (CDR #:CONS5382) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N5369)) #:INTERSECTION5385 (GUARD1 (#:LIFT-DUMMY5384 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6387 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6388 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6389 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5387 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5387 (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N5369) #:INTERSECTION5387 (GUARD1 (#:LIFT-DUMMY5386 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6390 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6391 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6392 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5657 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5657)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5657) (LOCALLY (DECLARE (TYPE CONS #:FUSION5657)) (LET ((#:CONS5318 #:FUSION5657)) (DECLARE (IGNORABLE #:CONS5318)) (LOCALLY (DECLARE (TYPE CONS #:CONS5318)) (LET ((#:GEN5658 (CAR #:FUSION5657))) (DECLARE (IGNORABLE #:GEN5658)) (LET ((#:GEN5659 (CDR #:FUSION5657))) (DECLARE (IGNORABLE #:GEN5659)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5660 T) (MATCH1 NIL ((GUARD1 #:IT6393 T) (MATCH2*+ (#:GEN5658 #:GEN5659 #:PAT5660) (T T T) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (GUARD1 (#:INTERSECTION5391 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5391 (GUARD1 (#:IT5388 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5388 'BIGNUM) #:INTERSECTION5391 (GUARD1 (#:BIND5389 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5391 (GUARD1 (#:BIND5390 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (OR1 (GUARD1 (#:INTERSECTION5395 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5395 (GUARD1 (#:CONS5392 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5392) (CAR #:CONS5392) (GUARD1 (#:IT5396 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5396 'BIGNUM)) (CDR #:CONS5392) (GUARD1 (#:IT5397 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5397)) #:INTERSECTION5395 (GUARD1 (#:BIND5393 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5395 (GUARD1 (#:BIND5394 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6394 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6395 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5391 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5391 (GUARD1 (#:IT5388 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5388 'BIGNUM) #:INTERSECTION5391 (GUARD1 (#:BIND5389 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5391 (GUARD1 (#:BIND5390 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6396 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6397 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6398 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5395 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5395 (GUARD1 (#:CONS5392 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5392) (CAR #:CONS5392) (GUARD1 (#:IT5396 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5396 'BIGNUM)) (CDR #:CONS5392) (GUARD1 (#:IT5397 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5397)) #:INTERSECTION5395 (GUARD1 (#:BIND5393 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5395 (GUARD1 (#:BIND5394 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6399 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6400 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6401 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5391 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5391 (GUARD1 (#:IT5388 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5388 'BIGNUM) #:INTERSECTION5391 (GUARD1 (#:BIND5389 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5391 (GUARD1 (#:BIND5390 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6402 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6403 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6404 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5395 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5395 (GUARD1 (#:CONS5392 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5392) (CAR #:CONS5392) (GUARD1 (#:IT5396 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5396 'BIGNUM)) (CDR #:CONS5392) (GUARD1 (#:IT5397 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5397)) #:INTERSECTION5395 (GUARD1 (#:BIND5393 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5395 (GUARD1 (#:BIND5394 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6405 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6406 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6407 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5664 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5664)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5664) (LOCALLY (DECLARE (TYPE CONS #:FUSION5664)) (LET ((#:CONS5318 #:FUSION5664)) (DECLARE (IGNORABLE #:CONS5318)) (LOCALLY (DECLARE (TYPE CONS #:CONS5318)) (LET ((#:GEN5665 (CAR #:FUSION5664))) (DECLARE (IGNORABLE #:GEN5665)) (LET ((#:GEN5666 (CDR #:FUSION5664))) (DECLARE (IGNORABLE #:GEN5666)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5667 T) (MATCH1 NIL ((GUARD1 #:IT6408 T) (MATCH2*+ (#:GEN5665 #:GEN5666 #:PAT5667) (T T T) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (GUARD1 (#:INTERSECTION5401 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5401 (GUARD1 (#:IT5398 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5398 'FIXNUM) #:INTERSECTION5401 (GUARD1 (#:BIND5399 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5401 (GUARD1 (#:BIND5400 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (OR1 (GUARD1 (#:INTERSECTION5405 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5405 (GUARD1 (#:CONS5402 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5402) (CAR #:CONS5402) (GUARD1 (#:IT5406 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5406 'FIXNUM)) (CDR #:CONS5402) (GUARD1 (#:IT5407 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5407)) #:INTERSECTION5405 (GUARD1 (#:BIND5403 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5405 (GUARD1 (#:BIND5404 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6409 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6410 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5401 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5401 (GUARD1 (#:IT5398 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5398 'FIXNUM) #:INTERSECTION5401 (GUARD1 (#:BIND5399 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5401 (GUARD1 (#:BIND5400 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6411 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6412 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6413 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5405 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5405 (GUARD1 (#:CONS5402 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5402) (CAR #:CONS5402) (GUARD1 (#:IT5406 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5406 'FIXNUM)) (CDR #:CONS5402) (GUARD1 (#:IT5407 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5407)) #:INTERSECTION5405 (GUARD1 (#:BIND5403 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5405 (GUARD1 (#:BIND5404 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6414 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6415 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6416 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5401 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5401 (GUARD1 (#:IT5398 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5398 'FIXNUM) #:INTERSECTION5401 (GUARD1 (#:BIND5399 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5401 (GUARD1 (#:BIND5400 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6417 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6418 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6419 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5405 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5405 (GUARD1 (#:CONS5402 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5402) (CAR #:CONS5402) (GUARD1 (#:IT5406 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5406 'FIXNUM)) (CDR #:CONS5402) (GUARD1 (#:IT5407 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5407)) #:INTERSECTION5405 (GUARD1 (#:BIND5403 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5405 (GUARD1 (#:BIND5404 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6420 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6421 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6422 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5671 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5671)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5671) (LOCALLY (DECLARE (TYPE CONS #:FUSION5671)) (LET ((#:CONS5318 #:FUSION5671)) (DECLARE (IGNORABLE #:CONS5318)) (LOCALLY (DECLARE (TYPE CONS #:CONS5318)) (LET ((#:GEN5672 (CAR #:FUSION5671))) (DECLARE (IGNORABLE #:GEN5672)) (LET ((#:GEN5673 (CDR #:FUSION5671))) (DECLARE (IGNORABLE #:GEN5673)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5674 T) (MATCH1 NIL ((GUARD1 #:IT6423 T) (MATCH2*+ (#:GEN5672 #:GEN5673 #:PAT5674) (T T T) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (GUARD1 (#:INTERSECTION5411 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5411 (GUARD1 (#:IT5408 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5408 'RATIO) #:INTERSECTION5411 (GUARD1 (#:BIND5409 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5411 (GUARD1 (#:BIND5410 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (OR1 (GUARD1 (#:INTERSECTION5415 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5415 (GUARD1 (#:CONS5412 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5412) (CAR #:CONS5412) (GUARD1 (#:IT5416 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5416 'RATIO)) (CDR #:CONS5412) (GUARD1 (#:IT5417 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5417)) #:INTERSECTION5415 (GUARD1 (#:BIND5413 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5415 (GUARD1 (#:BIND5414 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6424 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6425 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5411 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5411 (GUARD1 (#:IT5408 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5408 'RATIO) #:INTERSECTION5411 (GUARD1 (#:BIND5409 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5411 (GUARD1 (#:BIND5410 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6426 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6427 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6428 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5415 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5415 (GUARD1 (#:CONS5412 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5412) (CAR #:CONS5412) (GUARD1 (#:IT5416 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5416 'RATIO)) (CDR #:CONS5412) (GUARD1 (#:IT5417 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5417)) #:INTERSECTION5415 (GUARD1 (#:BIND5413 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5415 (GUARD1 (#:BIND5414 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6429 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6430 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6431 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5411 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5411 (GUARD1 (#:IT5408 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5408 'RATIO) #:INTERSECTION5411 (GUARD1 (#:BIND5409 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5411 (GUARD1 (#:BIND5410 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6432 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6433 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6434 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5415 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5415 (GUARD1 (#:CONS5412 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5412) (CAR #:CONS5412) (GUARD1 (#:IT5416 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5416 'RATIO)) (CDR #:CONS5412) (GUARD1 (#:IT5417 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5417)) #:INTERSECTION5415 (GUARD1 (#:BIND5413 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5415 (GUARD1 (#:BIND5414 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6435 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6436 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6437 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5678 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5678)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5678) (LOCALLY (DECLARE (TYPE CONS #:FUSION5678)) (LET ((#:CONS5318 #:FUSION5678)) (DECLARE (IGNORABLE #:CONS5318)) (LOCALLY (DECLARE (TYPE CONS #:CONS5318)) (LET ((#:GEN5679 (CAR #:FUSION5678))) (DECLARE (IGNORABLE #:GEN5679)) (LET ((#:GEN5680 (CDR #:FUSION5678))) (DECLARE (IGNORABLE #:GEN5680)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5681 T) (MATCH1 NIL ((GUARD1 #:IT6438 T) (MATCH2*+ (#:GEN5679 #:GEN5680 #:PAT5681) (T T T) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (OR1 (GUARD1 (#:INTERSECTION5421 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5421 (GUARD1 (#:IT5420 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5420 'FLOAT) #:INTERSECTION5421 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5421 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5423 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5423 (GUARD1 (#:IT5422 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5422 'SHORT-FLOAT) #:INTERSECTION5423 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5423 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5425 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5425 (GUARD1 (#:IT5424 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5424 'SINGLE-FLOAT) #:INTERSECTION5425 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5425 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5427 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5427 (GUARD1 (#:IT5426 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5426 'DOUBLE-FLOAT) #:INTERSECTION5427 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5427 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5429 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5429 (GUARD1 (#:IT5428 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5428 'LONG-FLOAT) #:INTERSECTION5429 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5429 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5431 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5431 (GUARD1 (#:IT5430 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5430 'INTEGER) #:INTERSECTION5431 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5431 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5433 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5433 (GUARD1 (#:IT5432 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5432 'RATIONAL) #:INTERSECTION5433 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5433 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5435 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5435 (GUARD1 (#:IT5434 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5434 'REAL) #:INTERSECTION5435 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5435 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (OR1 (GUARD1 (#:CONS5436 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5436) (CAR #:CONS5436) (OR1 (GUARD1 (#:IT5437 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5437 'FLOAT)) (GUARD1 (#:IT5438 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5438 'SHORT-FLOAT)) (GUARD1 (#:IT5439 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5439 'SINGLE-FLOAT)) (GUARD1 (#:IT5440 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5440 'DOUBLE-FLOAT)) (GUARD1 (#:IT5441 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5441 'LONG-FLOAT)) (GUARD1 (#:IT5442 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5442 'INTEGER)) (GUARD1 (#:IT5443 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5443 'RATIONAL)) (GUARD1 (#:IT5444 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5444 'REAL))) (CDR #:CONS5436) (GUARD1 (#:CONS5445 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5445) (CDR #:CONS5445) (GUARD1 (#:CONS5446 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5446) (CDR #:CONS5446) (GUARD1 (#:IT5447 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5447))))) (GUARD1 (#:INTERSECTION5450 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5450 (GUARD1 (#:CONS5448 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5448) (CAR #:CONS5448) (OR1 (GUARD1 (#:IT5451 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5451 'FLOAT)) (GUARD1 (#:IT5452 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5452 'SHORT-FLOAT)) (GUARD1 (#:IT5453 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5453 'SINGLE-FLOAT)) (GUARD1 (#:IT5454 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5454 'DOUBLE-FLOAT)) (GUARD1 (#:IT5455 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5455 'LONG-FLOAT)) (GUARD1 (#:IT5456 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5456 'INTEGER)) (GUARD1 (#:IT5457 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5457 'RATIONAL)) (GUARD1 (#:IT5458 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5458 'REAL))) (CDR #:CONS5448) (GUARD1 (#:CONS5459 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5459) (CDR #:CONS5459) (GUARD1 (#:IT5460 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5460))) #:INTERSECTION5450 (GUARD1 (#:BIND5449 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5464 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5464 (GUARD1 (#:CONS5461 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5461) (CAR #:CONS5461) (OR1 (GUARD1 (#:IT5465 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5465 'FLOAT)) (GUARD1 (#:IT5466 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5466 'SHORT-FLOAT)) (GUARD1 (#:IT5467 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5467 'SINGLE-FLOAT)) (GUARD1 (#:IT5468 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5468 'DOUBLE-FLOAT)) (GUARD1 (#:IT5469 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5469 'LONG-FLOAT)) (GUARD1 (#:IT5470 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5470 'INTEGER)) (GUARD1 (#:IT5471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5471 'RATIONAL)) (GUARD1 (#:IT5472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5472 'REAL))) (CDR #:CONS5461) (GUARD1 (#:IT5473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5473)) #:INTERSECTION5464 (GUARD1 (#:BIND5462 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5464 (GUARD1 (#:BIND5463 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6439 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6440 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5421 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5421 (GUARD1 (#:IT5420 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5420 'FLOAT) #:INTERSECTION5421 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5421 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5423 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5423 (GUARD1 (#:IT5422 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5422 'SHORT-FLOAT) #:INTERSECTION5423 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5423 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5425 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5425 (GUARD1 (#:IT5424 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5424 'SINGLE-FLOAT) #:INTERSECTION5425 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5425 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5427 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5427 (GUARD1 (#:IT5426 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5426 'DOUBLE-FLOAT) #:INTERSECTION5427 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5427 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5429 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5429 (GUARD1 (#:IT5428 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5428 'LONG-FLOAT) #:INTERSECTION5429 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5429 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5431 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5431 (GUARD1 (#:IT5430 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5430 'INTEGER) #:INTERSECTION5431 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5431 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5433 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5433 (GUARD1 (#:IT5432 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5432 'RATIONAL) #:INTERSECTION5433 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5433 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5435 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5435 (GUARD1 (#:IT5434 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5434 'REAL) #:INTERSECTION5435 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5435 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6441 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6442 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6443 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS5436 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5436) (CAR #:CONS5436) (OR1 (GUARD1 (#:IT5437 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5437 'FLOAT)) (GUARD1 (#:IT5438 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5438 'SHORT-FLOAT)) (GUARD1 (#:IT5439 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5439 'SINGLE-FLOAT)) (GUARD1 (#:IT5440 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5440 'DOUBLE-FLOAT)) (GUARD1 (#:IT5441 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5441 'LONG-FLOAT)) (GUARD1 (#:IT5442 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5442 'INTEGER)) (GUARD1 (#:IT5443 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5443 'RATIONAL)) (GUARD1 (#:IT5444 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5444 'REAL))) (CDR #:CONS5436) (GUARD1 (#:CONS5445 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5445) (CDR #:CONS5445) (GUARD1 (#:CONS5446 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5446) (CDR #:CONS5446) (GUARD1 (#:IT5447 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5447))))) (GUARD1 (#:INTERSECTION5450 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5450 (GUARD1 (#:CONS5448 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5448) (CAR #:CONS5448) (OR1 (GUARD1 (#:IT5451 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5451 'FLOAT)) (GUARD1 (#:IT5452 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5452 'SHORT-FLOAT)) (GUARD1 (#:IT5453 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5453 'SINGLE-FLOAT)) (GUARD1 (#:IT5454 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5454 'DOUBLE-FLOAT)) (GUARD1 (#:IT5455 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5455 'LONG-FLOAT)) (GUARD1 (#:IT5456 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5456 'INTEGER)) (GUARD1 (#:IT5457 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5457 'RATIONAL)) (GUARD1 (#:IT5458 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5458 'REAL))) (CDR #:CONS5448) (GUARD1 (#:CONS5459 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5459) (CDR #:CONS5459) (GUARD1 (#:IT5460 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5460))) #:INTERSECTION5450 (GUARD1 (#:BIND5449 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5464 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5464 (GUARD1 (#:CONS5461 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5461) (CAR #:CONS5461) (OR1 (GUARD1 (#:IT5465 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5465 'FLOAT)) (GUARD1 (#:IT5466 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5466 'SHORT-FLOAT)) (GUARD1 (#:IT5467 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5467 'SINGLE-FLOAT)) (GUARD1 (#:IT5468 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5468 'DOUBLE-FLOAT)) (GUARD1 (#:IT5469 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5469 'LONG-FLOAT)) (GUARD1 (#:IT5470 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5470 'INTEGER)) (GUARD1 (#:IT5471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5471 'RATIONAL)) (GUARD1 (#:IT5472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5472 'REAL))) (CDR #:CONS5461) (GUARD1 (#:IT5473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5473)) #:INTERSECTION5464 (GUARD1 (#:BIND5462 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5464 (GUARD1 (#:BIND5463 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6444 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6445 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6446 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5421 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5421 (GUARD1 (#:IT5420 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5420 'FLOAT) #:INTERSECTION5421 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5421 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5423 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5423 (GUARD1 (#:IT5422 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5422 'SHORT-FLOAT) #:INTERSECTION5423 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5423 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5425 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5425 (GUARD1 (#:IT5424 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5424 'SINGLE-FLOAT) #:INTERSECTION5425 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5425 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5427 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5427 (GUARD1 (#:IT5426 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5426 'DOUBLE-FLOAT) #:INTERSECTION5427 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5427 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5429 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5429 (GUARD1 (#:IT5428 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5428 'LONG-FLOAT) #:INTERSECTION5429 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5429 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5431 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5431 (GUARD1 (#:IT5430 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5430 'INTEGER) #:INTERSECTION5431 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5431 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5433 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5433 (GUARD1 (#:IT5432 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5432 'RATIONAL) #:INTERSECTION5433 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5433 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5435 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5435 (GUARD1 (#:IT5434 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5434 'REAL) #:INTERSECTION5435 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5435 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6447 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6448 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6449 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS5436 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5436) (CAR #:CONS5436) (OR1 (GUARD1 (#:IT5437 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5437 'FLOAT)) (GUARD1 (#:IT5438 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5438 'SHORT-FLOAT)) (GUARD1 (#:IT5439 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5439 'SINGLE-FLOAT)) (GUARD1 (#:IT5440 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5440 'DOUBLE-FLOAT)) (GUARD1 (#:IT5441 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5441 'LONG-FLOAT)) (GUARD1 (#:IT5442 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5442 'INTEGER)) (GUARD1 (#:IT5443 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5443 'RATIONAL)) (GUARD1 (#:IT5444 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5444 'REAL))) (CDR #:CONS5436) (GUARD1 (#:CONS5445 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5445) (CDR #:CONS5445) (GUARD1 (#:CONS5446 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5446) (CDR #:CONS5446) (GUARD1 (#:IT5447 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5447))))) (GUARD1 (#:INTERSECTION5450 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5450 (GUARD1 (#:CONS5448 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5448) (CAR #:CONS5448) (OR1 (GUARD1 (#:IT5451 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5451 'FLOAT)) (GUARD1 (#:IT5452 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5452 'SHORT-FLOAT)) (GUARD1 (#:IT5453 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5453 'SINGLE-FLOAT)) (GUARD1 (#:IT5454 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5454 'DOUBLE-FLOAT)) (GUARD1 (#:IT5455 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5455 'LONG-FLOAT)) (GUARD1 (#:IT5456 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5456 'INTEGER)) (GUARD1 (#:IT5457 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5457 'RATIONAL)) (GUARD1 (#:IT5458 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5458 'REAL))) (CDR #:CONS5448) (GUARD1 (#:CONS5459 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5459) (CDR #:CONS5459) (GUARD1 (#:IT5460 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5460))) #:INTERSECTION5450 (GUARD1 (#:BIND5449 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5464 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5464 (GUARD1 (#:CONS5461 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5461) (CAR #:CONS5461) (OR1 (GUARD1 (#:IT5465 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5465 'FLOAT)) (GUARD1 (#:IT5466 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5466 'SHORT-FLOAT)) (GUARD1 (#:IT5467 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5467 'SINGLE-FLOAT)) (GUARD1 (#:IT5468 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5468 'DOUBLE-FLOAT)) (GUARD1 (#:IT5469 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5469 'LONG-FLOAT)) (GUARD1 (#:IT5470 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5470 'INTEGER)) (GUARD1 (#:IT5471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5471 'RATIONAL)) (GUARD1 (#:IT5472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5472 'REAL))) (CDR #:CONS5461) (GUARD1 (#:IT5473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5473)) #:INTERSECTION5464 (GUARD1 (#:BIND5462 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5464 (GUARD1 (#:BIND5463 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6450 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6451 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6452 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (LET ((#:IT5474 #:WHAT16458)) (DECLARE (IGNORABLE #:IT5474)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:IT5475 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (MATCH1 NIL ((GUARD1 #:IT6453 T) NIL)))))))) Too large jump
ecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD trivialib.type-unify CRASH)
(LOAD trivialib.type-unify.test CRASH)
(LOAD trivialib.type-unify FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<cl-source-file "trivialib.type-unify" "src" "package">
(LOAD trivialib.type-unify.test FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<cl-source-file "trivialib.type-unify" "src" "package">
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD trivialib.type-unify CRASH)
(LOAD trivialib.type-unify.test CRASH)
(LOAD trivialib.type-unify FAIL) SI:SIMPLE-PROGRAM-ERROR : In form (BLOCK TRIVIA.LEVEL1.IMPL::WHOLE (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT74450 #:WHAT176093)) (DECLARE (IGNORABLE #:IT74450)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74450 'FIXNUM) (LOCALLY (DECLARE (TYPE (EQL FIXNUM) #:IT74450)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:IT74454 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74454 'FIXNUM)) (MATCH1 NIL ((GUARD1 #:IT75425 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75426 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75427 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT74450 #:WHAT176093)) (DECLARE (IGNORABLE #:IT74450)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74450 'FIXNUM) (LOCALLY (DECLARE (TYPE (EQL FIXNUM) #:IT74450)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74455 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74455) (CAR #:CONS74455) (GUARD1 (#:IT74456 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74456 'FIXNUM)) (CDR #:CONS74455) (GUARD1 (#:IT74457 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74457)))) (MATCH1 NIL ((GUARD1 #:IT75428 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75429 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75430 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75111 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75111)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75111) (LOCALLY (DECLARE (TYPE CONS #:FUSION75111)) (LET ((#:CONS74451 #:FUSION75111)) (DECLARE (IGNORABLE #:CONS74451)) (LOCALLY (DECLARE (TYPE CONS #:CONS74451)) (LET ((#:GEN75112 (CAR #:FUSION75111))) (DECLARE (IGNORABLE #:GEN75112)) (LET ((#:GEN75113 (CDR #:FUSION75111))) (DECLARE (IGNORABLE #:GEN75113)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75114 T) (MATCH1 NIL ((GUARD1 #:IT75431 T) (MATCH2*+ (#:GEN75112 #:GEN75113 #:PAT75114) (T T T) (((GUARD1 (#:IT74452 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74452 'FIXNUM)) (GUARD1 (#:IT74453 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74453)) (GUARD1 (#:IT74454 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74454 'FIXNUM))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74452 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74452 'FIXNUM)) (GUARD1 (#:IT74453 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74453)) (GUARD1 (#:CONS74455 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74455) (CAR #:CONS74455) (GUARD1 (#:IT74456 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74456 'FIXNUM)) (CDR #:CONS74455) (GUARD1 (#:IT74457 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74457)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75432 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75433 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT74458 #:WHAT176093)) (DECLARE (IGNORABLE #:IT74458)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74458 'BIGNUM) (LOCALLY (DECLARE (TYPE (EQL BIGNUM) #:IT74458)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:IT74462 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74462 'BIGNUM)) (MATCH1 NIL ((GUARD1 #:IT75434 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75435 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75436 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT74458 #:WHAT176093)) (DECLARE (IGNORABLE #:IT74458)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74458 'BIGNUM) (LOCALLY (DECLARE (TYPE (EQL BIGNUM) #:IT74458)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74463 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74463) (CAR #:CONS74463) (GUARD1 (#:IT74464 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74464 'BIGNUM)) (CDR #:CONS74463) (GUARD1 (#:IT74465 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74465)))) (MATCH1 NIL ((GUARD1 #:IT75437 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75438 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75439 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75115 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75115)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75115) (LOCALLY (DECLARE (TYPE CONS #:FUSION75115)) (LET ((#:CONS74459 #:FUSION75115)) (DECLARE (IGNORABLE #:CONS74459)) (LOCALLY (DECLARE (TYPE CONS #:CONS74459)) (LET ((#:GEN75116 (CAR #:FUSION75115))) (DECLARE (IGNORABLE #:GEN75116)) (LET ((#:GEN75117 (CDR #:FUSION75115))) (DECLARE (IGNORABLE #:GEN75117)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75118 T) (MATCH1 NIL ((GUARD1 #:IT75440 T) (MATCH2*+ (#:GEN75116 #:GEN75117 #:PAT75118) (T T T) (((GUARD1 (#:IT74460 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74460 'BIGNUM)) (GUARD1 (#:IT74461 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74461)) (GUARD1 (#:IT74462 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74462 'BIGNUM))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74460 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74460 'BIGNUM)) (GUARD1 (#:IT74461 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74461)) (GUARD1 (#:CONS74463 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74463) (CAR #:CONS74463) (GUARD1 (#:IT74464 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74464 'BIGNUM)) (CDR #:CONS74463) (GUARD1 (#:IT74465 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74465)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75441 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75442 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74469 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74469)) (LET ((#:IT74466 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:IT74466)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74466 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74466)) (LET ((#:BIND74467 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74467)) (LET ((#:BIND74468 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74468)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74490 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74490 (GUARD1 (#:CONS74488 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74488) (CAR #:CONS74488) (GUARD1 (#:IT74491 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74491 'MOD)) (CDR #:CONS74488) (GUARD1 (#:CONS74492 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74492) (CAR #:CONS74492) (GUARD1 (#:N74487 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74492) (GUARD1 (#:IT74493 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74493))) #:INTERSECTION74490 (GUARD1 (#:BIND74489 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75443 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75444 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75445 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74469 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74469)) (LET ((#:IT74466 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:IT74466)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74466 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74466)) (LET ((#:BIND74467 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74467)) (LET ((#:BIND74468 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74468)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74497 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74497 (GUARD1 (#:IT74494 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74494 'BIT) #:INTERSECTION74497 (GUARD1 (#:BIND74495 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74497 (GUARD1 (#:BIND74496 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75446 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75447 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75448 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74469 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74469)) (LET ((#:IT74466 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:IT74466)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74466 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74466)) (LET ((#:BIND74467 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74467)) (LET ((#:BIND74468 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74468)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74501 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74501 (GUARD1 (#:CONS74500 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74500) (CAR #:CONS74500) (GUARD1 (#:IT74502 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74502 'UNSIGNED-BYTE)) (CDR #:CONS74500) (GUARD1 (#:CONS74503 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74503) (CAR #:CONS74503) (GUARD1 (#:INTERSECTION74505 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74505 (GUARD1 (#:IT74504 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74504 'FIXNUM) #:INTERSECTION74505 (GUARD1 (#:N74498 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74503) (GUARD1 (#:IT74506 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74506))) #:INTERSECTION74501 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74508 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74508 (GUARD1 (#:CONS74507 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74507) (CAR #:CONS74507) (GUARD1 (#:IT74509 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74509 'UNSIGNED-BYTE)) (CDR #:CONS74507) (GUARD1 (#:CONS74510 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74510) (CAR #:CONS74510) (GUARD1 (#:INTERSECTION74513 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74513 (GUARD1 (#:IT74511 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74511 '*) #:INTERSECTION74513 (GUARD1 (#:IT74512 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74510) (GUARD1 (#:IT74514 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74514))) #:INTERSECTION74508 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74518 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74518 (GUARD1 (#:INTERSECTION74517 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74517 (GUARD1 (#:CONS74515 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74515) (CAR #:CONS74515) (GUARD1 (#:IT74519 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74519 'UNSIGNED-BYTE)) (CDR #:CONS74515) (GUARD1 (#:IT74520 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74520)) #:INTERSECTION74517 (GUARD1 (#:BIND74516 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION74518 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75449 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75450 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75451 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74469 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74469)) (LET ((#:IT74466 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:IT74466)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74466 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74466)) (LET ((#:BIND74467 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74467)) (LET ((#:BIND74468 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74468)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74527 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74527 (GUARD1 (#:CONS74522 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74522) (CAR #:CONS74522) (GUARD1 (#:IT74523 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74523 'SIGNED-BYTE)) (CDR #:CONS74522) (GUARD1 (#:CONS74524 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74524) (CAR #:CONS74524) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N74521 'FIXNUM)) (CDR #:CONS74524) (GUARD1 (#:IT74525 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74525))) #:INTERSECTION74527 (GUARD1 (#:LIFT-DUMMY74526 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION74533 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74533 (GUARD1 (#:CONS74528 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74528) (CAR #:CONS74528) (GUARD1 (#:IT74529 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74529 'SIGNED-BYTE)) (CDR #:CONS74528) (GUARD1 (#:CONS74530 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74530) (CAR #:CONS74530) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N74521)) (CDR #:CONS74530) (GUARD1 (#:IT74531 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74531))) #:INTERSECTION74533 (GUARD1 (#:LIFT-DUMMY74532 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION74537 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74537 (GUARD1 (#:CONS74534 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74534) (CAR #:CONS74534) (GUARD1 (#:IT74535 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74535 'SIGNED-BYTE)) (CDR #:CONS74534) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N74521)) #:INTERSECTION74537 (GUARD1 (#:LIFT-DUMMY74536 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION74539 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74539 (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N74521) #:INTERSECTION74539 (GUARD1 (#:LIFT-DUMMY74538 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (MATCH1 NIL ((GUARD1 #:IT75452 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75453 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75454 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74469 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74469)) (LET ((#:IT74466 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:IT74466)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74466 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74466)) (LET ((#:BIND74467 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74467)) (LET ((#:BIND74468 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74468)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74543 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74543 (GUARD1 (#:IT74540 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74540 'BIGNUM) #:INTERSECTION74543 (GUARD1 (#:BIND74541 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74543 (GUARD1 (#:BIND74542 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION74547 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74547 (GUARD1 (#:CONS74544 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74544) (CAR #:CONS74544) (GUARD1 (#:IT74548 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74548 'BIGNUM)) (CDR #:CONS74544) (GUARD1 (#:IT74549 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74549)) #:INTERSECTION74547 (GUARD1 (#:BIND74545 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74547 (GUARD1 (#:BIND74546 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT75455 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75456 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75457 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74469 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74469)) (LET ((#:IT74466 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:IT74466)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74466 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74466)) (LET ((#:BIND74467 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74467)) (LET ((#:BIND74468 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74468)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74553 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74553 (GUARD1 (#:IT74550 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74550 'FIXNUM) #:INTERSECTION74553 (GUARD1 (#:BIND74551 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74553 (GUARD1 (#:BIND74552 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION74557 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74557 (GUARD1 (#:CONS74554 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74554) (CAR #:CONS74554) (GUARD1 (#:IT74558 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74558 'FIXNUM)) (CDR #:CONS74554) (GUARD1 (#:IT74559 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74559)) #:INTERSECTION74557 (GUARD1 (#:BIND74555 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74557 (GUARD1 (#:BIND74556 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT75458 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75459 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75460 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74469 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74469)) (LET ((#:IT74466 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:IT74466)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74466 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74466)) (LET ((#:BIND74467 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74467)) (LET ((#:BIND74468 #:INTERSECTION74469)) (DECLARE (IGNORABLE #:BIND74468)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74563 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74563 (GUARD1 (#:IT74560 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74560 'INTEGER) #:INTERSECTION74563 (GUARD1 (#:BIND74561 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74563 (GUARD1 (#:BIND74562 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:CONS74564 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74564) (CAR #:CONS74564) (GUARD1 (#:IT74565 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74565 'INTEGER)) (CDR #:CONS74564) (GUARD1 (#:CONS74566 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74566) (CDR #:CONS74566) (GUARD1 (#:CONS74567 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74567) (CDR #:CONS74567) (GUARD1 (#:IT74568 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74568))))) (GUARD1 (#:INTERSECTION74571 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74571 (GUARD1 (#:CONS74569 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74569) (CAR #:CONS74569) (GUARD1 (#:IT74572 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74572 'INTEGER)) (CDR #:CONS74569) (GUARD1 (#:CONS74573 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74573) (CDR #:CONS74573) (GUARD1 (#:IT74574 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74574))) #:INTERSECTION74571 (GUARD1 (#:BIND74570 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74578 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74578 (GUARD1 (#:CONS74575 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74575) (CAR #:CONS74575) (GUARD1 (#:IT74579 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74579 'INTEGER)) (CDR #:CONS74575) (GUARD1 (#:IT74580 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74580)) #:INTERSECTION74578 (GUARD1 (#:BIND74576 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74578 (GUARD1 (#:BIND74577 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT75461 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75462 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75463 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS74470 #:WHAT176093)) (DECLARE (IGNORABLE #:CONS74470)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74470) (LOCALLY (DECLARE (TYPE CONS #:CONS74470)) (LET ((#:IT74471 (CAR #:CONS74470))) (DECLARE (IGNORABLE #:IT74471)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74471 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74471)) (LET ((#:CONS74472 (CDR #:CONS74470))) (DECLARE (IGNORABLE #:CONS74472)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74472) (LOCALLY (DECLARE (TYPE CONS #:CONS74472)) (LET ((#:CONS74473 (CDR #:CONS74472))) (DECLARE (IGNORABLE #:CONS74473)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74473) (LOCALLY (DECLARE (TYPE CONS #:CONS74473)) (LET ((#:IT74474 (CDR #:CONS74473))) (DECLARE (IGNORABLE #:IT74474)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74474) (LOCALLY (DECLARE (TYPE NULL #:IT74474)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74490 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74490 (GUARD1 (#:CONS74488 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74488) (CAR #:CONS74488) (GUARD1 (#:IT74491 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74491 'MOD)) (CDR #:CONS74488) (GUARD1 (#:CONS74492 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74492) (CAR #:CONS74492) (GUARD1 (#:N74487 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74492) (GUARD1 (#:IT74493 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74493))) #:INTERSECTION74490 (GUARD1 (#:BIND74489 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75464 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75465 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75466 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74490 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74490 (GUARD1 (#:CONS74488 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74488) (CAR #:CONS74488) (GUARD1 (#:IT74491 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74491 'MOD)) (CDR #:CONS74488) (GUARD1 (#:CONS74492 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74492) (CAR #:CONS74492) (GUARD1 (#:N74487 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74492) (GUARD1 (#:IT74493 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74493))) #:INTERSECTION74490 (GUARD1 (#:BIND74489 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75467 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75468 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75469 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74490 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74490 (GUARD1 (#:CONS74488 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74488) (CAR #:CONS74488) (GUARD1 (#:IT74491 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74491 'MOD)) (CDR #:CONS74488) (GUARD1 (#:CONS74492 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74492) (CAR #:CONS74492) (GUARD1 (#:N74487 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74492) (GUARD1 (#:IT74493 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74493))) #:INTERSECTION74490 (GUARD1 (#:BIND74489 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75470 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75471 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75472 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS74470 #:WHAT176093)) (DECLARE (IGNORABLE #:CONS74470)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74470) (LOCALLY (DECLARE (TYPE CONS #:CONS74470)) (LET ((#:IT74471 (CAR #:CONS74470))) (DECLARE (IGNORABLE #:IT74471)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74471 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74471)) (LET ((#:CONS74472 (CDR #:CONS74470))) (DECLARE (IGNORABLE #:CONS74472)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74472) (LOCALLY (DECLARE (TYPE CONS #:CONS74472)) (LET ((#:CONS74473 (CDR #:CONS74472))) (DECLARE (IGNORABLE #:CONS74473)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74473) (LOCALLY (DECLARE (TYPE CONS #:CONS74473)) (LET ((#:IT74474 (CDR #:CONS74473))) (DECLARE (IGNORABLE #:IT74474)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74474) (LOCALLY (DECLARE (TYPE NULL #:IT74474)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74497 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74497 (GUARD1 (#:IT74494 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74494 'BIT) #:INTERSECTION74497 (GUARD1 (#:BIND74495 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74497 (GUARD1 (#:BIND74496 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75473 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75474 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75475 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74497 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74497 (GUARD1 (#:IT74494 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74494 'BIT) #:INTERSECTION74497 (GUARD1 (#:BIND74495 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74497 (GUARD1 (#:BIND74496 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75476 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75477 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75478 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74497 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74497 (GUARD1 (#:IT74494 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74494 'BIT) #:INTERSECTION74497 (GUARD1 (#:BIND74495 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74497 (GUARD1 (#:BIND74496 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75479 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75480 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75481 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75128 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75128)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75128) (LOCALLY (DECLARE (TYPE CONS #:FUSION75128)) (LET ((#:CONS74470 #:FUSION75128)) (DECLARE (IGNORABLE #:CONS74470)) (LOCALLY (DECLARE (TYPE CONS #:CONS74470)) (LET ((#:GEN75129 (CAR #:FUSION75128))) (DECLARE (IGNORABLE #:GEN75129)) (LET ((#:GEN75130 (CDR #:FUSION75128))) (DECLARE (IGNORABLE #:GEN75130)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75131 T) (MATCH1 NIL ((GUARD1 #:IT75482 T) (MATCH2*+ (#:GEN75129 #:GEN75130 #:PAT75131) (T T T) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (GUARD1 (#:INTERSECTION74501 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74501 (GUARD1 (#:CONS74500 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74500) (CAR #:CONS74500) (GUARD1 (#:IT74502 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74502 'UNSIGNED-BYTE)) (CDR #:CONS74500) (GUARD1 (#:CONS74503 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74503) (CAR #:CONS74503) (GUARD1 (#:INTERSECTION74505 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74505 (GUARD1 (#:IT74504 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74504 'FIXNUM) #:INTERSECTION74505 (GUARD1 (#:N74498 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74503) (GUARD1 (#:IT74506 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74506))) #:INTERSECTION74501 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (GUARD1 (#:INTERSECTION74508 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74508 (GUARD1 (#:CONS74507 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74507) (CAR #:CONS74507) (GUARD1 (#:IT74509 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74509 'UNSIGNED-BYTE)) (CDR #:CONS74507) (GUARD1 (#:CONS74510 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74510) (CAR #:CONS74510) (GUARD1 (#:INTERSECTION74513 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74513 (GUARD1 (#:IT74511 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74511 '*) #:INTERSECTION74513 (GUARD1 (#:IT74512 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74510) (GUARD1 (#:IT74514 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74514))) #:INTERSECTION74508 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (GUARD1 (#:INTERSECTION74518 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74518 (GUARD1 (#:INTERSECTION74517 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74517 (GUARD1 (#:CONS74515 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74515) (CAR #:CONS74515) (GUARD1 (#:IT74519 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74519 'UNSIGNED-BYTE)) (CDR #:CONS74515) (GUARD1 (#:IT74520 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74520)) #:INTERSECTION74517 (GUARD1 (#:BIND74516 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION74518 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75483 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75484 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74501 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74501 (GUARD1 (#:CONS74500 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74500) (CAR #:CONS74500) (GUARD1 (#:IT74502 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74502 'UNSIGNED-BYTE)) (CDR #:CONS74500) (GUARD1 (#:CONS74503 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74503) (CAR #:CONS74503) (GUARD1 (#:INTERSECTION74505 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74505 (GUARD1 (#:IT74504 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74504 'FIXNUM) #:INTERSECTION74505 (GUARD1 (#:N74498 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74503) (GUARD1 (#:IT74506 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74506))) #:INTERSECTION74501 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75485 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75486 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75487 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74508 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74508 (GUARD1 (#:CONS74507 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74507) (CAR #:CONS74507) (GUARD1 (#:IT74509 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74509 'UNSIGNED-BYTE)) (CDR #:CONS74507) (GUARD1 (#:CONS74510 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74510) (CAR #:CONS74510) (GUARD1 (#:INTERSECTION74513 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74513 (GUARD1 (#:IT74511 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74511 '*) #:INTERSECTION74513 (GUARD1 (#:IT74512 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74510) (GUARD1 (#:IT74514 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74514))) #:INTERSECTION74508 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75488 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75489 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75490 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74518 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74518 (GUARD1 (#:INTERSECTION74517 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74517 (GUARD1 (#:CONS74515 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74515) (CAR #:CONS74515) (GUARD1 (#:IT74519 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74519 'UNSIGNED-BYTE)) (CDR #:CONS74515) (GUARD1 (#:IT74520 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74520)) #:INTERSECTION74517 (GUARD1 (#:BIND74516 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION74518 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75491 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75492 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75493 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74501 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74501 (GUARD1 (#:CONS74500 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74500) (CAR #:CONS74500) (GUARD1 (#:IT74502 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74502 'UNSIGNED-BYTE)) (CDR #:CONS74500) (GUARD1 (#:CONS74503 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74503) (CAR #:CONS74503) (GUARD1 (#:INTERSECTION74505 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74505 (GUARD1 (#:IT74504 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74504 'FIXNUM) #:INTERSECTION74505 (GUARD1 (#:N74498 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74503) (GUARD1 (#:IT74506 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74506))) #:INTERSECTION74501 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75494 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75495 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75496 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74508 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74508 (GUARD1 (#:CONS74507 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74507) (CAR #:CONS74507) (GUARD1 (#:IT74509 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74509 'UNSIGNED-BYTE)) (CDR #:CONS74507) (GUARD1 (#:CONS74510 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74510) (CAR #:CONS74510) (GUARD1 (#:INTERSECTION74513 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74513 (GUARD1 (#:IT74511 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74511 '*) #:INTERSECTION74513 (GUARD1 (#:IT74512 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74510) (GUARD1 (#:IT74514 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74514))) #:INTERSECTION74508 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75497 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75498 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75499 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74518 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74518 (GUARD1 (#:INTERSECTION74517 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74517 (GUARD1 (#:CONS74515 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74515) (CAR #:CONS74515) (GUARD1 (#:IT74519 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74519 'UNSIGNED-BYTE)) (CDR #:CONS74515) (GUARD1 (#:IT74520 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74520)) #:INTERSECTION74517 (GUARD1 (#:BIND74516 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION74518 (GUARD1 (#:BIND74499 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75500 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75501 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75502 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75135 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75135)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75135) (LOCALLY (DECLARE (TYPE CONS #:FUSION75135)) (LET ((#:CONS74470 #:FUSION75135)) (DECLARE (IGNORABLE #:CONS74470)) (LOCALLY (DECLARE (TYPE CONS #:CONS74470)) (LET ((#:GEN75136 (CAR #:FUSION75135))) (DECLARE (IGNORABLE #:GEN75136)) (LET ((#:GEN75137 (CDR #:FUSION75135))) (DECLARE (IGNORABLE #:GEN75137)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75138 T) (MATCH1 NIL ((GUARD1 #:IT75503 T) (MATCH2*+ (#:GEN75136 #:GEN75137 #:PAT75138) (T T T) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (GUARD1 (#:INTERSECTION74527 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74527 (GUARD1 (#:CONS74522 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74522) (CAR #:CONS74522) (GUARD1 (#:IT74523 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74523 'SIGNED-BYTE)) (CDR #:CONS74522) (GUARD1 (#:CONS74524 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74524) (CAR #:CONS74524) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N74521 'FIXNUM)) (CDR #:CONS74524) (GUARD1 (#:IT74525 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74525))) #:INTERSECTION74527 (GUARD1 (#:LIFT-DUMMY74526 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (GUARD1 (#:INTERSECTION74533 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74533 (GUARD1 (#:CONS74528 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74528) (CAR #:CONS74528) (GUARD1 (#:IT74529 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74529 'SIGNED-BYTE)) (CDR #:CONS74528) (GUARD1 (#:CONS74530 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74530) (CAR #:CONS74530) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N74521)) (CDR #:CONS74530) (GUARD1 (#:IT74531 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74531))) #:INTERSECTION74533 (GUARD1 (#:LIFT-DUMMY74532 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (GUARD1 (#:INTERSECTION74537 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74537 (GUARD1 (#:CONS74534 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74534) (CAR #:CONS74534) (GUARD1 (#:IT74535 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74535 'SIGNED-BYTE)) (CDR #:CONS74534) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N74521)) #:INTERSECTION74537 (GUARD1 (#:LIFT-DUMMY74536 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (GUARD1 (#:INTERSECTION74539 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74539 (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N74521) #:INTERSECTION74539 (GUARD1 (#:LIFT-DUMMY74538 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75504 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75505 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74527 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74527 (GUARD1 (#:CONS74522 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74522) (CAR #:CONS74522) (GUARD1 (#:IT74523 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74523 'SIGNED-BYTE)) (CDR #:CONS74522) (GUARD1 (#:CONS74524 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74524) (CAR #:CONS74524) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N74521 'FIXNUM)) (CDR #:CONS74524) (GUARD1 (#:IT74525 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74525))) #:INTERSECTION74527 (GUARD1 (#:LIFT-DUMMY74526 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75506 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75507 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75508 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74533 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74533 (GUARD1 (#:CONS74528 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74528) (CAR #:CONS74528) (GUARD1 (#:IT74529 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74529 'SIGNED-BYTE)) (CDR #:CONS74528) (GUARD1 (#:CONS74530 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74530) (CAR #:CONS74530) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N74521)) (CDR #:CONS74530) (GUARD1 (#:IT74531 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74531))) #:INTERSECTION74533 (GUARD1 (#:LIFT-DUMMY74532 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75509 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75510 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75511 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74537 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74537 (GUARD1 (#:CONS74534 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74534) (CAR #:CONS74534) (GUARD1 (#:IT74535 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74535 'SIGNED-BYTE)) (CDR #:CONS74534) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N74521)) #:INTERSECTION74537 (GUARD1 (#:LIFT-DUMMY74536 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75512 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75513 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75514 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74539 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74539 (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N74521) #:INTERSECTION74539 (GUARD1 (#:LIFT-DUMMY74538 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75515 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75516 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75517 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74527 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74527 (GUARD1 (#:CONS74522 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74522) (CAR #:CONS74522) (GUARD1 (#:IT74523 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74523 'SIGNED-BYTE)) (CDR #:CONS74522) (GUARD1 (#:CONS74524 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74524) (CAR #:CONS74524) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N74521 'FIXNUM)) (CDR #:CONS74524) (GUARD1 (#:IT74525 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74525))) #:INTERSECTION74527 (GUARD1 (#:LIFT-DUMMY74526 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75518 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75519 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75520 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74533 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74533 (GUARD1 (#:CONS74528 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74528) (CAR #:CONS74528) (GUARD1 (#:IT74529 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74529 'SIGNED-BYTE)) (CDR #:CONS74528) (GUARD1 (#:CONS74530 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74530) (CAR #:CONS74530) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N74521)) (CDR #:CONS74530) (GUARD1 (#:IT74531 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74531))) #:INTERSECTION74533 (GUARD1 (#:LIFT-DUMMY74532 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75521 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75522 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75523 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74537 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74537 (GUARD1 (#:CONS74534 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74534) (CAR #:CONS74534) (GUARD1 (#:IT74535 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74535 'SIGNED-BYTE)) (CDR #:CONS74534) (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N74521)) #:INTERSECTION74537 (GUARD1 (#:LIFT-DUMMY74536 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75524 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75525 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75526 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74539 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74539 (GUARD1 (#:N74521 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N74521) #:INTERSECTION74539 (GUARD1 (#:LIFT-DUMMY74538 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75527 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75528 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75529 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75142 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75142)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75142) (LOCALLY (DECLARE (TYPE CONS #:FUSION75142)) (LET ((#:CONS74470 #:FUSION75142)) (DECLARE (IGNORABLE #:CONS74470)) (LOCALLY (DECLARE (TYPE CONS #:CONS74470)) (LET ((#:GEN75143 (CAR #:FUSION75142))) (DECLARE (IGNORABLE #:GEN75143)) (LET ((#:GEN75144 (CDR #:FUSION75142))) (DECLARE (IGNORABLE #:GEN75144)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75145 T) (MATCH1 NIL ((GUARD1 #:IT75530 T) (MATCH2*+ (#:GEN75143 #:GEN75144 #:PAT75145) (T T T) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (GUARD1 (#:INTERSECTION74543 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74543 (GUARD1 (#:IT74540 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74540 'BIGNUM) #:INTERSECTION74543 (GUARD1 (#:BIND74541 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74543 (GUARD1 (#:BIND74542 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (OR1 (GUARD1 (#:INTERSECTION74547 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74547 (GUARD1 (#:CONS74544 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74544) (CAR #:CONS74544) (GUARD1 (#:IT74548 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74548 'BIGNUM)) (CDR #:CONS74544) (GUARD1 (#:IT74549 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74549)) #:INTERSECTION74547 (GUARD1 (#:BIND74545 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74547 (GUARD1 (#:BIND74546 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75531 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75532 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74543 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74543 (GUARD1 (#:IT74540 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74540 'BIGNUM) #:INTERSECTION74543 (GUARD1 (#:BIND74541 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74543 (GUARD1 (#:BIND74542 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75533 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75534 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75535 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74547 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74547 (GUARD1 (#:CONS74544 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74544) (CAR #:CONS74544) (GUARD1 (#:IT74548 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74548 'BIGNUM)) (CDR #:CONS74544) (GUARD1 (#:IT74549 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74549)) #:INTERSECTION74547 (GUARD1 (#:BIND74545 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74547 (GUARD1 (#:BIND74546 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75536 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75537 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75538 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74543 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74543 (GUARD1 (#:IT74540 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74540 'BIGNUM) #:INTERSECTION74543 (GUARD1 (#:BIND74541 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74543 (GUARD1 (#:BIND74542 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75539 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75540 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75541 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74547 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74547 (GUARD1 (#:CONS74544 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74544) (CAR #:CONS74544) (GUARD1 (#:IT74548 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74548 'BIGNUM)) (CDR #:CONS74544) (GUARD1 (#:IT74549 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74549)) #:INTERSECTION74547 (GUARD1 (#:BIND74545 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74547 (GUARD1 (#:BIND74546 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75542 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75543 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75544 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75149 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75149)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75149) (LOCALLY (DECLARE (TYPE CONS #:FUSION75149)) (LET ((#:CONS74470 #:FUSION75149)) (DECLARE (IGNORABLE #:CONS74470)) (LOCALLY (DECLARE (TYPE CONS #:CONS74470)) (LET ((#:GEN75150 (CAR #:FUSION75149))) (DECLARE (IGNORABLE #:GEN75150)) (LET ((#:GEN75151 (CDR #:FUSION75149))) (DECLARE (IGNORABLE #:GEN75151)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75152 T) (MATCH1 NIL ((GUARD1 #:IT75545 T) (MATCH2*+ (#:GEN75150 #:GEN75151 #:PAT75152) (T T T) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (GUARD1 (#:INTERSECTION74553 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74553 (GUARD1 (#:IT74550 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74550 'FIXNUM) #:INTERSECTION74553 (GUARD1 (#:BIND74551 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74553 (GUARD1 (#:BIND74552 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (OR1 (GUARD1 (#:INTERSECTION74557 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74557 (GUARD1 (#:CONS74554 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74554) (CAR #:CONS74554) (GUARD1 (#:IT74558 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74558 'FIXNUM)) (CDR #:CONS74554) (GUARD1 (#:IT74559 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74559)) #:INTERSECTION74557 (GUARD1 (#:BIND74555 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74557 (GUARD1 (#:BIND74556 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75546 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75547 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74553 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74553 (GUARD1 (#:IT74550 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74550 'FIXNUM) #:INTERSECTION74553 (GUARD1 (#:BIND74551 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74553 (GUARD1 (#:BIND74552 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75548 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75549 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75550 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74557 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74557 (GUARD1 (#:CONS74554 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74554) (CAR #:CONS74554) (GUARD1 (#:IT74558 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74558 'FIXNUM)) (CDR #:CONS74554) (GUARD1 (#:IT74559 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74559)) #:INTERSECTION74557 (GUARD1 (#:BIND74555 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74557 (GUARD1 (#:BIND74556 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75551 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75552 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75553 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74553 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74553 (GUARD1 (#:IT74550 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74550 'FIXNUM) #:INTERSECTION74553 (GUARD1 (#:BIND74551 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74553 (GUARD1 (#:BIND74552 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75554 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75555 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75556 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74557 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74557 (GUARD1 (#:CONS74554 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74554) (CAR #:CONS74554) (GUARD1 (#:IT74558 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74558 'FIXNUM)) (CDR #:CONS74554) (GUARD1 (#:IT74559 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74559)) #:INTERSECTION74557 (GUARD1 (#:BIND74555 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74557 (GUARD1 (#:BIND74556 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75557 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75558 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75559 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75156 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75156)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75156) (LOCALLY (DECLARE (TYPE CONS #:FUSION75156)) (LET ((#:CONS74470 #:FUSION75156)) (DECLARE (IGNORABLE #:CONS74470)) (LOCALLY (DECLARE (TYPE CONS #:CONS74470)) (LET ((#:GEN75157 (CAR #:FUSION75156))) (DECLARE (IGNORABLE #:GEN75157)) (LET ((#:GEN75158 (CDR #:FUSION75156))) (DECLARE (IGNORABLE #:GEN75158)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75159 T) (MATCH1 NIL ((GUARD1 #:IT75560 T) (MATCH2*+ (#:GEN75157 #:GEN75158 #:PAT75159) (T T T) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (GUARD1 (#:INTERSECTION74563 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74563 (GUARD1 (#:IT74560 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74560 'INTEGER) #:INTERSECTION74563 (GUARD1 (#:BIND74561 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74563 (GUARD1 (#:BIND74562 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74471 'INTEGER)) (GUARD1 (#:CONS74472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74472) (CDR #:CONS74472) (GUARD1 (#:CONS74473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74473) (CDR #:CONS74473) (GUARD1 (#:IT74474 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74474)))) (OR1 (GUARD1 (#:CONS74564 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74564) (CAR #:CONS74564) (GUARD1 (#:IT74565 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74565 'INTEGER)) (CDR #:CONS74564) (GUARD1 (#:CONS74566 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74566) (CDR #:CONS74566) (GUARD1 (#:CONS74567 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74567) (CDR #:CONS74567) (GUARD1 (#:IT74568 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74568))))) (GUARD1 (#:INTERSECTION74571 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74571 (GUARD1 (#:CONS74569 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74569) (CAR #:CONS74569) (GUARD1 (#:IT74572 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74572 'INTEGER)) (CDR #:CONS74569) (GUARD1 (#:CONS74573 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74573) (CDR #:CONS74573) (GUARD1 (#:IT74574 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74574))) #:INTERSECTION74571 (GUARD1 (#:BIND74570 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74578 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74578 (GUARD1 (#:CONS74575 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74575) (CAR #:CONS74575) (GUARD1 (#:IT74579 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74579 'INTEGER)) (CDR #:CONS74575) (GUARD1 (#:IT74580 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74580)) #:INTERSECTION74578 (GUARD1 (#:BIND74576 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74578 (GUARD1 (#:BIND74577 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75561 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75562 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74563 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74563 (GUARD1 (#:IT74560 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74560 'INTEGER) #:INTERSECTION74563 (GUARD1 (#:BIND74561 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74563 (GUARD1 (#:BIND74562 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75563 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75564 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75565 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74477 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74477)) (LET ((#:CONS74475 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:CONS74475)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74475) (LOCALLY (DECLARE (TYPE CONS #:CONS74475)) (LET ((#:IT74478 (CAR #:CONS74475))) (DECLARE (IGNORABLE #:IT74478)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74478 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74478)) (LET ((#:CONS74479 (CDR #:CONS74475))) (DECLARE (IGNORABLE #:CONS74479)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74479) (LOCALLY (DECLARE (TYPE CONS #:CONS74479)) (LET ((#:IT74480 (CDR #:CONS74479))) (DECLARE (IGNORABLE #:IT74480)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74480) (LOCALLY (DECLARE (TYPE NULL #:IT74480)) (LET ((#:BIND74476 #:INTERSECTION74477)) (DECLARE (IGNORABLE #:BIND74476)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74564 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74564) (CAR #:CONS74564) (GUARD1 (#:IT74565 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74565 'INTEGER)) (CDR #:CONS74564) (GUARD1 (#:CONS74566 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74566) (CDR #:CONS74566) (GUARD1 (#:CONS74567 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74567) (CDR #:CONS74567) (GUARD1 (#:IT74568 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74568))))) (GUARD1 (#:INTERSECTION74571 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74571 (GUARD1 (#:CONS74569 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74569) (CAR #:CONS74569) (GUARD1 (#:IT74572 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74572 'INTEGER)) (CDR #:CONS74569) (GUARD1 (#:CONS74573 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74573) (CDR #:CONS74573) (GUARD1 (#:IT74574 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74574))) #:INTERSECTION74571 (GUARD1 (#:BIND74570 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74578 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74578 (GUARD1 (#:CONS74575 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74575) (CAR #:CONS74575) (GUARD1 (#:IT74579 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74579 'INTEGER)) (CDR #:CONS74575) (GUARD1 (#:IT74580 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74580)) #:INTERSECTION74578 (GUARD1 (#:BIND74576 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74578 (GUARD1 (#:BIND74577 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75566 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75567 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75568 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74563 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74563 (GUARD1 (#:IT74560 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74560 'INTEGER) #:INTERSECTION74563 (GUARD1 (#:BIND74561 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74563 (GUARD1 (#:BIND74562 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75569 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75570 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75571 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74484 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74484)) (LET ((#:CONS74481 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:CONS74481)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74481) (LOCALLY (DECLARE (TYPE CONS #:CONS74481)) (LET ((#:IT74485 (CAR #:CONS74481))) (DECLARE (IGNORABLE #:IT74485)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74485 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT74485)) (LET ((#:IT74486 (CDR #:CONS74481))) (DECLARE (IGNORABLE #:IT74486)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74486) (LOCALLY (DECLARE (TYPE NULL #:IT74486)) (LET ((#:BIND74482 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74482)) (LET ((#:BIND74483 #:INTERSECTION74484)) (DECLARE (IGNORABLE #:BIND74483)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74564 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74564) (CAR #:CONS74564) (GUARD1 (#:IT74565 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74565 'INTEGER)) (CDR #:CONS74564) (GUARD1 (#:CONS74566 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74566) (CDR #:CONS74566) (GUARD1 (#:CONS74567 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74567) (CDR #:CONS74567) (GUARD1 (#:IT74568 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74568))))) (GUARD1 (#:INTERSECTION74571 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74571 (GUARD1 (#:CONS74569 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74569) (CAR #:CONS74569) (GUARD1 (#:IT74572 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74572 'INTEGER)) (CDR #:CONS74569) (GUARD1 (#:CONS74573 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74573) (CDR #:CONS74573) (GUARD1 (#:IT74574 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74574))) #:INTERSECTION74571 (GUARD1 (#:BIND74570 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74578 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74578 (GUARD1 (#:CONS74575 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74575) (CAR #:CONS74575) (GUARD1 (#:IT74579 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74579 'INTEGER)) (CDR #:CONS74575) (GUARD1 (#:IT74580 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74580)) #:INTERSECTION74578 (GUARD1 (#:BIND74576 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74578 (GUARD1 (#:BIND74577 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75572 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75573 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75574 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74584 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74584)) (LET ((#:IT74581 #:INTERSECTION74584)) (DECLARE (IGNORABLE #:IT74581)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74581 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT74581)) (LET ((#:BIND74582 #:INTERSECTION74584)) (DECLARE (IGNORABLE #:BIND74582)) (LET ((#:BIND74583 #:INTERSECTION74584)) (DECLARE (IGNORABLE #:BIND74583)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74605 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74605 (GUARD1 (#:IT74602 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74602 'SINGLE-FLOAT) #:INTERSECTION74605 (GUARD1 (#:BIND74603 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74605 (GUARD1 (#:BIND74604 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75575 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75576 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75577 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74584 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74584)) (LET ((#:IT74581 #:INTERSECTION74584)) (DECLARE (IGNORABLE #:IT74581)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74581 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT74581)) (LET ((#:BIND74582 #:INTERSECTION74584)) (DECLARE (IGNORABLE #:BIND74582)) (LET ((#:BIND74583 #:INTERSECTION74584)) (DECLARE (IGNORABLE #:BIND74583)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74606 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74606) (CAR #:CONS74606) (GUARD1 (#:IT74607 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74607 'SINGLE-FLOAT)) (CDR #:CONS74606) (GUARD1 (#:CONS74608 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74608) (CDR #:CONS74608) (GUARD1 (#:CONS74609 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74609) (CDR #:CONS74609) (GUARD1 (#:IT74610 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74610))))) (GUARD1 (#:INTERSECTION74613 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74613 (GUARD1 (#:CONS74611 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74611) (CAR #:CONS74611) (GUARD1 (#:IT74614 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74614 'SINGLE-FLOAT)) (CDR #:CONS74611) (GUARD1 (#:CONS74615 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74615) (CDR #:CONS74615) (GUARD1 (#:IT74616 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74616))) #:INTERSECTION74613 (GUARD1 (#:BIND74612 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74620 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74620 (GUARD1 (#:CONS74617 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74617) (CAR #:CONS74617) (GUARD1 (#:IT74621 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74621 'SINGLE-FLOAT)) (CDR #:CONS74617) (GUARD1 (#:IT74622 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74622)) #:INTERSECTION74620 (GUARD1 (#:BIND74618 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74620 (GUARD1 (#:BIND74619 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75578 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75579 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75580 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS74585 #:WHAT176093)) (DECLARE (IGNORABLE #:CONS74585)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74585) (LOCALLY (DECLARE (TYPE CONS #:CONS74585)) (LET ((#:IT74586 (CAR #:CONS74585))) (DECLARE (IGNORABLE #:IT74586)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74586 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT74586)) (LET ((#:CONS74587 (CDR #:CONS74585))) (DECLARE (IGNORABLE #:CONS74587)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74587) (LOCALLY (DECLARE (TYPE CONS #:CONS74587)) (LET ((#:CONS74588 (CDR #:CONS74587))) (DECLARE (IGNORABLE #:CONS74588)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74588) (LOCALLY (DECLARE (TYPE CONS #:CONS74588)) (LET ((#:IT74589 (CDR #:CONS74588))) (DECLARE (IGNORABLE #:IT74589)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74589) (LOCALLY (DECLARE (TYPE NULL #:IT74589)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74605 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74605 (GUARD1 (#:IT74602 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74602 'SINGLE-FLOAT) #:INTERSECTION74605 (GUARD1 (#:BIND74603 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74605 (GUARD1 (#:BIND74604 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75581 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75582 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75583 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74592 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74592)) (LET ((#:CONS74590 #:INTERSECTION74592)) (DECLARE (IGNORABLE #:CONS74590)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74590) (LOCALLY (DECLARE (TYPE CONS #:CONS74590)) (LET ((#:IT74593 (CAR #:CONS74590))) (DECLARE (IGNORABLE #:IT74593)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74593 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT74593)) (LET ((#:CONS74594 (CDR #:CONS74590))) (DECLARE (IGNORABLE #:CONS74594)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74594) (LOCALLY (DECLARE (TYPE CONS #:CONS74594)) (LET ((#:IT74595 (CDR #:CONS74594))) (DECLARE (IGNORABLE #:IT74595)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74595) (LOCALLY (DECLARE (TYPE NULL #:IT74595)) (LET ((#:BIND74591 #:INTERSECTION74592)) (DECLARE (IGNORABLE #:BIND74591)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74605 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74605 (GUARD1 (#:IT74602 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74602 'SINGLE-FLOAT) #:INTERSECTION74605 (GUARD1 (#:BIND74603 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74605 (GUARD1 (#:BIND74604 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75584 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75585 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75586 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74599 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74599)) (LET ((#:CONS74596 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:CONS74596)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74596) (LOCALLY (DECLARE (TYPE CONS #:CONS74596)) (LET ((#:IT74600 (CAR #:CONS74596))) (DECLARE (IGNORABLE #:IT74600)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74600 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT74600)) (LET ((#:IT74601 (CDR #:CONS74596))) (DECLARE (IGNORABLE #:IT74601)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74601) (LOCALLY (DECLARE (TYPE NULL #:IT74601)) (LET ((#:BIND74597 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:BIND74597)) (LET ((#:BIND74598 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:BIND74598)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74605 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74605 (GUARD1 (#:IT74602 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74602 'SINGLE-FLOAT) #:INTERSECTION74605 (GUARD1 (#:BIND74603 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74605 (GUARD1 (#:BIND74604 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75587 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75588 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75589 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75166 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75166)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75166) (LOCALLY (DECLARE (TYPE CONS #:FUSION75166)) (LET ((#:CONS74585 #:FUSION75166)) (DECLARE (IGNORABLE #:CONS74585)) (LOCALLY (DECLARE (TYPE CONS #:CONS74585)) (LET ((#:GEN75167 (CAR #:FUSION75166))) (DECLARE (IGNORABLE #:GEN75167)) (LET ((#:GEN75168 (CDR #:FUSION75166))) (DECLARE (IGNORABLE #:GEN75168)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75169 T) (MATCH1 NIL ((GUARD1 #:IT75590 T) (MATCH2*+ (#:GEN75167 #:GEN75168 #:PAT75169) (T T T) (((GUARD1 (#:IT74586 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74586 'SINGLE-FLOAT)) (GUARD1 (#:CONS74587 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74587) (CDR #:CONS74587) (GUARD1 (#:CONS74588 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74588) (CDR #:CONS74588) (GUARD1 (#:IT74589 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74589)))) (GUARD1 (#:CONS74606 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74606) (CAR #:CONS74606) (GUARD1 (#:IT74607 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74607 'SINGLE-FLOAT)) (CDR #:CONS74606) (GUARD1 (#:CONS74608 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74608) (CDR #:CONS74608) (GUARD1 (#:CONS74609 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74609) (CDR #:CONS74609) (GUARD1 (#:IT74610 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74610)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74586 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74586 'SINGLE-FLOAT)) (GUARD1 (#:CONS74587 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74587) (CDR #:CONS74587) (GUARD1 (#:CONS74588 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74588) (CDR #:CONS74588) (GUARD1 (#:IT74589 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74589)))) (GUARD1 (#:INTERSECTION74613 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74613 (GUARD1 (#:CONS74611 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74611) (CAR #:CONS74611) (GUARD1 (#:IT74614 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74614 'SINGLE-FLOAT)) (CDR #:CONS74611) (GUARD1 (#:CONS74615 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74615) (CDR #:CONS74615) (GUARD1 (#:IT74616 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74616))) #:INTERSECTION74613 (GUARD1 (#:BIND74612 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74586 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74586 'SINGLE-FLOAT)) (GUARD1 (#:CONS74587 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74587) (CDR #:CONS74587) (GUARD1 (#:CONS74588 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74588) (CDR #:CONS74588) (GUARD1 (#:IT74589 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74589)))) (GUARD1 (#:INTERSECTION74620 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74620 (GUARD1 (#:CONS74617 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74617) (CAR #:CONS74617) (GUARD1 (#:IT74621 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74621 'SINGLE-FLOAT)) (CDR #:CONS74617) (GUARD1 (#:IT74622 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74622)) #:INTERSECTION74620 (GUARD1 (#:BIND74618 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74620 (GUARD1 (#:BIND74619 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75591 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75592 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74592 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74592)) (LET ((#:CONS74590 #:INTERSECTION74592)) (DECLARE (IGNORABLE #:CONS74590)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74590) (LOCALLY (DECLARE (TYPE CONS #:CONS74590)) (LET ((#:IT74593 (CAR #:CONS74590))) (DECLARE (IGNORABLE #:IT74593)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74593 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT74593)) (LET ((#:CONS74594 (CDR #:CONS74590))) (DECLARE (IGNORABLE #:CONS74594)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74594) (LOCALLY (DECLARE (TYPE CONS #:CONS74594)) (LET ((#:IT74595 (CDR #:CONS74594))) (DECLARE (IGNORABLE #:IT74595)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74595) (LOCALLY (DECLARE (TYPE NULL #:IT74595)) (LET ((#:BIND74591 #:INTERSECTION74592)) (DECLARE (IGNORABLE #:BIND74591)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:CONS74606 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74606) (CAR #:CONS74606) (GUARD1 (#:IT74607 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74607 'SINGLE-FLOAT)) (CDR #:CONS74606) (GUARD1 (#:CONS74608 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74608) (CDR #:CONS74608) (GUARD1 (#:CONS74609 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74609) (CDR #:CONS74609) (GUARD1 (#:IT74610 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74610))))) (MATCH1 NIL ((GUARD1 #:IT75593 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75594 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75595 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74592 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74592)) (LET ((#:CONS74590 #:INTERSECTION74592)) (DECLARE (IGNORABLE #:CONS74590)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74590) (LOCALLY (DECLARE (TYPE CONS #:CONS74590)) (LET ((#:IT74593 (CAR #:CONS74590))) (DECLARE (IGNORABLE #:IT74593)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74593 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT74593)) (LET ((#:CONS74594 (CDR #:CONS74590))) (DECLARE (IGNORABLE #:CONS74594)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74594) (LOCALLY (DECLARE (TYPE CONS #:CONS74594)) (LET ((#:IT74595 (CDR #:CONS74594))) (DECLARE (IGNORABLE #:IT74595)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74595) (LOCALLY (DECLARE (TYPE NULL #:IT74595)) (LET ((#:BIND74591 #:INTERSECTION74592)) (DECLARE (IGNORABLE #:BIND74591)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74613 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74613 (GUARD1 (#:CONS74611 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74611) (CAR #:CONS74611) (GUARD1 (#:IT74614 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74614 'SINGLE-FLOAT)) (CDR #:CONS74611) (GUARD1 (#:CONS74615 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74615) (CDR #:CONS74615) (GUARD1 (#:IT74616 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74616))) #:INTERSECTION74613 (GUARD1 (#:BIND74612 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75596 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75597 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75598 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74592 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74592)) (LET ((#:CONS74590 #:INTERSECTION74592)) (DECLARE (IGNORABLE #:CONS74590)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74590) (LOCALLY (DECLARE (TYPE CONS #:CONS74590)) (LET ((#:IT74593 (CAR #:CONS74590))) (DECLARE (IGNORABLE #:IT74593)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74593 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT74593)) (LET ((#:CONS74594 (CDR #:CONS74590))) (DECLARE (IGNORABLE #:CONS74594)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74594) (LOCALLY (DECLARE (TYPE CONS #:CONS74594)) (LET ((#:IT74595 (CDR #:CONS74594))) (DECLARE (IGNORABLE #:IT74595)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74595) (LOCALLY (DECLARE (TYPE NULL #:IT74595)) (LET ((#:BIND74591 #:INTERSECTION74592)) (DECLARE (IGNORABLE #:BIND74591)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74620 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74620 (GUARD1 (#:CONS74617 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74617) (CAR #:CONS74617) (GUARD1 (#:IT74621 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74621 'SINGLE-FLOAT)) (CDR #:CONS74617) (GUARD1 (#:IT74622 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74622)) #:INTERSECTION74620 (GUARD1 (#:BIND74618 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74620 (GUARD1 (#:BIND74619 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75599 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75600 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75601 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74599 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74599)) (LET ((#:CONS74596 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:CONS74596)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74596) (LOCALLY (DECLARE (TYPE CONS #:CONS74596)) (LET ((#:IT74600 (CAR #:CONS74596))) (DECLARE (IGNORABLE #:IT74600)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74600 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT74600)) (LET ((#:IT74601 (CDR #:CONS74596))) (DECLARE (IGNORABLE #:IT74601)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74601) (LOCALLY (DECLARE (TYPE NULL #:IT74601)) (LET ((#:BIND74597 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:BIND74597)) (LET ((#:BIND74598 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:BIND74598)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:CONS74606 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74606) (CAR #:CONS74606) (GUARD1 (#:IT74607 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74607 'SINGLE-FLOAT)) (CDR #:CONS74606) (GUARD1 (#:CONS74608 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74608) (CDR #:CONS74608) (GUARD1 (#:CONS74609 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74609) (CDR #:CONS74609) (GUARD1 (#:IT74610 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74610))))) (MATCH1 NIL ((GUARD1 #:IT75602 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75603 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75604 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74599 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74599)) (LET ((#:CONS74596 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:CONS74596)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74596) (LOCALLY (DECLARE (TYPE CONS #:CONS74596)) (LET ((#:IT74600 (CAR #:CONS74596))) (DECLARE (IGNORABLE #:IT74600)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74600 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT74600)) (LET ((#:IT74601 (CDR #:CONS74596))) (DECLARE (IGNORABLE #:IT74601)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74601) (LOCALLY (DECLARE (TYPE NULL #:IT74601)) (LET ((#:BIND74597 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:BIND74597)) (LET ((#:BIND74598 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:BIND74598)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74613 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74613 (GUARD1 (#:CONS74611 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74611) (CAR #:CONS74611) (GUARD1 (#:IT74614 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74614 'SINGLE-FLOAT)) (CDR #:CONS74611) (GUARD1 (#:CONS74615 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74615) (CDR #:CONS74615) (GUARD1 (#:IT74616 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74616))) #:INTERSECTION74613 (GUARD1 (#:BIND74612 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75605 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75606 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75607 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74599 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74599)) (LET ((#:CONS74596 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:CONS74596)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74596) (LOCALLY (DECLARE (TYPE CONS #:CONS74596)) (LET ((#:IT74600 (CAR #:CONS74596))) (DECLARE (IGNORABLE #:IT74600)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74600 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT74600)) (LET ((#:IT74601 (CDR #:CONS74596))) (DECLARE (IGNORABLE #:IT74601)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74601) (LOCALLY (DECLARE (TYPE NULL #:IT74601)) (LET ((#:BIND74597 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:BIND74597)) (LET ((#:BIND74598 #:INTERSECTION74599)) (DECLARE (IGNORABLE #:BIND74598)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74620 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74620 (GUARD1 (#:CONS74617 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74617) (CAR #:CONS74617) (GUARD1 (#:IT74621 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74621 'SINGLE-FLOAT)) (CDR #:CONS74617) (GUARD1 (#:IT74622 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74622)) #:INTERSECTION74620 (GUARD1 (#:BIND74618 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74620 (GUARD1 (#:BIND74619 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75608 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75609 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75610 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74626 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74626)) (LET ((#:IT74623 #:INTERSECTION74626)) (DECLARE (IGNORABLE #:IT74623)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74623 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT74623)) (LET ((#:BIND74624 #:INTERSECTION74626)) (DECLARE (IGNORABLE #:BIND74624)) (LET ((#:BIND74625 #:INTERSECTION74626)) (DECLARE (IGNORABLE #:BIND74625)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74647 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74647 (GUARD1 (#:IT74644 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74644 'DOUBLE-FLOAT) #:INTERSECTION74647 (GUARD1 (#:BIND74645 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74647 (GUARD1 (#:BIND74646 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75611 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75612 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75613 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74626 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74626)) (LET ((#:IT74623 #:INTERSECTION74626)) (DECLARE (IGNORABLE #:IT74623)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74623 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT74623)) (LET ((#:BIND74624 #:INTERSECTION74626)) (DECLARE (IGNORABLE #:BIND74624)) (LET ((#:BIND74625 #:INTERSECTION74626)) (DECLARE (IGNORABLE #:BIND74625)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74648 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74648) (CAR #:CONS74648) (GUARD1 (#:IT74649 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74649 'DOUBLE-FLOAT)) (CDR #:CONS74648) (GUARD1 (#:CONS74650 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74650) (CDR #:CONS74650) (GUARD1 (#:CONS74651 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74651) (CDR #:CONS74651) (GUARD1 (#:IT74652 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74652))))) (GUARD1 (#:INTERSECTION74655 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74655 (GUARD1 (#:CONS74653 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74653) (CAR #:CONS74653) (GUARD1 (#:IT74656 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74656 'DOUBLE-FLOAT)) (CDR #:CONS74653) (GUARD1 (#:CONS74657 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74657) (CDR #:CONS74657) (GUARD1 (#:IT74658 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74658))) #:INTERSECTION74655 (GUARD1 (#:BIND74654 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74662 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74662 (GUARD1 (#:CONS74659 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74659) (CAR #:CONS74659) (GUARD1 (#:IT74663 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74663 'DOUBLE-FLOAT)) (CDR #:CONS74659) (GUARD1 (#:IT74664 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74664)) #:INTERSECTION74662 (GUARD1 (#:BIND74660 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74662 (GUARD1 (#:BIND74661 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75614 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75615 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75616 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS74627 #:WHAT176093)) (DECLARE (IGNORABLE #:CONS74627)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74627) (LOCALLY (DECLARE (TYPE CONS #:CONS74627)) (LET ((#:IT74628 (CAR #:CONS74627))) (DECLARE (IGNORABLE #:IT74628)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74628 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT74628)) (LET ((#:CONS74629 (CDR #:CONS74627))) (DECLARE (IGNORABLE #:CONS74629)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74629) (LOCALLY (DECLARE (TYPE CONS #:CONS74629)) (LET ((#:CONS74630 (CDR #:CONS74629))) (DECLARE (IGNORABLE #:CONS74630)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74630) (LOCALLY (DECLARE (TYPE CONS #:CONS74630)) (LET ((#:IT74631 (CDR #:CONS74630))) (DECLARE (IGNORABLE #:IT74631)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74631) (LOCALLY (DECLARE (TYPE NULL #:IT74631)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74647 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74647 (GUARD1 (#:IT74644 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74644 'DOUBLE-FLOAT) #:INTERSECTION74647 (GUARD1 (#:BIND74645 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74647 (GUARD1 (#:BIND74646 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75617 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75618 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75619 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74634 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74634)) (LET ((#:CONS74632 #:INTERSECTION74634)) (DECLARE (IGNORABLE #:CONS74632)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74632) (LOCALLY (DECLARE (TYPE CONS #:CONS74632)) (LET ((#:IT74635 (CAR #:CONS74632))) (DECLARE (IGNORABLE #:IT74635)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74635 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT74635)) (LET ((#:CONS74636 (CDR #:CONS74632))) (DECLARE (IGNORABLE #:CONS74636)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74636) (LOCALLY (DECLARE (TYPE CONS #:CONS74636)) (LET ((#:IT74637 (CDR #:CONS74636))) (DECLARE (IGNORABLE #:IT74637)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74637) (LOCALLY (DECLARE (TYPE NULL #:IT74637)) (LET ((#:BIND74633 #:INTERSECTION74634)) (DECLARE (IGNORABLE #:BIND74633)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74647 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74647 (GUARD1 (#:IT74644 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74644 'DOUBLE-FLOAT) #:INTERSECTION74647 (GUARD1 (#:BIND74645 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74647 (GUARD1 (#:BIND74646 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75620 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75621 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75622 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74641 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74641)) (LET ((#:CONS74638 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:CONS74638)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74638) (LOCALLY (DECLARE (TYPE CONS #:CONS74638)) (LET ((#:IT74642 (CAR #:CONS74638))) (DECLARE (IGNORABLE #:IT74642)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74642 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT74642)) (LET ((#:IT74643 (CDR #:CONS74638))) (DECLARE (IGNORABLE #:IT74643)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74643) (LOCALLY (DECLARE (TYPE NULL #:IT74643)) (LET ((#:BIND74639 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:BIND74639)) (LET ((#:BIND74640 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:BIND74640)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74647 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74647 (GUARD1 (#:IT74644 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74644 'DOUBLE-FLOAT) #:INTERSECTION74647 (GUARD1 (#:BIND74645 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74647 (GUARD1 (#:BIND74646 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75623 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75624 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75625 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75176 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75176)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75176) (LOCALLY (DECLARE (TYPE CONS #:FUSION75176)) (LET ((#:CONS74627 #:FUSION75176)) (DECLARE (IGNORABLE #:CONS74627)) (LOCALLY (DECLARE (TYPE CONS #:CONS74627)) (LET ((#:GEN75177 (CAR #:FUSION75176))) (DECLARE (IGNORABLE #:GEN75177)) (LET ((#:GEN75178 (CDR #:FUSION75176))) (DECLARE (IGNORABLE #:GEN75178)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75179 T) (MATCH1 NIL ((GUARD1 #:IT75626 T) (MATCH2*+ (#:GEN75177 #:GEN75178 #:PAT75179) (T T T) (((GUARD1 (#:IT74628 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74628 'DOUBLE-FLOAT)) (GUARD1 (#:CONS74629 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74629) (CDR #:CONS74629) (GUARD1 (#:CONS74630 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74630) (CDR #:CONS74630) (GUARD1 (#:IT74631 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74631)))) (GUARD1 (#:CONS74648 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74648) (CAR #:CONS74648) (GUARD1 (#:IT74649 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74649 'DOUBLE-FLOAT)) (CDR #:CONS74648) (GUARD1 (#:CONS74650 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74650) (CDR #:CONS74650) (GUARD1 (#:CONS74651 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74651) (CDR #:CONS74651) (GUARD1 (#:IT74652 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74652)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74628 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74628 'DOUBLE-FLOAT)) (GUARD1 (#:CONS74629 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74629) (CDR #:CONS74629) (GUARD1 (#:CONS74630 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74630) (CDR #:CONS74630) (GUARD1 (#:IT74631 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74631)))) (GUARD1 (#:INTERSECTION74655 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74655 (GUARD1 (#:CONS74653 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74653) (CAR #:CONS74653) (GUARD1 (#:IT74656 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74656 'DOUBLE-FLOAT)) (CDR #:CONS74653) (GUARD1 (#:CONS74657 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74657) (CDR #:CONS74657) (GUARD1 (#:IT74658 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74658))) #:INTERSECTION74655 (GUARD1 (#:BIND74654 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74628 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74628 'DOUBLE-FLOAT)) (GUARD1 (#:CONS74629 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74629) (CDR #:CONS74629) (GUARD1 (#:CONS74630 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74630) (CDR #:CONS74630) (GUARD1 (#:IT74631 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74631)))) (GUARD1 (#:INTERSECTION74662 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74662 (GUARD1 (#:CONS74659 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74659) (CAR #:CONS74659) (GUARD1 (#:IT74663 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74663 'DOUBLE-FLOAT)) (CDR #:CONS74659) (GUARD1 (#:IT74664 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74664)) #:INTERSECTION74662 (GUARD1 (#:BIND74660 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74662 (GUARD1 (#:BIND74661 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75627 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75628 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74634 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74634)) (LET ((#:CONS74632 #:INTERSECTION74634)) (DECLARE (IGNORABLE #:CONS74632)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74632) (LOCALLY (DECLARE (TYPE CONS #:CONS74632)) (LET ((#:IT74635 (CAR #:CONS74632))) (DECLARE (IGNORABLE #:IT74635)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74635 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT74635)) (LET ((#:CONS74636 (CDR #:CONS74632))) (DECLARE (IGNORABLE #:CONS74636)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74636) (LOCALLY (DECLARE (TYPE CONS #:CONS74636)) (LET ((#:IT74637 (CDR #:CONS74636))) (DECLARE (IGNORABLE #:IT74637)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74637) (LOCALLY (DECLARE (TYPE NULL #:IT74637)) (LET ((#:BIND74633 #:INTERSECTION74634)) (DECLARE (IGNORABLE #:BIND74633)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:CONS74648 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74648) (CAR #:CONS74648) (GUARD1 (#:IT74649 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74649 'DOUBLE-FLOAT)) (CDR #:CONS74648) (GUARD1 (#:CONS74650 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74650) (CDR #:CONS74650) (GUARD1 (#:CONS74651 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74651) (CDR #:CONS74651) (GUARD1 (#:IT74652 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74652))))) (MATCH1 NIL ((GUARD1 #:IT75629 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75630 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75631 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74634 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74634)) (LET ((#:CONS74632 #:INTERSECTION74634)) (DECLARE (IGNORABLE #:CONS74632)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74632) (LOCALLY (DECLARE (TYPE CONS #:CONS74632)) (LET ((#:IT74635 (CAR #:CONS74632))) (DECLARE (IGNORABLE #:IT74635)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74635 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT74635)) (LET ((#:CONS74636 (CDR #:CONS74632))) (DECLARE (IGNORABLE #:CONS74636)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74636) (LOCALLY (DECLARE (TYPE CONS #:CONS74636)) (LET ((#:IT74637 (CDR #:CONS74636))) (DECLARE (IGNORABLE #:IT74637)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74637) (LOCALLY (DECLARE (TYPE NULL #:IT74637)) (LET ((#:BIND74633 #:INTERSECTION74634)) (DECLARE (IGNORABLE #:BIND74633)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74655 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74655 (GUARD1 (#:CONS74653 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74653) (CAR #:CONS74653) (GUARD1 (#:IT74656 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74656 'DOUBLE-FLOAT)) (CDR #:CONS74653) (GUARD1 (#:CONS74657 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74657) (CDR #:CONS74657) (GUARD1 (#:IT74658 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74658))) #:INTERSECTION74655 (GUARD1 (#:BIND74654 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75632 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75633 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75634 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74634 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74634)) (LET ((#:CONS74632 #:INTERSECTION74634)) (DECLARE (IGNORABLE #:CONS74632)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74632) (LOCALLY (DECLARE (TYPE CONS #:CONS74632)) (LET ((#:IT74635 (CAR #:CONS74632))) (DECLARE (IGNORABLE #:IT74635)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74635 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT74635)) (LET ((#:CONS74636 (CDR #:CONS74632))) (DECLARE (IGNORABLE #:CONS74636)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74636) (LOCALLY (DECLARE (TYPE CONS #:CONS74636)) (LET ((#:IT74637 (CDR #:CONS74636))) (DECLARE (IGNORABLE #:IT74637)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74637) (LOCALLY (DECLARE (TYPE NULL #:IT74637)) (LET ((#:BIND74633 #:INTERSECTION74634)) (DECLARE (IGNORABLE #:BIND74633)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74662 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74662 (GUARD1 (#:CONS74659 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74659) (CAR #:CONS74659) (GUARD1 (#:IT74663 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74663 'DOUBLE-FLOAT)) (CDR #:CONS74659) (GUARD1 (#:IT74664 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74664)) #:INTERSECTION74662 (GUARD1 (#:BIND74660 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74662 (GUARD1 (#:BIND74661 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75635 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75636 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75637 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74641 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74641)) (LET ((#:CONS74638 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:CONS74638)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74638) (LOCALLY (DECLARE (TYPE CONS #:CONS74638)) (LET ((#:IT74642 (CAR #:CONS74638))) (DECLARE (IGNORABLE #:IT74642)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74642 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT74642)) (LET ((#:IT74643 (CDR #:CONS74638))) (DECLARE (IGNORABLE #:IT74643)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74643) (LOCALLY (DECLARE (TYPE NULL #:IT74643)) (LET ((#:BIND74639 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:BIND74639)) (LET ((#:BIND74640 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:BIND74640)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:CONS74648 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74648) (CAR #:CONS74648) (GUARD1 (#:IT74649 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74649 'DOUBLE-FLOAT)) (CDR #:CONS74648) (GUARD1 (#:CONS74650 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74650) (CDR #:CONS74650) (GUARD1 (#:CONS74651 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74651) (CDR #:CONS74651) (GUARD1 (#:IT74652 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74652))))) (MATCH1 NIL ((GUARD1 #:IT75638 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75639 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75640 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74641 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74641)) (LET ((#:CONS74638 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:CONS74638)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74638) (LOCALLY (DECLARE (TYPE CONS #:CONS74638)) (LET ((#:IT74642 (CAR #:CONS74638))) (DECLARE (IGNORABLE #:IT74642)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74642 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT74642)) (LET ((#:IT74643 (CDR #:CONS74638))) (DECLARE (IGNORABLE #:IT74643)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74643) (LOCALLY (DECLARE (TYPE NULL #:IT74643)) (LET ((#:BIND74639 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:BIND74639)) (LET ((#:BIND74640 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:BIND74640)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74655 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74655 (GUARD1 (#:CONS74653 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74653) (CAR #:CONS74653) (GUARD1 (#:IT74656 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74656 'DOUBLE-FLOAT)) (CDR #:CONS74653) (GUARD1 (#:CONS74657 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74657) (CDR #:CONS74657) (GUARD1 (#:IT74658 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74658))) #:INTERSECTION74655 (GUARD1 (#:BIND74654 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75641 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75642 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75643 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74641 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74641)) (LET ((#:CONS74638 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:CONS74638)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74638) (LOCALLY (DECLARE (TYPE CONS #:CONS74638)) (LET ((#:IT74642 (CAR #:CONS74638))) (DECLARE (IGNORABLE #:IT74642)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74642 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT74642)) (LET ((#:IT74643 (CDR #:CONS74638))) (DECLARE (IGNORABLE #:IT74643)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74643) (LOCALLY (DECLARE (TYPE NULL #:IT74643)) (LET ((#:BIND74639 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:BIND74639)) (LET ((#:BIND74640 #:INTERSECTION74641)) (DECLARE (IGNORABLE #:BIND74640)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74662 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74662 (GUARD1 (#:CONS74659 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74659) (CAR #:CONS74659) (GUARD1 (#:IT74663 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74663 'DOUBLE-FLOAT)) (CDR #:CONS74659) (GUARD1 (#:IT74664 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74664)) #:INTERSECTION74662 (GUARD1 (#:BIND74660 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74662 (GUARD1 (#:BIND74661 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75644 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75645 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75646 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74668 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74668)) (LET ((#:IT74665 #:INTERSECTION74668)) (DECLARE (IGNORABLE #:IT74665)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74665 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT74665)) (LET ((#:BIND74666 #:INTERSECTION74668)) (DECLARE (IGNORABLE #:BIND74666)) (LET ((#:BIND74667 #:INTERSECTION74668)) (DECLARE (IGNORABLE #:BIND74667)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74689 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74689 (GUARD1 (#:IT74686 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74686 'LONG-FLOAT) #:INTERSECTION74689 (GUARD1 (#:BIND74687 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74689 (GUARD1 (#:BIND74688 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75647 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75648 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75649 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74668 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74668)) (LET ((#:IT74665 #:INTERSECTION74668)) (DECLARE (IGNORABLE #:IT74665)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74665 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT74665)) (LET ((#:BIND74666 #:INTERSECTION74668)) (DECLARE (IGNORABLE #:BIND74666)) (LET ((#:BIND74667 #:INTERSECTION74668)) (DECLARE (IGNORABLE #:BIND74667)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74690 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74690) (CAR #:CONS74690) (GUARD1 (#:IT74691 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74691 'LONG-FLOAT)) (CDR #:CONS74690) (GUARD1 (#:CONS74692 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74692) (CDR #:CONS74692) (GUARD1 (#:CONS74693 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74693) (CDR #:CONS74693) (GUARD1 (#:IT74694 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74694))))) (GUARD1 (#:INTERSECTION74697 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74697 (GUARD1 (#:CONS74695 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74695) (CAR #:CONS74695) (GUARD1 (#:IT74698 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74698 'LONG-FLOAT)) (CDR #:CONS74695) (GUARD1 (#:CONS74699 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74699) (CDR #:CONS74699) (GUARD1 (#:IT74700 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74700))) #:INTERSECTION74697 (GUARD1 (#:BIND74696 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74704 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74704 (GUARD1 (#:CONS74701 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74701) (CAR #:CONS74701) (GUARD1 (#:IT74705 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74705 'LONG-FLOAT)) (CDR #:CONS74701) (GUARD1 (#:IT74706 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74706)) #:INTERSECTION74704 (GUARD1 (#:BIND74702 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74704 (GUARD1 (#:BIND74703 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75650 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75651 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75652 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS74669 #:WHAT176093)) (DECLARE (IGNORABLE #:CONS74669)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74669) (LOCALLY (DECLARE (TYPE CONS #:CONS74669)) (LET ((#:IT74670 (CAR #:CONS74669))) (DECLARE (IGNORABLE #:IT74670)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74670 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT74670)) (LET ((#:CONS74671 (CDR #:CONS74669))) (DECLARE (IGNORABLE #:CONS74671)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74671) (LOCALLY (DECLARE (TYPE CONS #:CONS74671)) (LET ((#:CONS74672 (CDR #:CONS74671))) (DECLARE (IGNORABLE #:CONS74672)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74672) (LOCALLY (DECLARE (TYPE CONS #:CONS74672)) (LET ((#:IT74673 (CDR #:CONS74672))) (DECLARE (IGNORABLE #:IT74673)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74673) (LOCALLY (DECLARE (TYPE NULL #:IT74673)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74689 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74689 (GUARD1 (#:IT74686 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74686 'LONG-FLOAT) #:INTERSECTION74689 (GUARD1 (#:BIND74687 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74689 (GUARD1 (#:BIND74688 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75653 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75654 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75655 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74676 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74676)) (LET ((#:CONS74674 #:INTERSECTION74676)) (DECLARE (IGNORABLE #:CONS74674)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74674) (LOCALLY (DECLARE (TYPE CONS #:CONS74674)) (LET ((#:IT74677 (CAR #:CONS74674))) (DECLARE (IGNORABLE #:IT74677)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74677 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT74677)) (LET ((#:CONS74678 (CDR #:CONS74674))) (DECLARE (IGNORABLE #:CONS74678)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74678) (LOCALLY (DECLARE (TYPE CONS #:CONS74678)) (LET ((#:IT74679 (CDR #:CONS74678))) (DECLARE (IGNORABLE #:IT74679)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74679) (LOCALLY (DECLARE (TYPE NULL #:IT74679)) (LET ((#:BIND74675 #:INTERSECTION74676)) (DECLARE (IGNORABLE #:BIND74675)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74689 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74689 (GUARD1 (#:IT74686 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74686 'LONG-FLOAT) #:INTERSECTION74689 (GUARD1 (#:BIND74687 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74689 (GUARD1 (#:BIND74688 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75656 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75657 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75658 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74683 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74683)) (LET ((#:CONS74680 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:CONS74680)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74680) (LOCALLY (DECLARE (TYPE CONS #:CONS74680)) (LET ((#:IT74684 (CAR #:CONS74680))) (DECLARE (IGNORABLE #:IT74684)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74684 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT74684)) (LET ((#:IT74685 (CDR #:CONS74680))) (DECLARE (IGNORABLE #:IT74685)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74685) (LOCALLY (DECLARE (TYPE NULL #:IT74685)) (LET ((#:BIND74681 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:BIND74681)) (LET ((#:BIND74682 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:BIND74682)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74689 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74689 (GUARD1 (#:IT74686 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74686 'LONG-FLOAT) #:INTERSECTION74689 (GUARD1 (#:BIND74687 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74689 (GUARD1 (#:BIND74688 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75659 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75660 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75661 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75186 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75186)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75186) (LOCALLY (DECLARE (TYPE CONS #:FUSION75186)) (LET ((#:CONS74669 #:FUSION75186)) (DECLARE (IGNORABLE #:CONS74669)) (LOCALLY (DECLARE (TYPE CONS #:CONS74669)) (LET ((#:GEN75187 (CAR #:FUSION75186))) (DECLARE (IGNORABLE #:GEN75187)) (LET ((#:GEN75188 (CDR #:FUSION75186))) (DECLARE (IGNORABLE #:GEN75188)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75189 T) (MATCH1 NIL ((GUARD1 #:IT75662 T) (MATCH2*+ (#:GEN75187 #:GEN75188 #:PAT75189) (T T T) (((GUARD1 (#:IT74670 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74670 'LONG-FLOAT)) (GUARD1 (#:CONS74671 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74671) (CDR #:CONS74671) (GUARD1 (#:CONS74672 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74672) (CDR #:CONS74672) (GUARD1 (#:IT74673 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74673)))) (GUARD1 (#:CONS74690 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74690) (CAR #:CONS74690) (GUARD1 (#:IT74691 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74691 'LONG-FLOAT)) (CDR #:CONS74690) (GUARD1 (#:CONS74692 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74692) (CDR #:CONS74692) (GUARD1 (#:CONS74693 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74693) (CDR #:CONS74693) (GUARD1 (#:IT74694 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74694)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74670 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74670 'LONG-FLOAT)) (GUARD1 (#:CONS74671 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74671) (CDR #:CONS74671) (GUARD1 (#:CONS74672 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74672) (CDR #:CONS74672) (GUARD1 (#:IT74673 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74673)))) (GUARD1 (#:INTERSECTION74697 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74697 (GUARD1 (#:CONS74695 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74695) (CAR #:CONS74695) (GUARD1 (#:IT74698 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74698 'LONG-FLOAT)) (CDR #:CONS74695) (GUARD1 (#:CONS74699 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74699) (CDR #:CONS74699) (GUARD1 (#:IT74700 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74700))) #:INTERSECTION74697 (GUARD1 (#:BIND74696 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74670 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74670 'LONG-FLOAT)) (GUARD1 (#:CONS74671 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74671) (CDR #:CONS74671) (GUARD1 (#:CONS74672 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74672) (CDR #:CONS74672) (GUARD1 (#:IT74673 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74673)))) (GUARD1 (#:INTERSECTION74704 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74704 (GUARD1 (#:CONS74701 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74701) (CAR #:CONS74701) (GUARD1 (#:IT74705 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74705 'LONG-FLOAT)) (CDR #:CONS74701) (GUARD1 (#:IT74706 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74706)) #:INTERSECTION74704 (GUARD1 (#:BIND74702 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74704 (GUARD1 (#:BIND74703 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75663 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75664 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74676 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74676)) (LET ((#:CONS74674 #:INTERSECTION74676)) (DECLARE (IGNORABLE #:CONS74674)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74674) (LOCALLY (DECLARE (TYPE CONS #:CONS74674)) (LET ((#:IT74677 (CAR #:CONS74674))) (DECLARE (IGNORABLE #:IT74677)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74677 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT74677)) (LET ((#:CONS74678 (CDR #:CONS74674))) (DECLARE (IGNORABLE #:CONS74678)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74678) (LOCALLY (DECLARE (TYPE CONS #:CONS74678)) (LET ((#:IT74679 (CDR #:CONS74678))) (DECLARE (IGNORABLE #:IT74679)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74679) (LOCALLY (DECLARE (TYPE NULL #:IT74679)) (LET ((#:BIND74675 #:INTERSECTION74676)) (DECLARE (IGNORABLE #:BIND74675)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:CONS74690 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74690) (CAR #:CONS74690) (GUARD1 (#:IT74691 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74691 'LONG-FLOAT)) (CDR #:CONS74690) (GUARD1 (#:CONS74692 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74692) (CDR #:CONS74692) (GUARD1 (#:CONS74693 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74693) (CDR #:CONS74693) (GUARD1 (#:IT74694 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74694))))) (MATCH1 NIL ((GUARD1 #:IT75665 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75666 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75667 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74676 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74676)) (LET ((#:CONS74674 #:INTERSECTION74676)) (DECLARE (IGNORABLE #:CONS74674)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74674) (LOCALLY (DECLARE (TYPE CONS #:CONS74674)) (LET ((#:IT74677 (CAR #:CONS74674))) (DECLARE (IGNORABLE #:IT74677)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74677 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT74677)) (LET ((#:CONS74678 (CDR #:CONS74674))) (DECLARE (IGNORABLE #:CONS74678)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74678) (LOCALLY (DECLARE (TYPE CONS #:CONS74678)) (LET ((#:IT74679 (CDR #:CONS74678))) (DECLARE (IGNORABLE #:IT74679)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74679) (LOCALLY (DECLARE (TYPE NULL #:IT74679)) (LET ((#:BIND74675 #:INTERSECTION74676)) (DECLARE (IGNORABLE #:BIND74675)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74697 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74697 (GUARD1 (#:CONS74695 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74695) (CAR #:CONS74695) (GUARD1 (#:IT74698 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74698 'LONG-FLOAT)) (CDR #:CONS74695) (GUARD1 (#:CONS74699 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74699) (CDR #:CONS74699) (GUARD1 (#:IT74700 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74700))) #:INTERSECTION74697 (GUARD1 (#:BIND74696 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75668 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75669 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75670 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74676 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74676)) (LET ((#:CONS74674 #:INTERSECTION74676)) (DECLARE (IGNORABLE #:CONS74674)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74674) (LOCALLY (DECLARE (TYPE CONS #:CONS74674)) (LET ((#:IT74677 (CAR #:CONS74674))) (DECLARE (IGNORABLE #:IT74677)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74677 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT74677)) (LET ((#:CONS74678 (CDR #:CONS74674))) (DECLARE (IGNORABLE #:CONS74678)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74678) (LOCALLY (DECLARE (TYPE CONS #:CONS74678)) (LET ((#:IT74679 (CDR #:CONS74678))) (DECLARE (IGNORABLE #:IT74679)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74679) (LOCALLY (DECLARE (TYPE NULL #:IT74679)) (LET ((#:BIND74675 #:INTERSECTION74676)) (DECLARE (IGNORABLE #:BIND74675)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74704 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74704 (GUARD1 (#:CONS74701 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74701) (CAR #:CONS74701) (GUARD1 (#:IT74705 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74705 'LONG-FLOAT)) (CDR #:CONS74701) (GUARD1 (#:IT74706 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74706)) #:INTERSECTION74704 (GUARD1 (#:BIND74702 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74704 (GUARD1 (#:BIND74703 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75671 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75672 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75673 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74683 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74683)) (LET ((#:CONS74680 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:CONS74680)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74680) (LOCALLY (DECLARE (TYPE CONS #:CONS74680)) (LET ((#:IT74684 (CAR #:CONS74680))) (DECLARE (IGNORABLE #:IT74684)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74684 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT74684)) (LET ((#:IT74685 (CDR #:CONS74680))) (DECLARE (IGNORABLE #:IT74685)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74685) (LOCALLY (DECLARE (TYPE NULL #:IT74685)) (LET ((#:BIND74681 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:BIND74681)) (LET ((#:BIND74682 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:BIND74682)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:CONS74690 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74690) (CAR #:CONS74690) (GUARD1 (#:IT74691 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74691 'LONG-FLOAT)) (CDR #:CONS74690) (GUARD1 (#:CONS74692 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74692) (CDR #:CONS74692) (GUARD1 (#:CONS74693 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74693) (CDR #:CONS74693) (GUARD1 (#:IT74694 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74694))))) (MATCH1 NIL ((GUARD1 #:IT75674 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75675 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75676 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74683 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74683)) (LET ((#:CONS74680 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:CONS74680)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74680) (LOCALLY (DECLARE (TYPE CONS #:CONS74680)) (LET ((#:IT74684 (CAR #:CONS74680))) (DECLARE (IGNORABLE #:IT74684)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74684 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT74684)) (LET ((#:IT74685 (CDR #:CONS74680))) (DECLARE (IGNORABLE #:IT74685)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74685) (LOCALLY (DECLARE (TYPE NULL #:IT74685)) (LET ((#:BIND74681 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:BIND74681)) (LET ((#:BIND74682 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:BIND74682)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74697 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74697 (GUARD1 (#:CONS74695 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74695) (CAR #:CONS74695) (GUARD1 (#:IT74698 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74698 'LONG-FLOAT)) (CDR #:CONS74695) (GUARD1 (#:CONS74699 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74699) (CDR #:CONS74699) (GUARD1 (#:IT74700 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74700))) #:INTERSECTION74697 (GUARD1 (#:BIND74696 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75677 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75678 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75679 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74683 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74683)) (LET ((#:CONS74680 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:CONS74680)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74680) (LOCALLY (DECLARE (TYPE CONS #:CONS74680)) (LET ((#:IT74684 (CAR #:CONS74680))) (DECLARE (IGNORABLE #:IT74684)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74684 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT74684)) (LET ((#:IT74685 (CDR #:CONS74680))) (DECLARE (IGNORABLE #:IT74685)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74685) (LOCALLY (DECLARE (TYPE NULL #:IT74685)) (LET ((#:BIND74681 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:BIND74681)) (LET ((#:BIND74682 #:INTERSECTION74683)) (DECLARE (IGNORABLE #:BIND74682)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74704 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74704 (GUARD1 (#:CONS74701 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74701) (CAR #:CONS74701) (GUARD1 (#:IT74705 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74705 'LONG-FLOAT)) (CDR #:CONS74701) (GUARD1 (#:IT74706 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74706)) #:INTERSECTION74704 (GUARD1 (#:BIND74702 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74704 (GUARD1 (#:BIND74703 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75680 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75681 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75682 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74710 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74710)) (LET ((#:IT74707 #:INTERSECTION74710)) (DECLARE (IGNORABLE #:IT74707)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74707 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT74707)) (LET ((#:BIND74708 #:INTERSECTION74710)) (DECLARE (IGNORABLE #:BIND74708)) (LET ((#:BIND74709 #:INTERSECTION74710)) (DECLARE (IGNORABLE #:BIND74709)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74731 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74731 (GUARD1 (#:IT74728 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74728 'SHORT-FLOAT) #:INTERSECTION74731 (GUARD1 (#:BIND74729 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74731 (GUARD1 (#:BIND74730 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75683 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75684 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75685 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74710 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74710)) (LET ((#:IT74707 #:INTERSECTION74710)) (DECLARE (IGNORABLE #:IT74707)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74707 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT74707)) (LET ((#:BIND74708 #:INTERSECTION74710)) (DECLARE (IGNORABLE #:BIND74708)) (LET ((#:BIND74709 #:INTERSECTION74710)) (DECLARE (IGNORABLE #:BIND74709)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74732 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74732) (CAR #:CONS74732) (GUARD1 (#:IT74733 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74733 'SHORT-FLOAT)) (CDR #:CONS74732) (GUARD1 (#:CONS74734 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74734) (CDR #:CONS74734) (GUARD1 (#:CONS74735 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74735) (CDR #:CONS74735) (GUARD1 (#:IT74736 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74736))))) (GUARD1 (#:INTERSECTION74739 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74739 (GUARD1 (#:CONS74737 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74737) (CAR #:CONS74737) (GUARD1 (#:IT74740 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74740 'SHORT-FLOAT)) (CDR #:CONS74737) (GUARD1 (#:CONS74741 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74741) (CDR #:CONS74741) (GUARD1 (#:IT74742 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74742))) #:INTERSECTION74739 (GUARD1 (#:BIND74738 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74746 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74746 (GUARD1 (#:CONS74743 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74743) (CAR #:CONS74743) (GUARD1 (#:IT74747 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74747 'SHORT-FLOAT)) (CDR #:CONS74743) (GUARD1 (#:IT74748 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74748)) #:INTERSECTION74746 (GUARD1 (#:BIND74744 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74746 (GUARD1 (#:BIND74745 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75686 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75687 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75688 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS74711 #:WHAT176093)) (DECLARE (IGNORABLE #:CONS74711)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74711) (LOCALLY (DECLARE (TYPE CONS #:CONS74711)) (LET ((#:IT74712 (CAR #:CONS74711))) (DECLARE (IGNORABLE #:IT74712)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74712 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT74712)) (LET ((#:CONS74713 (CDR #:CONS74711))) (DECLARE (IGNORABLE #:CONS74713)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74713) (LOCALLY (DECLARE (TYPE CONS #:CONS74713)) (LET ((#:CONS74714 (CDR #:CONS74713))) (DECLARE (IGNORABLE #:CONS74714)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74714) (LOCALLY (DECLARE (TYPE CONS #:CONS74714)) (LET ((#:IT74715 (CDR #:CONS74714))) (DECLARE (IGNORABLE #:IT74715)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74715) (LOCALLY (DECLARE (TYPE NULL #:IT74715)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74731 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74731 (GUARD1 (#:IT74728 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74728 'SHORT-FLOAT) #:INTERSECTION74731 (GUARD1 (#:BIND74729 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74731 (GUARD1 (#:BIND74730 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75689 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75690 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75691 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74718 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74718)) (LET ((#:CONS74716 #:INTERSECTION74718)) (DECLARE (IGNORABLE #:CONS74716)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74716) (LOCALLY (DECLARE (TYPE CONS #:CONS74716)) (LET ((#:IT74719 (CAR #:CONS74716))) (DECLARE (IGNORABLE #:IT74719)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74719 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT74719)) (LET ((#:CONS74720 (CDR #:CONS74716))) (DECLARE (IGNORABLE #:CONS74720)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74720) (LOCALLY (DECLARE (TYPE CONS #:CONS74720)) (LET ((#:IT74721 (CDR #:CONS74720))) (DECLARE (IGNORABLE #:IT74721)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74721) (LOCALLY (DECLARE (TYPE NULL #:IT74721)) (LET ((#:BIND74717 #:INTERSECTION74718)) (DECLARE (IGNORABLE #:BIND74717)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74731 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74731 (GUARD1 (#:IT74728 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74728 'SHORT-FLOAT) #:INTERSECTION74731 (GUARD1 (#:BIND74729 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74731 (GUARD1 (#:BIND74730 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75692 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75693 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75694 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74725 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74725)) (LET ((#:CONS74722 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:CONS74722)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74722) (LOCALLY (DECLARE (TYPE CONS #:CONS74722)) (LET ((#:IT74726 (CAR #:CONS74722))) (DECLARE (IGNORABLE #:IT74726)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74726 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT74726)) (LET ((#:IT74727 (CDR #:CONS74722))) (DECLARE (IGNORABLE #:IT74727)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74727) (LOCALLY (DECLARE (TYPE NULL #:IT74727)) (LET ((#:BIND74723 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:BIND74723)) (LET ((#:BIND74724 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:BIND74724)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74731 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74731 (GUARD1 (#:IT74728 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74728 'SHORT-FLOAT) #:INTERSECTION74731 (GUARD1 (#:BIND74729 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74731 (GUARD1 (#:BIND74730 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75695 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75696 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75697 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75196 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75196)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75196) (LOCALLY (DECLARE (TYPE CONS #:FUSION75196)) (LET ((#:CONS74711 #:FUSION75196)) (DECLARE (IGNORABLE #:CONS74711)) (LOCALLY (DECLARE (TYPE CONS #:CONS74711)) (LET ((#:GEN75197 (CAR #:FUSION75196))) (DECLARE (IGNORABLE #:GEN75197)) (LET ((#:GEN75198 (CDR #:FUSION75196))) (DECLARE (IGNORABLE #:GEN75198)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75199 T) (MATCH1 NIL ((GUARD1 #:IT75698 T) (MATCH2*+ (#:GEN75197 #:GEN75198 #:PAT75199) (T T T) (((GUARD1 (#:IT74712 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74712 'SHORT-FLOAT)) (GUARD1 (#:CONS74713 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74713) (CDR #:CONS74713) (GUARD1 (#:CONS74714 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74714) (CDR #:CONS74714) (GUARD1 (#:IT74715 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74715)))) (GUARD1 (#:CONS74732 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74732) (CAR #:CONS74732) (GUARD1 (#:IT74733 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74733 'SHORT-FLOAT)) (CDR #:CONS74732) (GUARD1 (#:CONS74734 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74734) (CDR #:CONS74734) (GUARD1 (#:CONS74735 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74735) (CDR #:CONS74735) (GUARD1 (#:IT74736 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74736)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74712 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74712 'SHORT-FLOAT)) (GUARD1 (#:CONS74713 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74713) (CDR #:CONS74713) (GUARD1 (#:CONS74714 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74714) (CDR #:CONS74714) (GUARD1 (#:IT74715 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74715)))) (GUARD1 (#:INTERSECTION74739 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74739 (GUARD1 (#:CONS74737 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74737) (CAR #:CONS74737) (GUARD1 (#:IT74740 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74740 'SHORT-FLOAT)) (CDR #:CONS74737) (GUARD1 (#:CONS74741 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74741) (CDR #:CONS74741) (GUARD1 (#:IT74742 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74742))) #:INTERSECTION74739 (GUARD1 (#:BIND74738 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74712 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74712 'SHORT-FLOAT)) (GUARD1 (#:CONS74713 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74713) (CDR #:CONS74713) (GUARD1 (#:CONS74714 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74714) (CDR #:CONS74714) (GUARD1 (#:IT74715 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74715)))) (GUARD1 (#:INTERSECTION74746 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74746 (GUARD1 (#:CONS74743 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74743) (CAR #:CONS74743) (GUARD1 (#:IT74747 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74747 'SHORT-FLOAT)) (CDR #:CONS74743) (GUARD1 (#:IT74748 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74748)) #:INTERSECTION74746 (GUARD1 (#:BIND74744 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74746 (GUARD1 (#:BIND74745 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75699 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75700 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74718 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74718)) (LET ((#:CONS74716 #:INTERSECTION74718)) (DECLARE (IGNORABLE #:CONS74716)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74716) (LOCALLY (DECLARE (TYPE CONS #:CONS74716)) (LET ((#:IT74719 (CAR #:CONS74716))) (DECLARE (IGNORABLE #:IT74719)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74719 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT74719)) (LET ((#:CONS74720 (CDR #:CONS74716))) (DECLARE (IGNORABLE #:CONS74720)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74720) (LOCALLY (DECLARE (TYPE CONS #:CONS74720)) (LET ((#:IT74721 (CDR #:CONS74720))) (DECLARE (IGNORABLE #:IT74721)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74721) (LOCALLY (DECLARE (TYPE NULL #:IT74721)) (LET ((#:BIND74717 #:INTERSECTION74718)) (DECLARE (IGNORABLE #:BIND74717)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:CONS74732 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74732) (CAR #:CONS74732) (GUARD1 (#:IT74733 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74733 'SHORT-FLOAT)) (CDR #:CONS74732) (GUARD1 (#:CONS74734 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74734) (CDR #:CONS74734) (GUARD1 (#:CONS74735 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74735) (CDR #:CONS74735) (GUARD1 (#:IT74736 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74736))))) (MATCH1 NIL ((GUARD1 #:IT75701 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75702 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75703 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74718 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74718)) (LET ((#:CONS74716 #:INTERSECTION74718)) (DECLARE (IGNORABLE #:CONS74716)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74716) (LOCALLY (DECLARE (TYPE CONS #:CONS74716)) (LET ((#:IT74719 (CAR #:CONS74716))) (DECLARE (IGNORABLE #:IT74719)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74719 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT74719)) (LET ((#:CONS74720 (CDR #:CONS74716))) (DECLARE (IGNORABLE #:CONS74720)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74720) (LOCALLY (DECLARE (TYPE CONS #:CONS74720)) (LET ((#:IT74721 (CDR #:CONS74720))) (DECLARE (IGNORABLE #:IT74721)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74721) (LOCALLY (DECLARE (TYPE NULL #:IT74721)) (LET ((#:BIND74717 #:INTERSECTION74718)) (DECLARE (IGNORABLE #:BIND74717)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74739 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74739 (GUARD1 (#:CONS74737 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74737) (CAR #:CONS74737) (GUARD1 (#:IT74740 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74740 'SHORT-FLOAT)) (CDR #:CONS74737) (GUARD1 (#:CONS74741 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74741) (CDR #:CONS74741) (GUARD1 (#:IT74742 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74742))) #:INTERSECTION74739 (GUARD1 (#:BIND74738 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75704 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75705 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75706 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74718 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74718)) (LET ((#:CONS74716 #:INTERSECTION74718)) (DECLARE (IGNORABLE #:CONS74716)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74716) (LOCALLY (DECLARE (TYPE CONS #:CONS74716)) (LET ((#:IT74719 (CAR #:CONS74716))) (DECLARE (IGNORABLE #:IT74719)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74719 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT74719)) (LET ((#:CONS74720 (CDR #:CONS74716))) (DECLARE (IGNORABLE #:CONS74720)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74720) (LOCALLY (DECLARE (TYPE CONS #:CONS74720)) (LET ((#:IT74721 (CDR #:CONS74720))) (DECLARE (IGNORABLE #:IT74721)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74721) (LOCALLY (DECLARE (TYPE NULL #:IT74721)) (LET ((#:BIND74717 #:INTERSECTION74718)) (DECLARE (IGNORABLE #:BIND74717)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74746 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74746 (GUARD1 (#:CONS74743 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74743) (CAR #:CONS74743) (GUARD1 (#:IT74747 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74747 'SHORT-FLOAT)) (CDR #:CONS74743) (GUARD1 (#:IT74748 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74748)) #:INTERSECTION74746 (GUARD1 (#:BIND74744 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74746 (GUARD1 (#:BIND74745 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75707 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75708 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75709 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74725 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74725)) (LET ((#:CONS74722 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:CONS74722)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74722) (LOCALLY (DECLARE (TYPE CONS #:CONS74722)) (LET ((#:IT74726 (CAR #:CONS74722))) (DECLARE (IGNORABLE #:IT74726)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74726 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT74726)) (LET ((#:IT74727 (CDR #:CONS74722))) (DECLARE (IGNORABLE #:IT74727)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74727) (LOCALLY (DECLARE (TYPE NULL #:IT74727)) (LET ((#:BIND74723 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:BIND74723)) (LET ((#:BIND74724 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:BIND74724)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:CONS74732 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74732) (CAR #:CONS74732) (GUARD1 (#:IT74733 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74733 'SHORT-FLOAT)) (CDR #:CONS74732) (GUARD1 (#:CONS74734 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74734) (CDR #:CONS74734) (GUARD1 (#:CONS74735 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74735) (CDR #:CONS74735) (GUARD1 (#:IT74736 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74736))))) (MATCH1 NIL ((GUARD1 #:IT75710 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75711 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75712 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74725 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74725)) (LET ((#:CONS74722 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:CONS74722)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74722) (LOCALLY (DECLARE (TYPE CONS #:CONS74722)) (LET ((#:IT74726 (CAR #:CONS74722))) (DECLARE (IGNORABLE #:IT74726)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74726 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT74726)) (LET ((#:IT74727 (CDR #:CONS74722))) (DECLARE (IGNORABLE #:IT74727)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74727) (LOCALLY (DECLARE (TYPE NULL #:IT74727)) (LET ((#:BIND74723 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:BIND74723)) (LET ((#:BIND74724 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:BIND74724)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74739 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74739 (GUARD1 (#:CONS74737 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74737) (CAR #:CONS74737) (GUARD1 (#:IT74740 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74740 'SHORT-FLOAT)) (CDR #:CONS74737) (GUARD1 (#:CONS74741 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74741) (CDR #:CONS74741) (GUARD1 (#:IT74742 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74742))) #:INTERSECTION74739 (GUARD1 (#:BIND74738 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75713 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75714 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75715 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74725 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74725)) (LET ((#:CONS74722 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:CONS74722)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74722) (LOCALLY (DECLARE (TYPE CONS #:CONS74722)) (LET ((#:IT74726 (CAR #:CONS74722))) (DECLARE (IGNORABLE #:IT74726)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74726 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT74726)) (LET ((#:IT74727 (CDR #:CONS74722))) (DECLARE (IGNORABLE #:IT74727)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74727) (LOCALLY (DECLARE (TYPE NULL #:IT74727)) (LET ((#:BIND74723 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:BIND74723)) (LET ((#:BIND74724 #:INTERSECTION74725)) (DECLARE (IGNORABLE #:BIND74724)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74746 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74746 (GUARD1 (#:CONS74743 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74743) (CAR #:CONS74743) (GUARD1 (#:IT74747 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74747 'SHORT-FLOAT)) (CDR #:CONS74743) (GUARD1 (#:IT74748 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74748)) #:INTERSECTION74746 (GUARD1 (#:BIND74744 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74746 (GUARD1 (#:BIND74745 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75716 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75717 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75718 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74752 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74752)) (LET ((#:IT74749 #:INTERSECTION74752)) (DECLARE (IGNORABLE #:IT74749)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74749 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74749)) (LET ((#:BIND74750 #:INTERSECTION74752)) (DECLARE (IGNORABLE #:BIND74750)) (LET ((#:BIND74751 #:INTERSECTION74752)) (DECLARE (IGNORABLE #:BIND74751)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74773 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74773 (GUARD1 (#:IT74772 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74772 'FLOAT) #:INTERSECTION74773 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74773 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION74775 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74775 (GUARD1 (#:IT74774 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74774 'SHORT-FLOAT) #:INTERSECTION74775 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74775 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION74777 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74777 (GUARD1 (#:IT74776 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74776 'SINGLE-FLOAT) #:INTERSECTION74777 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74777 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION74779 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74779 (GUARD1 (#:IT74778 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74778 'DOUBLE-FLOAT) #:INTERSECTION74779 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74779 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION74781 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74781 (GUARD1 (#:IT74780 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74780 'LONG-FLOAT) #:INTERSECTION74781 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74781 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75719 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75720 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75721 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74752 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74752)) (LET ((#:IT74749 #:INTERSECTION74752)) (DECLARE (IGNORABLE #:IT74749)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74749 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74749)) (LET ((#:BIND74750 #:INTERSECTION74752)) (DECLARE (IGNORABLE #:BIND74750)) (LET ((#:BIND74751 #:INTERSECTION74752)) (DECLARE (IGNORABLE #:BIND74751)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74782 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74782) (CAR #:CONS74782) (OR1 (GUARD1 (#:IT74783 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74783 'FLOAT)) (GUARD1 (#:IT74784 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74784 'SHORT-FLOAT)) (GUARD1 (#:IT74785 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74785 'SINGLE-FLOAT)) (GUARD1 (#:IT74786 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74786 'DOUBLE-FLOAT)) (GUARD1 (#:IT74787 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74787 'LONG-FLOAT))) (CDR #:CONS74782) (GUARD1 (#:CONS74788 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74788) (CDR #:CONS74788) (GUARD1 (#:CONS74789 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74789) (CDR #:CONS74789) (GUARD1 (#:IT74790 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74790))))) (GUARD1 (#:INTERSECTION74793 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74793 (GUARD1 (#:CONS74791 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74791) (CAR #:CONS74791) (OR1 (GUARD1 (#:IT74794 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74794 'FLOAT)) (GUARD1 (#:IT74795 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74795 'SHORT-FLOAT)) (GUARD1 (#:IT74796 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74796 'SINGLE-FLOAT)) (GUARD1 (#:IT74797 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74797 'DOUBLE-FLOAT)) (GUARD1 (#:IT74798 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74798 'LONG-FLOAT))) (CDR #:CONS74791) (GUARD1 (#:CONS74799 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74799) (CDR #:CONS74799) (GUARD1 (#:IT74800 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74800))) #:INTERSECTION74793 (GUARD1 (#:BIND74792 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74804 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74804 (GUARD1 (#:CONS74801 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74801) (CAR #:CONS74801) (OR1 (GUARD1 (#:IT74805 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74805 'FLOAT)) (GUARD1 (#:IT74806 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74806 'SHORT-FLOAT)) (GUARD1 (#:IT74807 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74807 'SINGLE-FLOAT)) (GUARD1 (#:IT74808 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74808 'DOUBLE-FLOAT)) (GUARD1 (#:IT74809 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74809 'LONG-FLOAT))) (CDR #:CONS74801) (GUARD1 (#:IT74810 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74810)) #:INTERSECTION74804 (GUARD1 (#:BIND74802 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74804 (GUARD1 (#:BIND74803 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75722 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75723 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75724 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75203 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75203)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75203) (LOCALLY (DECLARE (TYPE CONS #:FUSION75203)) (LET ((#:CONS74753 #:FUSION75203)) (DECLARE (IGNORABLE #:CONS74753)) (LOCALLY (DECLARE (TYPE CONS #:CONS74753)) (LET ((#:GEN75204 (CAR #:FUSION75203))) (DECLARE (IGNORABLE #:GEN75204)) (LET ((#:GEN75205 (CDR #:FUSION75203))) (DECLARE (IGNORABLE #:GEN75205)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75206 T) (MATCH1 NIL ((GUARD1 #:IT75725 T) (MATCH2*+ (#:GEN75204 #:GEN75205 #:PAT75206) (T T T) (((GUARD1 (#:IT74754 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74754 'FLOAT)) (GUARD1 (#:CONS74755 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74755) (CDR #:CONS74755) (GUARD1 (#:CONS74756 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74756) (CDR #:CONS74756) (GUARD1 (#:IT74757 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74757)))) (GUARD1 (#:INTERSECTION74773 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74773 (GUARD1 (#:IT74772 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74772 'FLOAT) #:INTERSECTION74773 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74773 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74754 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74754 'FLOAT)) (GUARD1 (#:CONS74755 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74755) (CDR #:CONS74755) (GUARD1 (#:CONS74756 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74756) (CDR #:CONS74756) (GUARD1 (#:IT74757 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74757)))) (GUARD1 (#:INTERSECTION74775 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74775 (GUARD1 (#:IT74774 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74774 'SHORT-FLOAT) #:INTERSECTION74775 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74775 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74754 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74754 'FLOAT)) (GUARD1 (#:CONS74755 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74755) (CDR #:CONS74755) (GUARD1 (#:CONS74756 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74756) (CDR #:CONS74756) (GUARD1 (#:IT74757 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74757)))) (GUARD1 (#:INTERSECTION74777 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74777 (GUARD1 (#:IT74776 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74776 'SINGLE-FLOAT) #:INTERSECTION74777 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74777 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74754 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74754 'FLOAT)) (GUARD1 (#:CONS74755 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74755) (CDR #:CONS74755) (GUARD1 (#:CONS74756 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74756) (CDR #:CONS74756) (GUARD1 (#:IT74757 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74757)))) (GUARD1 (#:INTERSECTION74779 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74779 (GUARD1 (#:IT74778 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74778 'DOUBLE-FLOAT) #:INTERSECTION74779 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74779 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74754 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74754 'FLOAT)) (GUARD1 (#:CONS74755 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74755) (CDR #:CONS74755) (GUARD1 (#:CONS74756 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74756) (CDR #:CONS74756) (GUARD1 (#:IT74757 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74757)))) (GUARD1 (#:INTERSECTION74781 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74781 (GUARD1 (#:IT74780 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74780 'LONG-FLOAT) #:INTERSECTION74781 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74781 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75726 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75727 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74760 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74760)) (LET ((#:CONS74758 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:CONS74758)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74758) (LOCALLY (DECLARE (TYPE CONS #:CONS74758)) (LET ((#:IT74761 (CAR #:CONS74758))) (DECLARE (IGNORABLE #:IT74761)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74761 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74761)) (LET ((#:CONS74762 (CDR #:CONS74758))) (DECLARE (IGNORABLE #:CONS74762)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74762) (LOCALLY (DECLARE (TYPE CONS #:CONS74762)) (LET ((#:IT74763 (CDR #:CONS74762))) (DECLARE (IGNORABLE #:IT74763)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74763) (LOCALLY (DECLARE (TYPE NULL #:IT74763)) (LET ((#:BIND74759 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:BIND74759)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74773 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74773 (GUARD1 (#:IT74772 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74772 'FLOAT) #:INTERSECTION74773 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74773 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75728 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75729 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75730 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74760 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74760)) (LET ((#:CONS74758 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:CONS74758)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74758) (LOCALLY (DECLARE (TYPE CONS #:CONS74758)) (LET ((#:IT74761 (CAR #:CONS74758))) (DECLARE (IGNORABLE #:IT74761)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74761 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74761)) (LET ((#:CONS74762 (CDR #:CONS74758))) (DECLARE (IGNORABLE #:CONS74762)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74762) (LOCALLY (DECLARE (TYPE CONS #:CONS74762)) (LET ((#:IT74763 (CDR #:CONS74762))) (DECLARE (IGNORABLE #:IT74763)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74763) (LOCALLY (DECLARE (TYPE NULL #:IT74763)) (LET ((#:BIND74759 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:BIND74759)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74775 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74775 (GUARD1 (#:IT74774 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74774 'SHORT-FLOAT) #:INTERSECTION74775 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74775 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75731 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75732 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75733 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74760 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74760)) (LET ((#:CONS74758 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:CONS74758)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74758) (LOCALLY (DECLARE (TYPE CONS #:CONS74758)) (LET ((#:IT74761 (CAR #:CONS74758))) (DECLARE (IGNORABLE #:IT74761)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74761 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74761)) (LET ((#:CONS74762 (CDR #:CONS74758))) (DECLARE (IGNORABLE #:CONS74762)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74762) (LOCALLY (DECLARE (TYPE CONS #:CONS74762)) (LET ((#:IT74763 (CDR #:CONS74762))) (DECLARE (IGNORABLE #:IT74763)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74763) (LOCALLY (DECLARE (TYPE NULL #:IT74763)) (LET ((#:BIND74759 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:BIND74759)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74777 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74777 (GUARD1 (#:IT74776 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74776 'SINGLE-FLOAT) #:INTERSECTION74777 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74777 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75734 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75735 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75736 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74760 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74760)) (LET ((#:CONS74758 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:CONS74758)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74758) (LOCALLY (DECLARE (TYPE CONS #:CONS74758)) (LET ((#:IT74761 (CAR #:CONS74758))) (DECLARE (IGNORABLE #:IT74761)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74761 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74761)) (LET ((#:CONS74762 (CDR #:CONS74758))) (DECLARE (IGNORABLE #:CONS74762)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74762) (LOCALLY (DECLARE (TYPE CONS #:CONS74762)) (LET ((#:IT74763 (CDR #:CONS74762))) (DECLARE (IGNORABLE #:IT74763)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74763) (LOCALLY (DECLARE (TYPE NULL #:IT74763)) (LET ((#:BIND74759 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:BIND74759)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74779 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74779 (GUARD1 (#:IT74778 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74778 'DOUBLE-FLOAT) #:INTERSECTION74779 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74779 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75737 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75738 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75739 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74760 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74760)) (LET ((#:CONS74758 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:CONS74758)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74758) (LOCALLY (DECLARE (TYPE CONS #:CONS74758)) (LET ((#:IT74761 (CAR #:CONS74758))) (DECLARE (IGNORABLE #:IT74761)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74761 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74761)) (LET ((#:CONS74762 (CDR #:CONS74758))) (DECLARE (IGNORABLE #:CONS74762)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74762) (LOCALLY (DECLARE (TYPE CONS #:CONS74762)) (LET ((#:IT74763 (CDR #:CONS74762))) (DECLARE (IGNORABLE #:IT74763)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74763) (LOCALLY (DECLARE (TYPE NULL #:IT74763)) (LET ((#:BIND74759 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:BIND74759)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74781 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74781 (GUARD1 (#:IT74780 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74780 'LONG-FLOAT) #:INTERSECTION74781 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74781 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75740 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75741 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75742 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74767 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74767)) (LET ((#:CONS74764 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:CONS74764)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74764) (LOCALLY (DECLARE (TYPE CONS #:CONS74764)) (LET ((#:IT74768 (CAR #:CONS74764))) (DECLARE (IGNORABLE #:IT74768)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74768 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74768)) (LET ((#:IT74769 (CDR #:CONS74764))) (DECLARE (IGNORABLE #:IT74769)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74769) (LOCALLY (DECLARE (TYPE NULL #:IT74769)) (LET ((#:BIND74765 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74765)) (LET ((#:BIND74766 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74766)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74773 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74773 (GUARD1 (#:IT74772 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74772 'FLOAT) #:INTERSECTION74773 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74773 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75743 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75744 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75745 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74767 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74767)) (LET ((#:CONS74764 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:CONS74764)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74764) (LOCALLY (DECLARE (TYPE CONS #:CONS74764)) (LET ((#:IT74768 (CAR #:CONS74764))) (DECLARE (IGNORABLE #:IT74768)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74768 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74768)) (LET ((#:IT74769 (CDR #:CONS74764))) (DECLARE (IGNORABLE #:IT74769)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74769) (LOCALLY (DECLARE (TYPE NULL #:IT74769)) (LET ((#:BIND74765 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74765)) (LET ((#:BIND74766 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74766)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74775 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74775 (GUARD1 (#:IT74774 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74774 'SHORT-FLOAT) #:INTERSECTION74775 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74775 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75746 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75747 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75748 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74767 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74767)) (LET ((#:CONS74764 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:CONS74764)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74764) (LOCALLY (DECLARE (TYPE CONS #:CONS74764)) (LET ((#:IT74768 (CAR #:CONS74764))) (DECLARE (IGNORABLE #:IT74768)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74768 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74768)) (LET ((#:IT74769 (CDR #:CONS74764))) (DECLARE (IGNORABLE #:IT74769)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74769) (LOCALLY (DECLARE (TYPE NULL #:IT74769)) (LET ((#:BIND74765 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74765)) (LET ((#:BIND74766 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74766)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74777 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74777 (GUARD1 (#:IT74776 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74776 'SINGLE-FLOAT) #:INTERSECTION74777 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74777 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75749 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75750 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75751 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74767 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74767)) (LET ((#:CONS74764 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:CONS74764)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74764) (LOCALLY (DECLARE (TYPE CONS #:CONS74764)) (LET ((#:IT74768 (CAR #:CONS74764))) (DECLARE (IGNORABLE #:IT74768)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74768 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74768)) (LET ((#:IT74769 (CDR #:CONS74764))) (DECLARE (IGNORABLE #:IT74769)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74769) (LOCALLY (DECLARE (TYPE NULL #:IT74769)) (LET ((#:BIND74765 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74765)) (LET ((#:BIND74766 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74766)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74779 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74779 (GUARD1 (#:IT74778 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74778 'DOUBLE-FLOAT) #:INTERSECTION74779 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74779 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75752 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75753 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75754 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74767 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74767)) (LET ((#:CONS74764 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:CONS74764)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74764) (LOCALLY (DECLARE (TYPE CONS #:CONS74764)) (LET ((#:IT74768 (CAR #:CONS74764))) (DECLARE (IGNORABLE #:IT74768)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74768 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74768)) (LET ((#:IT74769 (CDR #:CONS74764))) (DECLARE (IGNORABLE #:IT74769)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74769) (LOCALLY (DECLARE (TYPE NULL #:IT74769)) (LET ((#:BIND74765 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74765)) (LET ((#:BIND74766 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74766)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74781 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74781 (GUARD1 (#:IT74780 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74780 'LONG-FLOAT) #:INTERSECTION74781 (GUARD1 (#:BIND74770 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74781 (GUARD1 (#:BIND74771 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75755 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75756 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75757 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75210 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75210)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75210) (LOCALLY (DECLARE (TYPE CONS #:FUSION75210)) (LET ((#:CONS74753 #:FUSION75210)) (DECLARE (IGNORABLE #:CONS74753)) (LOCALLY (DECLARE (TYPE CONS #:CONS74753)) (LET ((#:GEN75211 (CAR #:FUSION75210))) (DECLARE (IGNORABLE #:GEN75211)) (LET ((#:GEN75212 (CDR #:FUSION75210))) (DECLARE (IGNORABLE #:GEN75212)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75213 T) (MATCH1 NIL ((GUARD1 #:IT75758 T) (MATCH2*+ (#:GEN75211 #:GEN75212 #:PAT75213) (T T T) (((GUARD1 (#:IT74754 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74754 'FLOAT)) (GUARD1 (#:CONS74755 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74755) (CDR #:CONS74755) (GUARD1 (#:CONS74756 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74756) (CDR #:CONS74756) (GUARD1 (#:IT74757 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74757)))) (GUARD1 (#:CONS74782 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74782) (CAR #:CONS74782) (OR1 (GUARD1 (#:IT74783 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74783 'FLOAT)) (GUARD1 (#:IT74784 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74784 'SHORT-FLOAT)) (GUARD1 (#:IT74785 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74785 'SINGLE-FLOAT)) (GUARD1 (#:IT74786 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74786 'DOUBLE-FLOAT)) (GUARD1 (#:IT74787 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74787 'LONG-FLOAT))) (CDR #:CONS74782) (GUARD1 (#:CONS74788 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74788) (CDR #:CONS74788) (GUARD1 (#:CONS74789 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74789) (CDR #:CONS74789) (GUARD1 (#:IT74790 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74790)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74754 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74754 'FLOAT)) (GUARD1 (#:CONS74755 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74755) (CDR #:CONS74755) (GUARD1 (#:CONS74756 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74756) (CDR #:CONS74756) (GUARD1 (#:IT74757 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74757)))) (GUARD1 (#:INTERSECTION74793 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74793 (GUARD1 (#:CONS74791 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74791) (CAR #:CONS74791) (OR1 (GUARD1 (#:IT74794 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74794 'FLOAT)) (GUARD1 (#:IT74795 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74795 'SHORT-FLOAT)) (GUARD1 (#:IT74796 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74796 'SINGLE-FLOAT)) (GUARD1 (#:IT74797 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74797 'DOUBLE-FLOAT)) (GUARD1 (#:IT74798 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74798 'LONG-FLOAT))) (CDR #:CONS74791) (GUARD1 (#:CONS74799 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74799) (CDR #:CONS74799) (GUARD1 (#:IT74800 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74800))) #:INTERSECTION74793 (GUARD1 (#:BIND74792 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74754 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74754 'FLOAT)) (GUARD1 (#:CONS74755 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74755) (CDR #:CONS74755) (GUARD1 (#:CONS74756 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74756) (CDR #:CONS74756) (GUARD1 (#:IT74757 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74757)))) (GUARD1 (#:INTERSECTION74804 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74804 (GUARD1 (#:CONS74801 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74801) (CAR #:CONS74801) (OR1 (GUARD1 (#:IT74805 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74805 'FLOAT)) (GUARD1 (#:IT74806 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74806 'SHORT-FLOAT)) (GUARD1 (#:IT74807 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74807 'SINGLE-FLOAT)) (GUARD1 (#:IT74808 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74808 'DOUBLE-FLOAT)) (GUARD1 (#:IT74809 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74809 'LONG-FLOAT))) (CDR #:CONS74801) (GUARD1 (#:IT74810 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74810)) #:INTERSECTION74804 (GUARD1 (#:BIND74802 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74804 (GUARD1 (#:BIND74803 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75759 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75760 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74760 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74760)) (LET ((#:CONS74758 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:CONS74758)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74758) (LOCALLY (DECLARE (TYPE CONS #:CONS74758)) (LET ((#:IT74761 (CAR #:CONS74758))) (DECLARE (IGNORABLE #:IT74761)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74761 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74761)) (LET ((#:CONS74762 (CDR #:CONS74758))) (DECLARE (IGNORABLE #:CONS74762)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74762) (LOCALLY (DECLARE (TYPE CONS #:CONS74762)) (LET ((#:IT74763 (CDR #:CONS74762))) (DECLARE (IGNORABLE #:IT74763)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74763) (LOCALLY (DECLARE (TYPE NULL #:IT74763)) (LET ((#:BIND74759 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:BIND74759)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:CONS74782 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74782) (CAR #:CONS74782) (OR1 (GUARD1 (#:IT74783 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74783 'FLOAT)) (GUARD1 (#:IT74784 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74784 'SHORT-FLOAT)) (GUARD1 (#:IT74785 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74785 'SINGLE-FLOAT)) (GUARD1 (#:IT74786 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74786 'DOUBLE-FLOAT)) (GUARD1 (#:IT74787 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74787 'LONG-FLOAT))) (CDR #:CONS74782) (GUARD1 (#:CONS74788 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74788) (CDR #:CONS74788) (GUARD1 (#:CONS74789 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74789) (CDR #:CONS74789) (GUARD1 (#:IT74790 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74790))))) (MATCH1 NIL ((GUARD1 #:IT75761 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75762 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75763 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74760 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74760)) (LET ((#:CONS74758 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:CONS74758)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74758) (LOCALLY (DECLARE (TYPE CONS #:CONS74758)) (LET ((#:IT74761 (CAR #:CONS74758))) (DECLARE (IGNORABLE #:IT74761)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74761 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74761)) (LET ((#:CONS74762 (CDR #:CONS74758))) (DECLARE (IGNORABLE #:CONS74762)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74762) (LOCALLY (DECLARE (TYPE CONS #:CONS74762)) (LET ((#:IT74763 (CDR #:CONS74762))) (DECLARE (IGNORABLE #:IT74763)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74763) (LOCALLY (DECLARE (TYPE NULL #:IT74763)) (LET ((#:BIND74759 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:BIND74759)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74793 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74793 (GUARD1 (#:CONS74791 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74791) (CAR #:CONS74791) (OR1 (GUARD1 (#:IT74794 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74794 'FLOAT)) (GUARD1 (#:IT74795 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74795 'SHORT-FLOAT)) (GUARD1 (#:IT74796 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74796 'SINGLE-FLOAT)) (GUARD1 (#:IT74797 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74797 'DOUBLE-FLOAT)) (GUARD1 (#:IT74798 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74798 'LONG-FLOAT))) (CDR #:CONS74791) (GUARD1 (#:CONS74799 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74799) (CDR #:CONS74799) (GUARD1 (#:IT74800 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74800))) #:INTERSECTION74793 (GUARD1 (#:BIND74792 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75764 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75765 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75766 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74760 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74760)) (LET ((#:CONS74758 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:CONS74758)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74758) (LOCALLY (DECLARE (TYPE CONS #:CONS74758)) (LET ((#:IT74761 (CAR #:CONS74758))) (DECLARE (IGNORABLE #:IT74761)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74761 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74761)) (LET ((#:CONS74762 (CDR #:CONS74758))) (DECLARE (IGNORABLE #:CONS74762)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74762) (LOCALLY (DECLARE (TYPE CONS #:CONS74762)) (LET ((#:IT74763 (CDR #:CONS74762))) (DECLARE (IGNORABLE #:IT74763)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74763) (LOCALLY (DECLARE (TYPE NULL #:IT74763)) (LET ((#:BIND74759 #:INTERSECTION74760)) (DECLARE (IGNORABLE #:BIND74759)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74804 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74804 (GUARD1 (#:CONS74801 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74801) (CAR #:CONS74801) (OR1 (GUARD1 (#:IT74805 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74805 'FLOAT)) (GUARD1 (#:IT74806 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74806 'SHORT-FLOAT)) (GUARD1 (#:IT74807 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74807 'SINGLE-FLOAT)) (GUARD1 (#:IT74808 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74808 'DOUBLE-FLOAT)) (GUARD1 (#:IT74809 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74809 'LONG-FLOAT))) (CDR #:CONS74801) (GUARD1 (#:IT74810 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74810)) #:INTERSECTION74804 (GUARD1 (#:BIND74802 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74804 (GUARD1 (#:BIND74803 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75767 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75768 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75769 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74767 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74767)) (LET ((#:CONS74764 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:CONS74764)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74764) (LOCALLY (DECLARE (TYPE CONS #:CONS74764)) (LET ((#:IT74768 (CAR #:CONS74764))) (DECLARE (IGNORABLE #:IT74768)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74768 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74768)) (LET ((#:IT74769 (CDR #:CONS74764))) (DECLARE (IGNORABLE #:IT74769)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74769) (LOCALLY (DECLARE (TYPE NULL #:IT74769)) (LET ((#:BIND74765 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74765)) (LET ((#:BIND74766 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74766)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:CONS74782 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74782) (CAR #:CONS74782) (OR1 (GUARD1 (#:IT74783 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74783 'FLOAT)) (GUARD1 (#:IT74784 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74784 'SHORT-FLOAT)) (GUARD1 (#:IT74785 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74785 'SINGLE-FLOAT)) (GUARD1 (#:IT74786 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74786 'DOUBLE-FLOAT)) (GUARD1 (#:IT74787 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74787 'LONG-FLOAT))) (CDR #:CONS74782) (GUARD1 (#:CONS74788 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74788) (CDR #:CONS74788) (GUARD1 (#:CONS74789 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74789) (CDR #:CONS74789) (GUARD1 (#:IT74790 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74790))))) (MATCH1 NIL ((GUARD1 #:IT75770 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75771 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75772 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74767 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74767)) (LET ((#:CONS74764 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:CONS74764)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74764) (LOCALLY (DECLARE (TYPE CONS #:CONS74764)) (LET ((#:IT74768 (CAR #:CONS74764))) (DECLARE (IGNORABLE #:IT74768)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74768 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74768)) (LET ((#:IT74769 (CDR #:CONS74764))) (DECLARE (IGNORABLE #:IT74769)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74769) (LOCALLY (DECLARE (TYPE NULL #:IT74769)) (LET ((#:BIND74765 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74765)) (LET ((#:BIND74766 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74766)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74793 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74793 (GUARD1 (#:CONS74791 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74791) (CAR #:CONS74791) (OR1 (GUARD1 (#:IT74794 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74794 'FLOAT)) (GUARD1 (#:IT74795 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74795 'SHORT-FLOAT)) (GUARD1 (#:IT74796 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74796 'SINGLE-FLOAT)) (GUARD1 (#:IT74797 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74797 'DOUBLE-FLOAT)) (GUARD1 (#:IT74798 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74798 'LONG-FLOAT))) (CDR #:CONS74791) (GUARD1 (#:CONS74799 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74799) (CDR #:CONS74799) (GUARD1 (#:IT74800 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74800))) #:INTERSECTION74793 (GUARD1 (#:BIND74792 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75773 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75774 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75775 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74767 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74767)) (LET ((#:CONS74764 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:CONS74764)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74764) (LOCALLY (DECLARE (TYPE CONS #:CONS74764)) (LET ((#:IT74768 (CAR #:CONS74764))) (DECLARE (IGNORABLE #:IT74768)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74768 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT74768)) (LET ((#:IT74769 (CDR #:CONS74764))) (DECLARE (IGNORABLE #:IT74769)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74769) (LOCALLY (DECLARE (TYPE NULL #:IT74769)) (LET ((#:BIND74765 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74765)) (LET ((#:BIND74766 #:INTERSECTION74767)) (DECLARE (IGNORABLE #:BIND74766)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74804 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74804 (GUARD1 (#:CONS74801 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74801) (CAR #:CONS74801) (OR1 (GUARD1 (#:IT74805 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT74805 'FLOAT)) (GUARD1 (#:IT74806 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT74806 'SHORT-FLOAT)) (GUARD1 (#:IT74807 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT74807 'SINGLE-FLOAT)) (GUARD1 (#:IT74808 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT74808 'DOUBLE-FLOAT)) (GUARD1 (#:IT74809 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT74809 'LONG-FLOAT))) (CDR #:CONS74801) (GUARD1 (#:IT74810 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74810)) #:INTERSECTION74804 (GUARD1 (#:BIND74802 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74804 (GUARD1 (#:BIND74803 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75776 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75777 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75778 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT74811 #:WHAT176093)) (DECLARE (IGNORABLE #:IT74811)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74811 'RATIO) (LOCALLY (DECLARE (TYPE (EQL RATIO) #:IT74811)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:IT74815 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74815 'RATIO)) (MATCH1 NIL ((GUARD1 #:IT75779 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75780 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75781 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT74811 #:WHAT176093)) (DECLARE (IGNORABLE #:IT74811)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74811 'RATIO) (LOCALLY (DECLARE (TYPE (EQL RATIO) #:IT74811)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74816 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74816) (CAR #:CONS74816) (GUARD1 (#:IT74817 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74817 'RATIO)) (CDR #:CONS74816) (GUARD1 (#:IT74818 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74818)))) (MATCH1 NIL ((GUARD1 #:IT75782 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75783 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75784 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75217 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75217)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75217) (LOCALLY (DECLARE (TYPE CONS #:FUSION75217)) (LET ((#:CONS74812 #:FUSION75217)) (DECLARE (IGNORABLE #:CONS74812)) (LOCALLY (DECLARE (TYPE CONS #:CONS74812)) (LET ((#:GEN75218 (CAR #:FUSION75217))) (DECLARE (IGNORABLE #:GEN75218)) (LET ((#:GEN75219 (CDR #:FUSION75217))) (DECLARE (IGNORABLE #:GEN75219)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75220 T) (MATCH1 NIL ((GUARD1 #:IT75785 T) (MATCH2*+ (#:GEN75218 #:GEN75219 #:PAT75220) (T T T) (((GUARD1 (#:IT74813 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74813 'RATIO)) (GUARD1 (#:IT74814 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74814)) (GUARD1 (#:IT74815 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74815 'RATIO))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74813 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74813 'RATIO)) (GUARD1 (#:IT74814 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74814)) (GUARD1 (#:CONS74816 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74816) (CAR #:CONS74816) (GUARD1 (#:IT74817 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74817 'RATIO)) (CDR #:CONS74816) (GUARD1 (#:IT74818 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74818)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75786 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75787 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74822 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74822)) (LET ((#:IT74819 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:IT74819)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74819 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74819)) (LET ((#:BIND74820 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74820)) (LET ((#:BIND74821 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74821)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74843 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74843 (GUARD1 (#:CONS74841 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74841) (CAR #:CONS74841) (GUARD1 (#:IT74844 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74844 'MOD)) (CDR #:CONS74841) (GUARD1 (#:CONS74845 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74845) (CAR #:CONS74845) (GUARD1 (#:N74840 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74845) (GUARD1 (#:IT74846 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74846))) #:INTERSECTION74843 (GUARD1 (#:BIND74842 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75788 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75789 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75790 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74822 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74822)) (LET ((#:IT74819 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:IT74819)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74819 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74819)) (LET ((#:BIND74820 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74820)) (LET ((#:BIND74821 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74821)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74850 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74850 (GUARD1 (#:IT74847 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74847 'BIT) #:INTERSECTION74850 (GUARD1 (#:BIND74848 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74850 (GUARD1 (#:BIND74849 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75791 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75792 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75793 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74822 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74822)) (LET ((#:IT74819 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:IT74819)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74819 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74819)) (LET ((#:BIND74820 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74820)) (LET ((#:BIND74821 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74821)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74854 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74854 (GUARD1 (#:CONS74853 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74853) (CAR #:CONS74853) (GUARD1 (#:IT74855 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74855 'UNSIGNED-BYTE)) (CDR #:CONS74853) (GUARD1 (#:CONS74856 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74856) (CAR #:CONS74856) (GUARD1 (#:INTERSECTION74858 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74858 (GUARD1 (#:IT74857 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74857 'FIXNUM) #:INTERSECTION74858 (GUARD1 (#:N74851 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74856) (GUARD1 (#:IT74859 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74859))) #:INTERSECTION74854 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74861 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74861 (GUARD1 (#:CONS74860 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74860) (CAR #:CONS74860) (GUARD1 (#:IT74862 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74862 'UNSIGNED-BYTE)) (CDR #:CONS74860) (GUARD1 (#:CONS74863 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74863) (CAR #:CONS74863) (GUARD1 (#:INTERSECTION74866 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74866 (GUARD1 (#:IT74864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74864 '*) #:INTERSECTION74866 (GUARD1 (#:IT74865 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74863) (GUARD1 (#:IT74867 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74867))) #:INTERSECTION74861 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74871 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74871 (GUARD1 (#:INTERSECTION74870 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74870 (GUARD1 (#:CONS74868 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74868) (CAR #:CONS74868) (GUARD1 (#:IT74872 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74872 'UNSIGNED-BYTE)) (CDR #:CONS74868) (GUARD1 (#:IT74873 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74873)) #:INTERSECTION74870 (GUARD1 (#:BIND74869 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION74871 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75794 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75795 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75796 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74822 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74822)) (LET ((#:IT74819 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:IT74819)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74819 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74819)) (LET ((#:BIND74820 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74820)) (LET ((#:BIND74821 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74821)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74880 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74880 (GUARD1 (#:CONS74875 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74875) (CAR #:CONS74875) (GUARD1 (#:IT74876 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74876 'SIGNED-BYTE)) (CDR #:CONS74875) (GUARD1 (#:CONS74877 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74877) (CAR #:CONS74877) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N74874 'FIXNUM)) (CDR #:CONS74877) (GUARD1 (#:IT74878 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74878))) #:INTERSECTION74880 (GUARD1 (#:LIFT-DUMMY74879 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION74886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74886 (GUARD1 (#:CONS74881 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74881) (CAR #:CONS74881) (GUARD1 (#:IT74882 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74882 'SIGNED-BYTE)) (CDR #:CONS74881) (GUARD1 (#:CONS74883 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74883) (CAR #:CONS74883) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N74874)) (CDR #:CONS74883) (GUARD1 (#:IT74884 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74884))) #:INTERSECTION74886 (GUARD1 (#:LIFT-DUMMY74885 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION74890 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74890 (GUARD1 (#:CONS74887 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74887) (CAR #:CONS74887) (GUARD1 (#:IT74888 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74888 'SIGNED-BYTE)) (CDR #:CONS74887) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N74874)) #:INTERSECTION74890 (GUARD1 (#:LIFT-DUMMY74889 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION74892 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74892 (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N74874) #:INTERSECTION74892 (GUARD1 (#:LIFT-DUMMY74891 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (MATCH1 NIL ((GUARD1 #:IT75797 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75798 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75799 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74822 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74822)) (LET ((#:IT74819 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:IT74819)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74819 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74819)) (LET ((#:BIND74820 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74820)) (LET ((#:BIND74821 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74821)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74896 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74896 (GUARD1 (#:IT74893 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74893 'BIGNUM) #:INTERSECTION74896 (GUARD1 (#:BIND74894 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74896 (GUARD1 (#:BIND74895 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION74900 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74900 (GUARD1 (#:CONS74897 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74897) (CAR #:CONS74897) (GUARD1 (#:IT74901 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74901 'BIGNUM)) (CDR #:CONS74897) (GUARD1 (#:IT74902 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74902)) #:INTERSECTION74900 (GUARD1 (#:BIND74898 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74900 (GUARD1 (#:BIND74899 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT75800 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75801 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75802 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74822 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74822)) (LET ((#:IT74819 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:IT74819)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74819 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74819)) (LET ((#:BIND74820 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74820)) (LET ((#:BIND74821 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74821)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74906 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74906 (GUARD1 (#:IT74903 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74903 'FIXNUM) #:INTERSECTION74906 (GUARD1 (#:BIND74904 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74906 (GUARD1 (#:BIND74905 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION74910 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74910 (GUARD1 (#:CONS74907 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74907) (CAR #:CONS74907) (GUARD1 (#:IT74911 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74911 'FIXNUM)) (CDR #:CONS74907) (GUARD1 (#:IT74912 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74912)) #:INTERSECTION74910 (GUARD1 (#:BIND74908 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74910 (GUARD1 (#:BIND74909 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT75803 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75804 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75805 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74822 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74822)) (LET ((#:IT74819 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:IT74819)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74819 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74819)) (LET ((#:BIND74820 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74820)) (LET ((#:BIND74821 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74821)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74916 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74916 (GUARD1 (#:IT74913 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74913 'RATIO) #:INTERSECTION74916 (GUARD1 (#:BIND74914 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74916 (GUARD1 (#:BIND74915 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION74920 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74920 (GUARD1 (#:CONS74917 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74917) (CAR #:CONS74917) (GUARD1 (#:IT74921 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74921 'RATIO)) (CDR #:CONS74917) (GUARD1 (#:IT74922 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74922)) #:INTERSECTION74920 (GUARD1 (#:BIND74918 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74920 (GUARD1 (#:BIND74919 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT75806 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75807 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75808 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74822 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74822)) (LET ((#:IT74819 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:IT74819)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74819 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74819)) (LET ((#:BIND74820 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74820)) (LET ((#:BIND74821 #:INTERSECTION74822)) (DECLARE (IGNORABLE #:BIND74821)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (OR1 (GUARD1 (#:INTERSECTION74926 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74926 (GUARD1 (#:IT74925 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74925 'INTEGER) #:INTERSECTION74926 (GUARD1 (#:BIND74923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74926 (GUARD1 (#:BIND74924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION74928 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74928 (GUARD1 (#:IT74927 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74927 'RATIONAL) #:INTERSECTION74928 (GUARD1 (#:BIND74923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74928 (GUARD1 (#:BIND74924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (OR1 (GUARD1 (#:CONS74929 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74929) (CAR #:CONS74929) (OR1 (GUARD1 (#:IT74930 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74930 'INTEGER)) (GUARD1 (#:IT74931 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74931 'RATIONAL))) (CDR #:CONS74929) (GUARD1 (#:CONS74932 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74932) (CDR #:CONS74932) (GUARD1 (#:CONS74933 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74933) (CDR #:CONS74933) (GUARD1 (#:IT74934 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74934))))) (GUARD1 (#:INTERSECTION74937 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74937 (GUARD1 (#:CONS74935 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74935) (CAR #:CONS74935) (OR1 (GUARD1 (#:IT74938 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74938 'INTEGER)) (GUARD1 (#:IT74939 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74939 'RATIONAL))) (CDR #:CONS74935) (GUARD1 (#:CONS74940 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74940) (CDR #:CONS74940) (GUARD1 (#:IT74941 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74941))) #:INTERSECTION74937 (GUARD1 (#:BIND74936 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74945 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74945 (GUARD1 (#:CONS74942 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74942) (CAR #:CONS74942) (OR1 (GUARD1 (#:IT74946 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74946 'INTEGER)) (GUARD1 (#:IT74947 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74947 'RATIONAL))) (CDR #:CONS74942) (GUARD1 (#:IT74948 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74948)) #:INTERSECTION74945 (GUARD1 (#:BIND74943 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74945 (GUARD1 (#:BIND74944 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT75809 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75810 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75811 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS74823 #:WHAT176093)) (DECLARE (IGNORABLE #:CONS74823)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74823) (LOCALLY (DECLARE (TYPE CONS #:CONS74823)) (LET ((#:IT74824 (CAR #:CONS74823))) (DECLARE (IGNORABLE #:IT74824)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74824 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74824)) (LET ((#:CONS74825 (CDR #:CONS74823))) (DECLARE (IGNORABLE #:CONS74825)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74825) (LOCALLY (DECLARE (TYPE CONS #:CONS74825)) (LET ((#:CONS74826 (CDR #:CONS74825))) (DECLARE (IGNORABLE #:CONS74826)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74826) (LOCALLY (DECLARE (TYPE CONS #:CONS74826)) (LET ((#:IT74827 (CDR #:CONS74826))) (DECLARE (IGNORABLE #:IT74827)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74827) (LOCALLY (DECLARE (TYPE NULL #:IT74827)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74843 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74843 (GUARD1 (#:CONS74841 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74841) (CAR #:CONS74841) (GUARD1 (#:IT74844 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74844 'MOD)) (CDR #:CONS74841) (GUARD1 (#:CONS74845 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74845) (CAR #:CONS74845) (GUARD1 (#:N74840 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74845) (GUARD1 (#:IT74846 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74846))) #:INTERSECTION74843 (GUARD1 (#:BIND74842 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75812 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75813 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75814 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74843 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74843 (GUARD1 (#:CONS74841 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74841) (CAR #:CONS74841) (GUARD1 (#:IT74844 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74844 'MOD)) (CDR #:CONS74841) (GUARD1 (#:CONS74845 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74845) (CAR #:CONS74845) (GUARD1 (#:N74840 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74845) (GUARD1 (#:IT74846 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74846))) #:INTERSECTION74843 (GUARD1 (#:BIND74842 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75815 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75816 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75817 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74843 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74843 (GUARD1 (#:CONS74841 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74841) (CAR #:CONS74841) (GUARD1 (#:IT74844 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74844 'MOD)) (CDR #:CONS74841) (GUARD1 (#:CONS74845 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74845) (CAR #:CONS74845) (GUARD1 (#:N74840 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74845) (GUARD1 (#:IT74846 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74846))) #:INTERSECTION74843 (GUARD1 (#:BIND74842 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75818 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75819 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75820 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS74823 #:WHAT176093)) (DECLARE (IGNORABLE #:CONS74823)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74823) (LOCALLY (DECLARE (TYPE CONS #:CONS74823)) (LET ((#:IT74824 (CAR #:CONS74823))) (DECLARE (IGNORABLE #:IT74824)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74824 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74824)) (LET ((#:CONS74825 (CDR #:CONS74823))) (DECLARE (IGNORABLE #:CONS74825)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74825) (LOCALLY (DECLARE (TYPE CONS #:CONS74825)) (LET ((#:CONS74826 (CDR #:CONS74825))) (DECLARE (IGNORABLE #:CONS74826)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74826) (LOCALLY (DECLARE (TYPE CONS #:CONS74826)) (LET ((#:IT74827 (CDR #:CONS74826))) (DECLARE (IGNORABLE #:IT74827)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74827) (LOCALLY (DECLARE (TYPE NULL #:IT74827)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74850 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74850 (GUARD1 (#:IT74847 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74847 'BIT) #:INTERSECTION74850 (GUARD1 (#:BIND74848 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74850 (GUARD1 (#:BIND74849 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75821 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75822 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75823 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74850 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74850 (GUARD1 (#:IT74847 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74847 'BIT) #:INTERSECTION74850 (GUARD1 (#:BIND74848 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74850 (GUARD1 (#:BIND74849 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75824 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75825 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75826 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74850 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74850 (GUARD1 (#:IT74847 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74847 'BIT) #:INTERSECTION74850 (GUARD1 (#:BIND74848 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74850 (GUARD1 (#:BIND74849 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75827 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75828 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75829 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75230 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75230)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75230) (LOCALLY (DECLARE (TYPE CONS #:FUSION75230)) (LET ((#:CONS74823 #:FUSION75230)) (DECLARE (IGNORABLE #:CONS74823)) (LOCALLY (DECLARE (TYPE CONS #:CONS74823)) (LET ((#:GEN75231 (CAR #:FUSION75230))) (DECLARE (IGNORABLE #:GEN75231)) (LET ((#:GEN75232 (CDR #:FUSION75230))) (DECLARE (IGNORABLE #:GEN75232)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75233 T) (MATCH1 NIL ((GUARD1 #:IT75830 T) (MATCH2*+ (#:GEN75231 #:GEN75232 #:PAT75233) (T T T) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (GUARD1 (#:INTERSECTION74854 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74854 (GUARD1 (#:CONS74853 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74853) (CAR #:CONS74853) (GUARD1 (#:IT74855 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74855 'UNSIGNED-BYTE)) (CDR #:CONS74853) (GUARD1 (#:CONS74856 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74856) (CAR #:CONS74856) (GUARD1 (#:INTERSECTION74858 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74858 (GUARD1 (#:IT74857 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74857 'FIXNUM) #:INTERSECTION74858 (GUARD1 (#:N74851 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74856) (GUARD1 (#:IT74859 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74859))) #:INTERSECTION74854 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (GUARD1 (#:INTERSECTION74861 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74861 (GUARD1 (#:CONS74860 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74860) (CAR #:CONS74860) (GUARD1 (#:IT74862 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74862 'UNSIGNED-BYTE)) (CDR #:CONS74860) (GUARD1 (#:CONS74863 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74863) (CAR #:CONS74863) (GUARD1 (#:INTERSECTION74866 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74866 (GUARD1 (#:IT74864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74864 '*) #:INTERSECTION74866 (GUARD1 (#:IT74865 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74863) (GUARD1 (#:IT74867 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74867))) #:INTERSECTION74861 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (GUARD1 (#:INTERSECTION74871 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74871 (GUARD1 (#:INTERSECTION74870 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74870 (GUARD1 (#:CONS74868 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74868) (CAR #:CONS74868) (GUARD1 (#:IT74872 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74872 'UNSIGNED-BYTE)) (CDR #:CONS74868) (GUARD1 (#:IT74873 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74873)) #:INTERSECTION74870 (GUARD1 (#:BIND74869 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION74871 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75831 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75832 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74854 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74854 (GUARD1 (#:CONS74853 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74853) (CAR #:CONS74853) (GUARD1 (#:IT74855 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74855 'UNSIGNED-BYTE)) (CDR #:CONS74853) (GUARD1 (#:CONS74856 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74856) (CAR #:CONS74856) (GUARD1 (#:INTERSECTION74858 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74858 (GUARD1 (#:IT74857 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74857 'FIXNUM) #:INTERSECTION74858 (GUARD1 (#:N74851 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74856) (GUARD1 (#:IT74859 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74859))) #:INTERSECTION74854 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75833 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75834 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75835 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74861 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74861 (GUARD1 (#:CONS74860 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74860) (CAR #:CONS74860) (GUARD1 (#:IT74862 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74862 'UNSIGNED-BYTE)) (CDR #:CONS74860) (GUARD1 (#:CONS74863 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74863) (CAR #:CONS74863) (GUARD1 (#:INTERSECTION74866 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74866 (GUARD1 (#:IT74864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74864 '*) #:INTERSECTION74866 (GUARD1 (#:IT74865 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74863) (GUARD1 (#:IT74867 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74867))) #:INTERSECTION74861 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75836 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75837 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75838 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74871 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74871 (GUARD1 (#:INTERSECTION74870 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74870 (GUARD1 (#:CONS74868 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74868) (CAR #:CONS74868) (GUARD1 (#:IT74872 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74872 'UNSIGNED-BYTE)) (CDR #:CONS74868) (GUARD1 (#:IT74873 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74873)) #:INTERSECTION74870 (GUARD1 (#:BIND74869 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION74871 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75839 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75840 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75841 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74854 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74854 (GUARD1 (#:CONS74853 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74853) (CAR #:CONS74853) (GUARD1 (#:IT74855 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74855 'UNSIGNED-BYTE)) (CDR #:CONS74853) (GUARD1 (#:CONS74856 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74856) (CAR #:CONS74856) (GUARD1 (#:INTERSECTION74858 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74858 (GUARD1 (#:IT74857 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74857 'FIXNUM) #:INTERSECTION74858 (GUARD1 (#:N74851 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74856) (GUARD1 (#:IT74859 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74859))) #:INTERSECTION74854 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75842 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75843 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75844 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74861 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74861 (GUARD1 (#:CONS74860 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74860) (CAR #:CONS74860) (GUARD1 (#:IT74862 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74862 'UNSIGNED-BYTE)) (CDR #:CONS74860) (GUARD1 (#:CONS74863 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74863) (CAR #:CONS74863) (GUARD1 (#:INTERSECTION74866 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74866 (GUARD1 (#:IT74864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74864 '*) #:INTERSECTION74866 (GUARD1 (#:IT74865 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74863) (GUARD1 (#:IT74867 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74867))) #:INTERSECTION74861 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75845 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75846 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75847 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74871 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74871 (GUARD1 (#:INTERSECTION74870 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74870 (GUARD1 (#:CONS74868 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74868) (CAR #:CONS74868) (GUARD1 (#:IT74872 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74872 'UNSIGNED-BYTE)) (CDR #:CONS74868) (GUARD1 (#:IT74873 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74873)) #:INTERSECTION74870 (GUARD1 (#:BIND74869 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION74871 (GUARD1 (#:BIND74852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75848 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75849 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75850 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75237 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75237)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75237) (LOCALLY (DECLARE (TYPE CONS #:FUSION75237)) (LET ((#:CONS74823 #:FUSION75237)) (DECLARE (IGNORABLE #:CONS74823)) (LOCALLY (DECLARE (TYPE CONS #:CONS74823)) (LET ((#:GEN75238 (CAR #:FUSION75237))) (DECLARE (IGNORABLE #:GEN75238)) (LET ((#:GEN75239 (CDR #:FUSION75237))) (DECLARE (IGNORABLE #:GEN75239)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75240 T) (MATCH1 NIL ((GUARD1 #:IT75851 T) (MATCH2*+ (#:GEN75238 #:GEN75239 #:PAT75240) (T T T) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (GUARD1 (#:INTERSECTION74880 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74880 (GUARD1 (#:CONS74875 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74875) (CAR #:CONS74875) (GUARD1 (#:IT74876 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74876 'SIGNED-BYTE)) (CDR #:CONS74875) (GUARD1 (#:CONS74877 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74877) (CAR #:CONS74877) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N74874 'FIXNUM)) (CDR #:CONS74877) (GUARD1 (#:IT74878 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74878))) #:INTERSECTION74880 (GUARD1 (#:LIFT-DUMMY74879 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (GUARD1 (#:INTERSECTION74886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74886 (GUARD1 (#:CONS74881 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74881) (CAR #:CONS74881) (GUARD1 (#:IT74882 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74882 'SIGNED-BYTE)) (CDR #:CONS74881) (GUARD1 (#:CONS74883 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74883) (CAR #:CONS74883) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N74874)) (CDR #:CONS74883) (GUARD1 (#:IT74884 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74884))) #:INTERSECTION74886 (GUARD1 (#:LIFT-DUMMY74885 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (GUARD1 (#:INTERSECTION74890 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74890 (GUARD1 (#:CONS74887 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74887) (CAR #:CONS74887) (GUARD1 (#:IT74888 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74888 'SIGNED-BYTE)) (CDR #:CONS74887) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N74874)) #:INTERSECTION74890 (GUARD1 (#:LIFT-DUMMY74889 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (GUARD1 (#:INTERSECTION74892 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74892 (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N74874) #:INTERSECTION74892 (GUARD1 (#:LIFT-DUMMY74891 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75852 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75853 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74880 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74880 (GUARD1 (#:CONS74875 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74875) (CAR #:CONS74875) (GUARD1 (#:IT74876 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74876 'SIGNED-BYTE)) (CDR #:CONS74875) (GUARD1 (#:CONS74877 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74877) (CAR #:CONS74877) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N74874 'FIXNUM)) (CDR #:CONS74877) (GUARD1 (#:IT74878 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74878))) #:INTERSECTION74880 (GUARD1 (#:LIFT-DUMMY74879 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75854 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75855 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75856 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74886 (GUARD1 (#:CONS74881 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74881) (CAR #:CONS74881) (GUARD1 (#:IT74882 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74882 'SIGNED-BYTE)) (CDR #:CONS74881) (GUARD1 (#:CONS74883 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74883) (CAR #:CONS74883) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N74874)) (CDR #:CONS74883) (GUARD1 (#:IT74884 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74884))) #:INTERSECTION74886 (GUARD1 (#:LIFT-DUMMY74885 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75857 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75858 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75859 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74890 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74890 (GUARD1 (#:CONS74887 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74887) (CAR #:CONS74887) (GUARD1 (#:IT74888 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74888 'SIGNED-BYTE)) (CDR #:CONS74887) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N74874)) #:INTERSECTION74890 (GUARD1 (#:LIFT-DUMMY74889 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75860 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75861 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75862 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74892 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74892 (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N74874) #:INTERSECTION74892 (GUARD1 (#:LIFT-DUMMY74891 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75863 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75864 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75865 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74880 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74880 (GUARD1 (#:CONS74875 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74875) (CAR #:CONS74875) (GUARD1 (#:IT74876 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74876 'SIGNED-BYTE)) (CDR #:CONS74875) (GUARD1 (#:CONS74877 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74877) (CAR #:CONS74877) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N74874 'FIXNUM)) (CDR #:CONS74877) (GUARD1 (#:IT74878 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74878))) #:INTERSECTION74880 (GUARD1 (#:LIFT-DUMMY74879 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75866 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75867 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75868 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74886 (GUARD1 (#:CONS74881 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74881) (CAR #:CONS74881) (GUARD1 (#:IT74882 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74882 'SIGNED-BYTE)) (CDR #:CONS74881) (GUARD1 (#:CONS74883 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74883) (CAR #:CONS74883) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N74874)) (CDR #:CONS74883) (GUARD1 (#:IT74884 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74884))) #:INTERSECTION74886 (GUARD1 (#:LIFT-DUMMY74885 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75869 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75870 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75871 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74890 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74890 (GUARD1 (#:CONS74887 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74887) (CAR #:CONS74887) (GUARD1 (#:IT74888 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT74888 'SIGNED-BYTE)) (CDR #:CONS74887) (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N74874)) #:INTERSECTION74890 (GUARD1 (#:LIFT-DUMMY74889 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75872 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75873 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75874 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74892 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74892 (GUARD1 (#:N74874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N74874) #:INTERSECTION74892 (GUARD1 (#:LIFT-DUMMY74891 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT75875 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75876 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75877 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75244 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75244)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75244) (LOCALLY (DECLARE (TYPE CONS #:FUSION75244)) (LET ((#:CONS74823 #:FUSION75244)) (DECLARE (IGNORABLE #:CONS74823)) (LOCALLY (DECLARE (TYPE CONS #:CONS74823)) (LET ((#:GEN75245 (CAR #:FUSION75244))) (DECLARE (IGNORABLE #:GEN75245)) (LET ((#:GEN75246 (CDR #:FUSION75244))) (DECLARE (IGNORABLE #:GEN75246)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75247 T) (MATCH1 NIL ((GUARD1 #:IT75878 T) (MATCH2*+ (#:GEN75245 #:GEN75246 #:PAT75247) (T T T) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (GUARD1 (#:INTERSECTION74896 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74896 (GUARD1 (#:IT74893 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74893 'BIGNUM) #:INTERSECTION74896 (GUARD1 (#:BIND74894 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74896 (GUARD1 (#:BIND74895 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (OR1 (GUARD1 (#:INTERSECTION74900 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74900 (GUARD1 (#:CONS74897 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74897) (CAR #:CONS74897) (GUARD1 (#:IT74901 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74901 'BIGNUM)) (CDR #:CONS74897) (GUARD1 (#:IT74902 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74902)) #:INTERSECTION74900 (GUARD1 (#:BIND74898 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74900 (GUARD1 (#:BIND74899 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75879 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75880 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74896 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74896 (GUARD1 (#:IT74893 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74893 'BIGNUM) #:INTERSECTION74896 (GUARD1 (#:BIND74894 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74896 (GUARD1 (#:BIND74895 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75881 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75882 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75883 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74900 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74900 (GUARD1 (#:CONS74897 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74897) (CAR #:CONS74897) (GUARD1 (#:IT74901 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74901 'BIGNUM)) (CDR #:CONS74897) (GUARD1 (#:IT74902 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74902)) #:INTERSECTION74900 (GUARD1 (#:BIND74898 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74900 (GUARD1 (#:BIND74899 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75884 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75885 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75886 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74896 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74896 (GUARD1 (#:IT74893 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74893 'BIGNUM) #:INTERSECTION74896 (GUARD1 (#:BIND74894 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74896 (GUARD1 (#:BIND74895 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75887 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75888 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75889 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74900 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74900 (GUARD1 (#:CONS74897 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74897) (CAR #:CONS74897) (GUARD1 (#:IT74901 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT74901 'BIGNUM)) (CDR #:CONS74897) (GUARD1 (#:IT74902 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74902)) #:INTERSECTION74900 (GUARD1 (#:BIND74898 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74900 (GUARD1 (#:BIND74899 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75890 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75891 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75892 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75251 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75251)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75251) (LOCALLY (DECLARE (TYPE CONS #:FUSION75251)) (LET ((#:CONS74823 #:FUSION75251)) (DECLARE (IGNORABLE #:CONS74823)) (LOCALLY (DECLARE (TYPE CONS #:CONS74823)) (LET ((#:GEN75252 (CAR #:FUSION75251))) (DECLARE (IGNORABLE #:GEN75252)) (LET ((#:GEN75253 (CDR #:FUSION75251))) (DECLARE (IGNORABLE #:GEN75253)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75254 T) (MATCH1 NIL ((GUARD1 #:IT75893 T) (MATCH2*+ (#:GEN75252 #:GEN75253 #:PAT75254) (T T T) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (GUARD1 (#:INTERSECTION74906 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74906 (GUARD1 (#:IT74903 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74903 'FIXNUM) #:INTERSECTION74906 (GUARD1 (#:BIND74904 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74906 (GUARD1 (#:BIND74905 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (OR1 (GUARD1 (#:INTERSECTION74910 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74910 (GUARD1 (#:CONS74907 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74907) (CAR #:CONS74907) (GUARD1 (#:IT74911 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74911 'FIXNUM)) (CDR #:CONS74907) (GUARD1 (#:IT74912 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74912)) #:INTERSECTION74910 (GUARD1 (#:BIND74908 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74910 (GUARD1 (#:BIND74909 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75894 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75895 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74906 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74906 (GUARD1 (#:IT74903 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74903 'FIXNUM) #:INTERSECTION74906 (GUARD1 (#:BIND74904 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74906 (GUARD1 (#:BIND74905 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75896 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75897 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75898 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74910 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74910 (GUARD1 (#:CONS74907 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74907) (CAR #:CONS74907) (GUARD1 (#:IT74911 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74911 'FIXNUM)) (CDR #:CONS74907) (GUARD1 (#:IT74912 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74912)) #:INTERSECTION74910 (GUARD1 (#:BIND74908 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74910 (GUARD1 (#:BIND74909 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75899 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75900 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75901 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74906 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74906 (GUARD1 (#:IT74903 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74903 'FIXNUM) #:INTERSECTION74906 (GUARD1 (#:BIND74904 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74906 (GUARD1 (#:BIND74905 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75902 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75903 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75904 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74910 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74910 (GUARD1 (#:CONS74907 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74907) (CAR #:CONS74907) (GUARD1 (#:IT74911 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT74911 'FIXNUM)) (CDR #:CONS74907) (GUARD1 (#:IT74912 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74912)) #:INTERSECTION74910 (GUARD1 (#:BIND74908 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74910 (GUARD1 (#:BIND74909 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75905 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75906 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75907 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75258 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75258)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75258) (LOCALLY (DECLARE (TYPE CONS #:FUSION75258)) (LET ((#:CONS74823 #:FUSION75258)) (DECLARE (IGNORABLE #:CONS74823)) (LOCALLY (DECLARE (TYPE CONS #:CONS74823)) (LET ((#:GEN75259 (CAR #:FUSION75258))) (DECLARE (IGNORABLE #:GEN75259)) (LET ((#:GEN75260 (CDR #:FUSION75258))) (DECLARE (IGNORABLE #:GEN75260)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75261 T) (MATCH1 NIL ((GUARD1 #:IT75908 T) (MATCH2*+ (#:GEN75259 #:GEN75260 #:PAT75261) (T T T) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (GUARD1 (#:INTERSECTION74916 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74916 (GUARD1 (#:IT74913 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74913 'RATIO) #:INTERSECTION74916 (GUARD1 (#:BIND74914 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74916 (GUARD1 (#:BIND74915 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (OR1 (GUARD1 (#:INTERSECTION74920 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74920 (GUARD1 (#:CONS74917 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74917) (CAR #:CONS74917) (GUARD1 (#:IT74921 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74921 'RATIO)) (CDR #:CONS74917) (GUARD1 (#:IT74922 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74922)) #:INTERSECTION74920 (GUARD1 (#:BIND74918 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74920 (GUARD1 (#:BIND74919 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75909 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75910 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74916 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74916 (GUARD1 (#:IT74913 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74913 'RATIO) #:INTERSECTION74916 (GUARD1 (#:BIND74914 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74916 (GUARD1 (#:BIND74915 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75911 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75912 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75913 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74920 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74920 (GUARD1 (#:CONS74917 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74917) (CAR #:CONS74917) (GUARD1 (#:IT74921 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74921 'RATIO)) (CDR #:CONS74917) (GUARD1 (#:IT74922 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74922)) #:INTERSECTION74920 (GUARD1 (#:BIND74918 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74920 (GUARD1 (#:BIND74919 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75914 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75915 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75916 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74916 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74916 (GUARD1 (#:IT74913 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74913 'RATIO) #:INTERSECTION74916 (GUARD1 (#:BIND74914 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74916 (GUARD1 (#:BIND74915 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75917 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75918 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75919 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74920 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74920 (GUARD1 (#:CONS74917 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74917) (CAR #:CONS74917) (GUARD1 (#:IT74921 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT74921 'RATIO)) (CDR #:CONS74917) (GUARD1 (#:IT74922 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74922)) #:INTERSECTION74920 (GUARD1 (#:BIND74918 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74920 (GUARD1 (#:BIND74919 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75920 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75921 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75922 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75265 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75265)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75265) (LOCALLY (DECLARE (TYPE CONS #:FUSION75265)) (LET ((#:CONS74823 #:FUSION75265)) (DECLARE (IGNORABLE #:CONS74823)) (LOCALLY (DECLARE (TYPE CONS #:CONS74823)) (LET ((#:GEN75266 (CAR #:FUSION75265))) (DECLARE (IGNORABLE #:GEN75266)) (LET ((#:GEN75267 (CDR #:FUSION75265))) (DECLARE (IGNORABLE #:GEN75267)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75268 T) (MATCH1 NIL ((GUARD1 #:IT75923 T) (MATCH2*+ (#:GEN75266 #:GEN75267 #:PAT75268) (T T T) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (OR1 (GUARD1 (#:INTERSECTION74926 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74926 (GUARD1 (#:IT74925 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74925 'INTEGER) #:INTERSECTION74926 (GUARD1 (#:BIND74923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74926 (GUARD1 (#:BIND74924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION74928 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74928 (GUARD1 (#:IT74927 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74927 'RATIONAL) #:INTERSECTION74928 (GUARD1 (#:BIND74923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74928 (GUARD1 (#:BIND74924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74824 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74824 'RATIONAL)) (GUARD1 (#:CONS74825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74825) (CDR #:CONS74825) (GUARD1 (#:CONS74826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74826) (CDR #:CONS74826) (GUARD1 (#:IT74827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74827)))) (OR1 (GUARD1 (#:CONS74929 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74929) (CAR #:CONS74929) (OR1 (GUARD1 (#:IT74930 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74930 'INTEGER)) (GUARD1 (#:IT74931 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74931 'RATIONAL))) (CDR #:CONS74929) (GUARD1 (#:CONS74932 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74932) (CDR #:CONS74932) (GUARD1 (#:CONS74933 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74933) (CDR #:CONS74933) (GUARD1 (#:IT74934 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74934))))) (GUARD1 (#:INTERSECTION74937 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74937 (GUARD1 (#:CONS74935 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74935) (CAR #:CONS74935) (OR1 (GUARD1 (#:IT74938 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74938 'INTEGER)) (GUARD1 (#:IT74939 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74939 'RATIONAL))) (CDR #:CONS74935) (GUARD1 (#:CONS74940 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74940) (CDR #:CONS74940) (GUARD1 (#:IT74941 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74941))) #:INTERSECTION74937 (GUARD1 (#:BIND74936 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74945 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74945 (GUARD1 (#:CONS74942 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74942) (CAR #:CONS74942) (OR1 (GUARD1 (#:IT74946 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74946 'INTEGER)) (GUARD1 (#:IT74947 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74947 'RATIONAL))) (CDR #:CONS74942) (GUARD1 (#:IT74948 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74948)) #:INTERSECTION74945 (GUARD1 (#:BIND74943 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74945 (GUARD1 (#:BIND74944 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75924 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75925 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74926 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74926 (GUARD1 (#:IT74925 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74925 'INTEGER) #:INTERSECTION74926 (GUARD1 (#:BIND74923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74926 (GUARD1 (#:BIND74924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION74928 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74928 (GUARD1 (#:IT74927 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74927 'RATIONAL) #:INTERSECTION74928 (GUARD1 (#:BIND74923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74928 (GUARD1 (#:BIND74924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75926 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75927 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75928 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74830 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74830)) (LET ((#:CONS74828 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:CONS74828)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74828) (LOCALLY (DECLARE (TYPE CONS #:CONS74828)) (LET ((#:IT74831 (CAR #:CONS74828))) (DECLARE (IGNORABLE #:IT74831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74831 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74831)) (LET ((#:CONS74832 (CDR #:CONS74828))) (DECLARE (IGNORABLE #:CONS74832)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74832) (LOCALLY (DECLARE (TYPE CONS #:CONS74832)) (LET ((#:IT74833 (CDR #:CONS74832))) (DECLARE (IGNORABLE #:IT74833)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74833) (LOCALLY (DECLARE (TYPE NULL #:IT74833)) (LET ((#:BIND74829 #:INTERSECTION74830)) (DECLARE (IGNORABLE #:BIND74829)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74929 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74929) (CAR #:CONS74929) (OR1 (GUARD1 (#:IT74930 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74930 'INTEGER)) (GUARD1 (#:IT74931 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74931 'RATIONAL))) (CDR #:CONS74929) (GUARD1 (#:CONS74932 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74932) (CDR #:CONS74932) (GUARD1 (#:CONS74933 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74933) (CDR #:CONS74933) (GUARD1 (#:IT74934 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74934))))) (GUARD1 (#:INTERSECTION74937 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74937 (GUARD1 (#:CONS74935 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74935) (CAR #:CONS74935) (OR1 (GUARD1 (#:IT74938 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74938 'INTEGER)) (GUARD1 (#:IT74939 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74939 'RATIONAL))) (CDR #:CONS74935) (GUARD1 (#:CONS74940 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74940) (CDR #:CONS74940) (GUARD1 (#:IT74941 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74941))) #:INTERSECTION74937 (GUARD1 (#:BIND74936 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74945 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74945 (GUARD1 (#:CONS74942 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74942) (CAR #:CONS74942) (OR1 (GUARD1 (#:IT74946 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74946 'INTEGER)) (GUARD1 (#:IT74947 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74947 'RATIONAL))) (CDR #:CONS74942) (GUARD1 (#:IT74948 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74948)) #:INTERSECTION74945 (GUARD1 (#:BIND74943 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74945 (GUARD1 (#:BIND74944 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75929 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75930 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75931 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74926 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74926 (GUARD1 (#:IT74925 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74925 'INTEGER) #:INTERSECTION74926 (GUARD1 (#:BIND74923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74926 (GUARD1 (#:BIND74924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION74928 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74928 (GUARD1 (#:IT74927 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74927 'RATIONAL) #:INTERSECTION74928 (GUARD1 (#:BIND74923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74928 (GUARD1 (#:BIND74924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75932 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75933 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75934 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74837 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74837)) (LET ((#:CONS74834 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:CONS74834)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74834) (LOCALLY (DECLARE (TYPE CONS #:CONS74834)) (LET ((#:IT74838 (CAR #:CONS74834))) (DECLARE (IGNORABLE #:IT74838)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74838 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT74838)) (LET ((#:IT74839 (CDR #:CONS74834))) (DECLARE (IGNORABLE #:IT74839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74839) (LOCALLY (DECLARE (TYPE NULL #:IT74839)) (LET ((#:BIND74835 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74835)) (LET ((#:BIND74836 #:INTERSECTION74837)) (DECLARE (IGNORABLE #:BIND74836)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS74929 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74929) (CAR #:CONS74929) (OR1 (GUARD1 (#:IT74930 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74930 'INTEGER)) (GUARD1 (#:IT74931 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74931 'RATIONAL))) (CDR #:CONS74929) (GUARD1 (#:CONS74932 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74932) (CDR #:CONS74932) (GUARD1 (#:CONS74933 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74933) (CDR #:CONS74933) (GUARD1 (#:IT74934 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74934))))) (GUARD1 (#:INTERSECTION74937 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74937 (GUARD1 (#:CONS74935 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74935) (CAR #:CONS74935) (OR1 (GUARD1 (#:IT74938 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74938 'INTEGER)) (GUARD1 (#:IT74939 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74939 'RATIONAL))) (CDR #:CONS74935) (GUARD1 (#:CONS74940 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74940) (CDR #:CONS74940) (GUARD1 (#:IT74941 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74941))) #:INTERSECTION74937 (GUARD1 (#:BIND74936 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74945 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74945 (GUARD1 (#:CONS74942 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74942) (CAR #:CONS74942) (OR1 (GUARD1 (#:IT74946 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT74946 'INTEGER)) (GUARD1 (#:IT74947 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT74947 'RATIONAL))) (CDR #:CONS74942) (GUARD1 (#:IT74948 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74948)) #:INTERSECTION74945 (GUARD1 (#:BIND74943 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74945 (GUARD1 (#:BIND74944 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT75935 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75936 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75937 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74952 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74952)) (LET ((#:IT74949 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:IT74949)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74949 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74949)) (LET ((#:BIND74950 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74950)) (LET ((#:BIND74951 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74951)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74973 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74973 (GUARD1 (#:CONS74971 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74971) (CAR #:CONS74971) (GUARD1 (#:IT74974 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74974 'MOD)) (CDR #:CONS74971) (GUARD1 (#:CONS74975 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74975) (CAR #:CONS74975) (GUARD1 (#:N74970 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74975) (GUARD1 (#:IT74976 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74976))) #:INTERSECTION74973 (GUARD1 (#:BIND74972 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75938 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75939 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75940 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74952 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74952)) (LET ((#:IT74949 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:IT74949)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74949 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74949)) (LET ((#:BIND74950 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74950)) (LET ((#:BIND74951 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74951)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74980 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74980 (GUARD1 (#:IT74977 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74977 'BIT) #:INTERSECTION74980 (GUARD1 (#:BIND74978 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74980 (GUARD1 (#:BIND74979 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75941 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75942 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75943 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74952 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74952)) (LET ((#:IT74949 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:IT74949)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74949 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74949)) (LET ((#:BIND74950 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74950)) (LET ((#:BIND74951 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74951)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION74984 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74984 (GUARD1 (#:CONS74983 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74983) (CAR #:CONS74983) (GUARD1 (#:IT74985 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74985 'UNSIGNED-BYTE)) (CDR #:CONS74983) (GUARD1 (#:CONS74986 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74986) (CAR #:CONS74986) (GUARD1 (#:INTERSECTION74988 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74988 (GUARD1 (#:IT74987 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74987 'FIXNUM) #:INTERSECTION74988 (GUARD1 (#:N74981 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74986) (GUARD1 (#:IT74989 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74989))) #:INTERSECTION74984 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION74991 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74991 (GUARD1 (#:CONS74990 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74990) (CAR #:CONS74990) (GUARD1 (#:IT74992 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74992 'UNSIGNED-BYTE)) (CDR #:CONS74990) (GUARD1 (#:CONS74993 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74993) (CAR #:CONS74993) (GUARD1 (#:INTERSECTION74996 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74996 (GUARD1 (#:IT74994 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74994 '*) #:INTERSECTION74996 (GUARD1 (#:IT74995 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74993) (GUARD1 (#:IT74997 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74997))) #:INTERSECTION74991 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION75001 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75001 (GUARD1 (#:INTERSECTION75000 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75000 (GUARD1 (#:CONS74998 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74998) (CAR #:CONS74998) (GUARD1 (#:IT75002 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT75002 'UNSIGNED-BYTE)) (CDR #:CONS74998) (GUARD1 (#:IT75003 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75003)) #:INTERSECTION75000 (GUARD1 (#:BIND74999 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION75001 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75944 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75945 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75946 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74952 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74952)) (LET ((#:IT74949 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:IT74949)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74949 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74949)) (LET ((#:BIND74950 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74950)) (LET ((#:BIND74951 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74951)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75010 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75010 (GUARD1 (#:CONS75005 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75005) (CAR #:CONS75005) (GUARD1 (#:IT75006 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75006 'SIGNED-BYTE)) (CDR #:CONS75005) (GUARD1 (#:CONS75007 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75007) (CAR #:CONS75007) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N75004 'FIXNUM)) (CDR #:CONS75007) (GUARD1 (#:IT75008 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75008))) #:INTERSECTION75010 (GUARD1 (#:LIFT-DUMMY75009 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION75016 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75016 (GUARD1 (#:CONS75011 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75011) (CAR #:CONS75011) (GUARD1 (#:IT75012 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75012 'SIGNED-BYTE)) (CDR #:CONS75011) (GUARD1 (#:CONS75013 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75013) (CAR #:CONS75013) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N75004)) (CDR #:CONS75013) (GUARD1 (#:IT75014 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75014))) #:INTERSECTION75016 (GUARD1 (#:LIFT-DUMMY75015 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION75020 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75020 (GUARD1 (#:CONS75017 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75017) (CAR #:CONS75017) (GUARD1 (#:IT75018 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75018 'SIGNED-BYTE)) (CDR #:CONS75017) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N75004)) #:INTERSECTION75020 (GUARD1 (#:LIFT-DUMMY75019 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION75022 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75022 (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N75004) #:INTERSECTION75022 (GUARD1 (#:LIFT-DUMMY75021 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (MATCH1 NIL ((GUARD1 #:IT75947 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75948 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75949 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74952 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74952)) (LET ((#:IT74949 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:IT74949)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74949 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74949)) (LET ((#:BIND74950 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74950)) (LET ((#:BIND74951 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74951)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75026 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75026 (GUARD1 (#:IT75023 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT75023 'BIGNUM) #:INTERSECTION75026 (GUARD1 (#:BIND75024 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75026 (GUARD1 (#:BIND75025 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION75030 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75030 (GUARD1 (#:CONS75027 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75027) (CAR #:CONS75027) (GUARD1 (#:IT75031 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT75031 'BIGNUM)) (CDR #:CONS75027) (GUARD1 (#:IT75032 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75032)) #:INTERSECTION75030 (GUARD1 (#:BIND75028 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75030 (GUARD1 (#:BIND75029 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT75950 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75951 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75952 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74952 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74952)) (LET ((#:IT74949 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:IT74949)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74949 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74949)) (LET ((#:BIND74950 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74950)) (LET ((#:BIND74951 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74951)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75036 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75036 (GUARD1 (#:IT75033 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT75033 'FIXNUM) #:INTERSECTION75036 (GUARD1 (#:BIND75034 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75036 (GUARD1 (#:BIND75035 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION75040 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75040 (GUARD1 (#:CONS75037 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75037) (CAR #:CONS75037) (GUARD1 (#:IT75041 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT75041 'FIXNUM)) (CDR #:CONS75037) (GUARD1 (#:IT75042 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75042)) #:INTERSECTION75040 (GUARD1 (#:BIND75038 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75040 (GUARD1 (#:BIND75039 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT75953 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75954 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75955 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74952 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74952)) (LET ((#:IT74949 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:IT74949)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74949 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74949)) (LET ((#:BIND74950 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74950)) (LET ((#:BIND74951 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74951)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75046 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75046 (GUARD1 (#:IT75043 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT75043 'RATIO) #:INTERSECTION75046 (GUARD1 (#:BIND75044 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75046 (GUARD1 (#:BIND75045 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION75050 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75050 (GUARD1 (#:CONS75047 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75047) (CAR #:CONS75047) (GUARD1 (#:IT75051 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT75051 'RATIO)) (CDR #:CONS75047) (GUARD1 (#:IT75052 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75052)) #:INTERSECTION75050 (GUARD1 (#:BIND75048 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75050 (GUARD1 (#:BIND75049 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT75956 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75957 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75958 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74952 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74952)) (LET ((#:IT74949 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:IT74949)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74949 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74949)) (LET ((#:BIND74950 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74950)) (LET ((#:BIND74951 #:INTERSECTION74952)) (DECLARE (IGNORABLE #:BIND74951)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (OR1 (GUARD1 (#:INTERSECTION75056 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75056 (GUARD1 (#:IT75055 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75055 'FLOAT) #:INTERSECTION75056 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75056 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75058 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75058 (GUARD1 (#:IT75057 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75057 'SHORT-FLOAT) #:INTERSECTION75058 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75058 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75060 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75060 (GUARD1 (#:IT75059 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75059 'SINGLE-FLOAT) #:INTERSECTION75060 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75060 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75062 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75062 (GUARD1 (#:IT75061 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75061 'DOUBLE-FLOAT) #:INTERSECTION75062 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75062 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75064 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75064 (GUARD1 (#:IT75063 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75063 'LONG-FLOAT) #:INTERSECTION75064 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75064 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75066 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75066 (GUARD1 (#:IT75065 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75065 'INTEGER) #:INTERSECTION75066 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75066 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75068 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75068 (GUARD1 (#:IT75067 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75067 'RATIONAL) #:INTERSECTION75068 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75068 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75070 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75070 (GUARD1 (#:IT75069 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75069 'REAL) #:INTERSECTION75070 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75070 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (OR1 (GUARD1 (#:CONS75071 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75071) (CAR #:CONS75071) (OR1 (GUARD1 (#:IT75072 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75072 'FLOAT)) (GUARD1 (#:IT75073 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75073 'SHORT-FLOAT)) (GUARD1 (#:IT75074 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75074 'SINGLE-FLOAT)) (GUARD1 (#:IT75075 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75075 'DOUBLE-FLOAT)) (GUARD1 (#:IT75076 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75076 'LONG-FLOAT)) (GUARD1 (#:IT75077 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75077 'INTEGER)) (GUARD1 (#:IT75078 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75078 'RATIONAL)) (GUARD1 (#:IT75079 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75079 'REAL))) (CDR #:CONS75071) (GUARD1 (#:CONS75080 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75080) (CDR #:CONS75080) (GUARD1 (#:CONS75081 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75081) (CDR #:CONS75081) (GUARD1 (#:IT75082 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75082))))) (GUARD1 (#:INTERSECTION75085 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75085 (GUARD1 (#:CONS75083 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75083) (CAR #:CONS75083) (OR1 (GUARD1 (#:IT75086 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75086 'FLOAT)) (GUARD1 (#:IT75087 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75087 'SHORT-FLOAT)) (GUARD1 (#:IT75088 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75088 'SINGLE-FLOAT)) (GUARD1 (#:IT75089 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75089 'DOUBLE-FLOAT)) (GUARD1 (#:IT75090 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75090 'LONG-FLOAT)) (GUARD1 (#:IT75091 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75091 'INTEGER)) (GUARD1 (#:IT75092 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75092 'RATIONAL)) (GUARD1 (#:IT75093 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75093 'REAL))) (CDR #:CONS75083) (GUARD1 (#:CONS75094 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75094) (CDR #:CONS75094) (GUARD1 (#:IT75095 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75095))) #:INTERSECTION75085 (GUARD1 (#:BIND75084 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION75099 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75099 (GUARD1 (#:CONS75096 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75096) (CAR #:CONS75096) (OR1 (GUARD1 (#:IT75100 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75100 'FLOAT)) (GUARD1 (#:IT75101 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75101 'SHORT-FLOAT)) (GUARD1 (#:IT75102 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75102 'SINGLE-FLOAT)) (GUARD1 (#:IT75103 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75103 'DOUBLE-FLOAT)) (GUARD1 (#:IT75104 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75104 'LONG-FLOAT)) (GUARD1 (#:IT75105 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75105 'INTEGER)) (GUARD1 (#:IT75106 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75106 'RATIONAL)) (GUARD1 (#:IT75107 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75107 'REAL))) (CDR #:CONS75096) (GUARD1 (#:IT75108 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75108)) #:INTERSECTION75099 (GUARD1 (#:BIND75097 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75099 (GUARD1 (#:BIND75098 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT75959 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75960 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75961 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS74953 #:WHAT176093)) (DECLARE (IGNORABLE #:CONS74953)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74953) (LOCALLY (DECLARE (TYPE CONS #:CONS74953)) (LET ((#:IT74954 (CAR #:CONS74953))) (DECLARE (IGNORABLE #:IT74954)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74954 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74954)) (LET ((#:CONS74955 (CDR #:CONS74953))) (DECLARE (IGNORABLE #:CONS74955)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74955) (LOCALLY (DECLARE (TYPE CONS #:CONS74955)) (LET ((#:CONS74956 (CDR #:CONS74955))) (DECLARE (IGNORABLE #:CONS74956)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74956) (LOCALLY (DECLARE (TYPE CONS #:CONS74956)) (LET ((#:IT74957 (CDR #:CONS74956))) (DECLARE (IGNORABLE #:IT74957)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74957) (LOCALLY (DECLARE (TYPE NULL #:IT74957)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74973 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74973 (GUARD1 (#:CONS74971 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74971) (CAR #:CONS74971) (GUARD1 (#:IT74974 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74974 'MOD)) (CDR #:CONS74971) (GUARD1 (#:CONS74975 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74975) (CAR #:CONS74975) (GUARD1 (#:N74970 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74975) (GUARD1 (#:IT74976 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74976))) #:INTERSECTION74973 (GUARD1 (#:BIND74972 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75962 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75963 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75964 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74973 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74973 (GUARD1 (#:CONS74971 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74971) (CAR #:CONS74971) (GUARD1 (#:IT74974 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74974 'MOD)) (CDR #:CONS74971) (GUARD1 (#:CONS74975 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74975) (CAR #:CONS74975) (GUARD1 (#:N74970 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74975) (GUARD1 (#:IT74976 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74976))) #:INTERSECTION74973 (GUARD1 (#:BIND74972 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75965 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75966 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75967 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74973 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74973 (GUARD1 (#:CONS74971 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74971) (CAR #:CONS74971) (GUARD1 (#:IT74974 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT74974 'MOD)) (CDR #:CONS74971) (GUARD1 (#:CONS74975 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74975) (CAR #:CONS74975) (GUARD1 (#:N74970 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS74975) (GUARD1 (#:IT74976 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74976))) #:INTERSECTION74973 (GUARD1 (#:BIND74972 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75968 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75969 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75970 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS74953 #:WHAT176093)) (DECLARE (IGNORABLE #:CONS74953)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74953) (LOCALLY (DECLARE (TYPE CONS #:CONS74953)) (LET ((#:IT74954 (CAR #:CONS74953))) (DECLARE (IGNORABLE #:IT74954)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74954 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74954)) (LET ((#:CONS74955 (CDR #:CONS74953))) (DECLARE (IGNORABLE #:CONS74955)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74955) (LOCALLY (DECLARE (TYPE CONS #:CONS74955)) (LET ((#:CONS74956 (CDR #:CONS74955))) (DECLARE (IGNORABLE #:CONS74956)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74956) (LOCALLY (DECLARE (TYPE CONS #:CONS74956)) (LET ((#:IT74957 (CDR #:CONS74956))) (DECLARE (IGNORABLE #:IT74957)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74957) (LOCALLY (DECLARE (TYPE NULL #:IT74957)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74980 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74980 (GUARD1 (#:IT74977 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74977 'BIT) #:INTERSECTION74980 (GUARD1 (#:BIND74978 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74980 (GUARD1 (#:BIND74979 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75971 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75972 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75973 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74980 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74980 (GUARD1 (#:IT74977 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74977 'BIT) #:INTERSECTION74980 (GUARD1 (#:BIND74978 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74980 (GUARD1 (#:BIND74979 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75974 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75975 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75976 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74980 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74980 (GUARD1 (#:IT74977 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT74977 'BIT) #:INTERSECTION74980 (GUARD1 (#:BIND74978 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74980 (GUARD1 (#:BIND74979 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT75977 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75978 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75979 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75278 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75278)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75278) (LOCALLY (DECLARE (TYPE CONS #:FUSION75278)) (LET ((#:CONS74953 #:FUSION75278)) (DECLARE (IGNORABLE #:CONS74953)) (LOCALLY (DECLARE (TYPE CONS #:CONS74953)) (LET ((#:GEN75279 (CAR #:FUSION75278))) (DECLARE (IGNORABLE #:GEN75279)) (LET ((#:GEN75280 (CDR #:FUSION75278))) (DECLARE (IGNORABLE #:GEN75280)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75281 T) (MATCH1 NIL ((GUARD1 #:IT75980 T) (MATCH2*+ (#:GEN75279 #:GEN75280 #:PAT75281) (T T T) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (GUARD1 (#:INTERSECTION74984 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74984 (GUARD1 (#:CONS74983 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74983) (CAR #:CONS74983) (GUARD1 (#:IT74985 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74985 'UNSIGNED-BYTE)) (CDR #:CONS74983) (GUARD1 (#:CONS74986 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74986) (CAR #:CONS74986) (GUARD1 (#:INTERSECTION74988 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74988 (GUARD1 (#:IT74987 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74987 'FIXNUM) #:INTERSECTION74988 (GUARD1 (#:N74981 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74986) (GUARD1 (#:IT74989 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74989))) #:INTERSECTION74984 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (GUARD1 (#:INTERSECTION74991 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74991 (GUARD1 (#:CONS74990 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74990) (CAR #:CONS74990) (GUARD1 (#:IT74992 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74992 'UNSIGNED-BYTE)) (CDR #:CONS74990) (GUARD1 (#:CONS74993 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74993) (CAR #:CONS74993) (GUARD1 (#:INTERSECTION74996 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74996 (GUARD1 (#:IT74994 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74994 '*) #:INTERSECTION74996 (GUARD1 (#:IT74995 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74993) (GUARD1 (#:IT74997 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74997))) #:INTERSECTION74991 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (GUARD1 (#:INTERSECTION75001 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75001 (GUARD1 (#:INTERSECTION75000 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75000 (GUARD1 (#:CONS74998 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74998) (CAR #:CONS74998) (GUARD1 (#:IT75002 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT75002 'UNSIGNED-BYTE)) (CDR #:CONS74998) (GUARD1 (#:IT75003 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75003)) #:INTERSECTION75000 (GUARD1 (#:BIND74999 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION75001 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT75981 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75982 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74984 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74984 (GUARD1 (#:CONS74983 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74983) (CAR #:CONS74983) (GUARD1 (#:IT74985 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74985 'UNSIGNED-BYTE)) (CDR #:CONS74983) (GUARD1 (#:CONS74986 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74986) (CAR #:CONS74986) (GUARD1 (#:INTERSECTION74988 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74988 (GUARD1 (#:IT74987 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74987 'FIXNUM) #:INTERSECTION74988 (GUARD1 (#:N74981 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74986) (GUARD1 (#:IT74989 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74989))) #:INTERSECTION74984 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75983 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75984 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75985 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74991 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74991 (GUARD1 (#:CONS74990 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74990) (CAR #:CONS74990) (GUARD1 (#:IT74992 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74992 'UNSIGNED-BYTE)) (CDR #:CONS74990) (GUARD1 (#:CONS74993 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74993) (CAR #:CONS74993) (GUARD1 (#:INTERSECTION74996 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74996 (GUARD1 (#:IT74994 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74994 '*) #:INTERSECTION74996 (GUARD1 (#:IT74995 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74993) (GUARD1 (#:IT74997 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74997))) #:INTERSECTION74991 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75986 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75987 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75988 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75001 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75001 (GUARD1 (#:INTERSECTION75000 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75000 (GUARD1 (#:CONS74998 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74998) (CAR #:CONS74998) (GUARD1 (#:IT75002 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT75002 'UNSIGNED-BYTE)) (CDR #:CONS74998) (GUARD1 (#:IT75003 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75003)) #:INTERSECTION75000 (GUARD1 (#:BIND74999 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION75001 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75989 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75990 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75991 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74984 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74984 (GUARD1 (#:CONS74983 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74983) (CAR #:CONS74983) (GUARD1 (#:IT74985 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74985 'UNSIGNED-BYTE)) (CDR #:CONS74983) (GUARD1 (#:CONS74986 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74986) (CAR #:CONS74986) (GUARD1 (#:INTERSECTION74988 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74988 (GUARD1 (#:IT74987 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT74987 'FIXNUM) #:INTERSECTION74988 (GUARD1 (#:N74981 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74986) (GUARD1 (#:IT74989 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74989))) #:INTERSECTION74984 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75992 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75993 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75994 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION74991 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74991 (GUARD1 (#:CONS74990 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74990) (CAR #:CONS74990) (GUARD1 (#:IT74992 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT74992 'UNSIGNED-BYTE)) (CDR #:CONS74990) (GUARD1 (#:CONS74993 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74993) (CAR #:CONS74993) (GUARD1 (#:INTERSECTION74996 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION74996 (GUARD1 (#:IT74994 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT74994 '*) #:INTERSECTION74996 (GUARD1 (#:IT74995 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS74993) (GUARD1 (#:IT74997 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74997))) #:INTERSECTION74991 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75995 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75996 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT75997 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75001 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75001 (GUARD1 (#:INTERSECTION75000 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75000 (GUARD1 (#:CONS74998 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74998) (CAR #:CONS74998) (GUARD1 (#:IT75002 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT75002 'UNSIGNED-BYTE)) (CDR #:CONS74998) (GUARD1 (#:IT75003 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75003)) #:INTERSECTION75000 (GUARD1 (#:BIND74999 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION75001 (GUARD1 (#:BIND74982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT75998 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT75999 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76000 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75285 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75285)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75285) (LOCALLY (DECLARE (TYPE CONS #:FUSION75285)) (LET ((#:CONS74953 #:FUSION75285)) (DECLARE (IGNORABLE #:CONS74953)) (LOCALLY (DECLARE (TYPE CONS #:CONS74953)) (LET ((#:GEN75286 (CAR #:FUSION75285))) (DECLARE (IGNORABLE #:GEN75286)) (LET ((#:GEN75287 (CDR #:FUSION75285))) (DECLARE (IGNORABLE #:GEN75287)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75288 T) (MATCH1 NIL ((GUARD1 #:IT76001 T) (MATCH2*+ (#:GEN75286 #:GEN75287 #:PAT75288) (T T T) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (GUARD1 (#:INTERSECTION75010 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75010 (GUARD1 (#:CONS75005 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75005) (CAR #:CONS75005) (GUARD1 (#:IT75006 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75006 'SIGNED-BYTE)) (CDR #:CONS75005) (GUARD1 (#:CONS75007 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75007) (CAR #:CONS75007) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N75004 'FIXNUM)) (CDR #:CONS75007) (GUARD1 (#:IT75008 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75008))) #:INTERSECTION75010 (GUARD1 (#:LIFT-DUMMY75009 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (GUARD1 (#:INTERSECTION75016 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75016 (GUARD1 (#:CONS75011 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75011) (CAR #:CONS75011) (GUARD1 (#:IT75012 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75012 'SIGNED-BYTE)) (CDR #:CONS75011) (GUARD1 (#:CONS75013 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75013) (CAR #:CONS75013) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N75004)) (CDR #:CONS75013) (GUARD1 (#:IT75014 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75014))) #:INTERSECTION75016 (GUARD1 (#:LIFT-DUMMY75015 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (GUARD1 (#:INTERSECTION75020 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75020 (GUARD1 (#:CONS75017 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75017) (CAR #:CONS75017) (GUARD1 (#:IT75018 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75018 'SIGNED-BYTE)) (CDR #:CONS75017) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N75004)) #:INTERSECTION75020 (GUARD1 (#:LIFT-DUMMY75019 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (GUARD1 (#:INTERSECTION75022 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75022 (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N75004) #:INTERSECTION75022 (GUARD1 (#:LIFT-DUMMY75021 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT76002 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76003 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75010 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75010 (GUARD1 (#:CONS75005 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75005) (CAR #:CONS75005) (GUARD1 (#:IT75006 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75006 'SIGNED-BYTE)) (CDR #:CONS75005) (GUARD1 (#:CONS75007 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75007) (CAR #:CONS75007) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N75004 'FIXNUM)) (CDR #:CONS75007) (GUARD1 (#:IT75008 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75008))) #:INTERSECTION75010 (GUARD1 (#:LIFT-DUMMY75009 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT76004 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76005 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76006 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75016 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75016 (GUARD1 (#:CONS75011 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75011) (CAR #:CONS75011) (GUARD1 (#:IT75012 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75012 'SIGNED-BYTE)) (CDR #:CONS75011) (GUARD1 (#:CONS75013 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75013) (CAR #:CONS75013) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N75004)) (CDR #:CONS75013) (GUARD1 (#:IT75014 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75014))) #:INTERSECTION75016 (GUARD1 (#:LIFT-DUMMY75015 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT76007 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76008 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76009 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75020 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75020 (GUARD1 (#:CONS75017 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75017) (CAR #:CONS75017) (GUARD1 (#:IT75018 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75018 'SIGNED-BYTE)) (CDR #:CONS75017) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N75004)) #:INTERSECTION75020 (GUARD1 (#:LIFT-DUMMY75019 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT76010 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76011 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76012 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75022 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75022 (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N75004) #:INTERSECTION75022 (GUARD1 (#:LIFT-DUMMY75021 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT76013 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76014 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76015 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75010 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75010 (GUARD1 (#:CONS75005 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75005) (CAR #:CONS75005) (GUARD1 (#:IT75006 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75006 'SIGNED-BYTE)) (CDR #:CONS75005) (GUARD1 (#:CONS75007 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75007) (CAR #:CONS75007) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N75004 'FIXNUM)) (CDR #:CONS75007) (GUARD1 (#:IT75008 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75008))) #:INTERSECTION75010 (GUARD1 (#:LIFT-DUMMY75009 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT76016 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76017 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76018 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75016 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75016 (GUARD1 (#:CONS75011 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75011) (CAR #:CONS75011) (GUARD1 (#:IT75012 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75012 'SIGNED-BYTE)) (CDR #:CONS75011) (GUARD1 (#:CONS75013 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75013) (CAR #:CONS75013) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N75004)) (CDR #:CONS75013) (GUARD1 (#:IT75014 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75014))) #:INTERSECTION75016 (GUARD1 (#:LIFT-DUMMY75015 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT76019 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76020 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76021 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75020 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75020 (GUARD1 (#:CONS75017 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75017) (CAR #:CONS75017) (GUARD1 (#:IT75018 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT75018 'SIGNED-BYTE)) (CDR #:CONS75017) (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N75004)) #:INTERSECTION75020 (GUARD1 (#:LIFT-DUMMY75019 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT76022 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76023 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76024 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75022 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75022 (GUARD1 (#:N75004 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N75004) #:INTERSECTION75022 (GUARD1 (#:LIFT-DUMMY75021 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT76025 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76026 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76027 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75292 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75292)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75292) (LOCALLY (DECLARE (TYPE CONS #:FUSION75292)) (LET ((#:CONS74953 #:FUSION75292)) (DECLARE (IGNORABLE #:CONS74953)) (LOCALLY (DECLARE (TYPE CONS #:CONS74953)) (LET ((#:GEN75293 (CAR #:FUSION75292))) (DECLARE (IGNORABLE #:GEN75293)) (LET ((#:GEN75294 (CDR #:FUSION75292))) (DECLARE (IGNORABLE #:GEN75294)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75295 T) (MATCH1 NIL ((GUARD1 #:IT76028 T) (MATCH2*+ (#:GEN75293 #:GEN75294 #:PAT75295) (T T T) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (GUARD1 (#:INTERSECTION75026 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75026 (GUARD1 (#:IT75023 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT75023 'BIGNUM) #:INTERSECTION75026 (GUARD1 (#:BIND75024 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75026 (GUARD1 (#:BIND75025 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (OR1 (GUARD1 (#:INTERSECTION75030 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75030 (GUARD1 (#:CONS75027 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75027) (CAR #:CONS75027) (GUARD1 (#:IT75031 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT75031 'BIGNUM)) (CDR #:CONS75027) (GUARD1 (#:IT75032 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75032)) #:INTERSECTION75030 (GUARD1 (#:BIND75028 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75030 (GUARD1 (#:BIND75029 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT76029 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76030 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75026 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75026 (GUARD1 (#:IT75023 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT75023 'BIGNUM) #:INTERSECTION75026 (GUARD1 (#:BIND75024 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75026 (GUARD1 (#:BIND75025 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT76031 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76032 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76033 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75030 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75030 (GUARD1 (#:CONS75027 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75027) (CAR #:CONS75027) (GUARD1 (#:IT75031 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT75031 'BIGNUM)) (CDR #:CONS75027) (GUARD1 (#:IT75032 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75032)) #:INTERSECTION75030 (GUARD1 (#:BIND75028 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75030 (GUARD1 (#:BIND75029 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT76034 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76035 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76036 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75026 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75026 (GUARD1 (#:IT75023 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT75023 'BIGNUM) #:INTERSECTION75026 (GUARD1 (#:BIND75024 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75026 (GUARD1 (#:BIND75025 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT76037 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76038 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76039 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75030 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75030 (GUARD1 (#:CONS75027 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75027) (CAR #:CONS75027) (GUARD1 (#:IT75031 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT75031 'BIGNUM)) (CDR #:CONS75027) (GUARD1 (#:IT75032 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75032)) #:INTERSECTION75030 (GUARD1 (#:BIND75028 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75030 (GUARD1 (#:BIND75029 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT76040 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76041 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76042 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75299 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75299)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75299) (LOCALLY (DECLARE (TYPE CONS #:FUSION75299)) (LET ((#:CONS74953 #:FUSION75299)) (DECLARE (IGNORABLE #:CONS74953)) (LOCALLY (DECLARE (TYPE CONS #:CONS74953)) (LET ((#:GEN75300 (CAR #:FUSION75299))) (DECLARE (IGNORABLE #:GEN75300)) (LET ((#:GEN75301 (CDR #:FUSION75299))) (DECLARE (IGNORABLE #:GEN75301)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75302 T) (MATCH1 NIL ((GUARD1 #:IT76043 T) (MATCH2*+ (#:GEN75300 #:GEN75301 #:PAT75302) (T T T) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (GUARD1 (#:INTERSECTION75036 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75036 (GUARD1 (#:IT75033 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT75033 'FIXNUM) #:INTERSECTION75036 (GUARD1 (#:BIND75034 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75036 (GUARD1 (#:BIND75035 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (OR1 (GUARD1 (#:INTERSECTION75040 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75040 (GUARD1 (#:CONS75037 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75037) (CAR #:CONS75037) (GUARD1 (#:IT75041 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT75041 'FIXNUM)) (CDR #:CONS75037) (GUARD1 (#:IT75042 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75042)) #:INTERSECTION75040 (GUARD1 (#:BIND75038 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75040 (GUARD1 (#:BIND75039 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT76044 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76045 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75036 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75036 (GUARD1 (#:IT75033 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT75033 'FIXNUM) #:INTERSECTION75036 (GUARD1 (#:BIND75034 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75036 (GUARD1 (#:BIND75035 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT76046 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76047 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76048 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75040 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75040 (GUARD1 (#:CONS75037 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75037) (CAR #:CONS75037) (GUARD1 (#:IT75041 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT75041 'FIXNUM)) (CDR #:CONS75037) (GUARD1 (#:IT75042 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75042)) #:INTERSECTION75040 (GUARD1 (#:BIND75038 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75040 (GUARD1 (#:BIND75039 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT76049 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76050 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76051 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75036 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75036 (GUARD1 (#:IT75033 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT75033 'FIXNUM) #:INTERSECTION75036 (GUARD1 (#:BIND75034 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75036 (GUARD1 (#:BIND75035 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT76052 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76053 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76054 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75040 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75040 (GUARD1 (#:CONS75037 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75037) (CAR #:CONS75037) (GUARD1 (#:IT75041 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT75041 'FIXNUM)) (CDR #:CONS75037) (GUARD1 (#:IT75042 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75042)) #:INTERSECTION75040 (GUARD1 (#:BIND75038 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75040 (GUARD1 (#:BIND75039 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT76055 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76056 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76057 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75306 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75306)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75306) (LOCALLY (DECLARE (TYPE CONS #:FUSION75306)) (LET ((#:CONS74953 #:FUSION75306)) (DECLARE (IGNORABLE #:CONS74953)) (LOCALLY (DECLARE (TYPE CONS #:CONS74953)) (LET ((#:GEN75307 (CAR #:FUSION75306))) (DECLARE (IGNORABLE #:GEN75307)) (LET ((#:GEN75308 (CDR #:FUSION75306))) (DECLARE (IGNORABLE #:GEN75308)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75309 T) (MATCH1 NIL ((GUARD1 #:IT76058 T) (MATCH2*+ (#:GEN75307 #:GEN75308 #:PAT75309) (T T T) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (GUARD1 (#:INTERSECTION75046 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75046 (GUARD1 (#:IT75043 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT75043 'RATIO) #:INTERSECTION75046 (GUARD1 (#:BIND75044 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75046 (GUARD1 (#:BIND75045 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (OR1 (GUARD1 (#:INTERSECTION75050 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75050 (GUARD1 (#:CONS75047 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75047) (CAR #:CONS75047) (GUARD1 (#:IT75051 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT75051 'RATIO)) (CDR #:CONS75047) (GUARD1 (#:IT75052 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75052)) #:INTERSECTION75050 (GUARD1 (#:BIND75048 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75050 (GUARD1 (#:BIND75049 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT76059 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76060 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75046 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75046 (GUARD1 (#:IT75043 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT75043 'RATIO) #:INTERSECTION75046 (GUARD1 (#:BIND75044 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75046 (GUARD1 (#:BIND75045 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT76061 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76062 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76063 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75050 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75050 (GUARD1 (#:CONS75047 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75047) (CAR #:CONS75047) (GUARD1 (#:IT75051 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT75051 'RATIO)) (CDR #:CONS75047) (GUARD1 (#:IT75052 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75052)) #:INTERSECTION75050 (GUARD1 (#:BIND75048 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75050 (GUARD1 (#:BIND75049 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT76064 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76065 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76066 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:INTERSECTION75046 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75046 (GUARD1 (#:IT75043 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT75043 'RATIO) #:INTERSECTION75046 (GUARD1 (#:BIND75044 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75046 (GUARD1 (#:BIND75045 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT76067 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76068 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76069 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75050 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75050 (GUARD1 (#:CONS75047 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75047) (CAR #:CONS75047) (GUARD1 (#:IT75051 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT75051 'RATIO)) (CDR #:CONS75047) (GUARD1 (#:IT75052 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75052)) #:INTERSECTION75050 (GUARD1 (#:BIND75048 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75050 (GUARD1 (#:BIND75049 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT76070 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76071 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76072 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION75313 #:WHAT176093)) (DECLARE (IGNORABLE #:FUSION75313)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION75313) (LOCALLY (DECLARE (TYPE CONS #:FUSION75313)) (LET ((#:CONS74953 #:FUSION75313)) (DECLARE (IGNORABLE #:CONS74953)) (LOCALLY (DECLARE (TYPE CONS #:CONS74953)) (LET ((#:GEN75314 (CAR #:FUSION75313))) (DECLARE (IGNORABLE #:GEN75314)) (LET ((#:GEN75315 (CDR #:FUSION75313))) (DECLARE (IGNORABLE #:GEN75315)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 #:PAT75316 T) (MATCH1 NIL ((GUARD1 #:IT76073 T) (MATCH2*+ (#:GEN75314 #:GEN75315 #:PAT75316) (T T T) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (OR1 (GUARD1 (#:INTERSECTION75056 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75056 (GUARD1 (#:IT75055 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75055 'FLOAT) #:INTERSECTION75056 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75056 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75058 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75058 (GUARD1 (#:IT75057 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75057 'SHORT-FLOAT) #:INTERSECTION75058 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75058 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75060 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75060 (GUARD1 (#:IT75059 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75059 'SINGLE-FLOAT) #:INTERSECTION75060 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75060 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75062 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75062 (GUARD1 (#:IT75061 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75061 'DOUBLE-FLOAT) #:INTERSECTION75062 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75062 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75064 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75064 (GUARD1 (#:IT75063 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75063 'LONG-FLOAT) #:INTERSECTION75064 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75064 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75066 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75066 (GUARD1 (#:IT75065 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75065 'INTEGER) #:INTERSECTION75066 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75066 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75068 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75068 (GUARD1 (#:IT75067 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75067 'RATIONAL) #:INTERSECTION75068 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75068 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75070 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75070 (GUARD1 (#:IT75069 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75069 'REAL) #:INTERSECTION75070 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75070 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT74954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT74954 'REAL)) (GUARD1 (#:CONS74955 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74955) (CDR #:CONS74955) (GUARD1 (#:CONS74956 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS74956) (CDR #:CONS74956) (GUARD1 (#:IT74957 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT74957)))) (OR1 (GUARD1 (#:CONS75071 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75071) (CAR #:CONS75071) (OR1 (GUARD1 (#:IT75072 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75072 'FLOAT)) (GUARD1 (#:IT75073 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75073 'SHORT-FLOAT)) (GUARD1 (#:IT75074 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75074 'SINGLE-FLOAT)) (GUARD1 (#:IT75075 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75075 'DOUBLE-FLOAT)) (GUARD1 (#:IT75076 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75076 'LONG-FLOAT)) (GUARD1 (#:IT75077 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75077 'INTEGER)) (GUARD1 (#:IT75078 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75078 'RATIONAL)) (GUARD1 (#:IT75079 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75079 'REAL))) (CDR #:CONS75071) (GUARD1 (#:CONS75080 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75080) (CDR #:CONS75080) (GUARD1 (#:CONS75081 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75081) (CDR #:CONS75081) (GUARD1 (#:IT75082 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75082))))) (GUARD1 (#:INTERSECTION75085 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75085 (GUARD1 (#:CONS75083 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75083) (CAR #:CONS75083) (OR1 (GUARD1 (#:IT75086 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75086 'FLOAT)) (GUARD1 (#:IT75087 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75087 'SHORT-FLOAT)) (GUARD1 (#:IT75088 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75088 'SINGLE-FLOAT)) (GUARD1 (#:IT75089 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75089 'DOUBLE-FLOAT)) (GUARD1 (#:IT75090 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75090 'LONG-FLOAT)) (GUARD1 (#:IT75091 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75091 'INTEGER)) (GUARD1 (#:IT75092 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75092 'RATIONAL)) (GUARD1 (#:IT75093 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75093 'REAL))) (CDR #:CONS75083) (GUARD1 (#:CONS75094 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75094) (CDR #:CONS75094) (GUARD1 (#:IT75095 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75095))) #:INTERSECTION75085 (GUARD1 (#:BIND75084 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION75099 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75099 (GUARD1 (#:CONS75096 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75096) (CAR #:CONS75096) (OR1 (GUARD1 (#:IT75100 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75100 'FLOAT)) (GUARD1 (#:IT75101 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75101 'SHORT-FLOAT)) (GUARD1 (#:IT75102 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75102 'SINGLE-FLOAT)) (GUARD1 (#:IT75103 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75103 'DOUBLE-FLOAT)) (GUARD1 (#:IT75104 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75104 'LONG-FLOAT)) (GUARD1 (#:IT75105 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75105 'INTEGER)) (GUARD1 (#:IT75106 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75106 'RATIONAL)) (GUARD1 (#:IT75107 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75107 'REAL))) (CDR #:CONS75096) (GUARD1 (#:IT75108 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75108)) #:INTERSECTION75099 (GUARD1 (#:BIND75097 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75099 (GUARD1 (#:BIND75098 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT76074 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76075 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75056 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75056 (GUARD1 (#:IT75055 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75055 'FLOAT) #:INTERSECTION75056 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75056 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75058 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75058 (GUARD1 (#:IT75057 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75057 'SHORT-FLOAT) #:INTERSECTION75058 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75058 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75060 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75060 (GUARD1 (#:IT75059 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75059 'SINGLE-FLOAT) #:INTERSECTION75060 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75060 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75062 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75062 (GUARD1 (#:IT75061 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75061 'DOUBLE-FLOAT) #:INTERSECTION75062 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75062 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75064 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75064 (GUARD1 (#:IT75063 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75063 'LONG-FLOAT) #:INTERSECTION75064 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75064 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75066 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75066 (GUARD1 (#:IT75065 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75065 'INTEGER) #:INTERSECTION75066 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75066 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75068 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75068 (GUARD1 (#:IT75067 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75067 'RATIONAL) #:INTERSECTION75068 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75068 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75070 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75070 (GUARD1 (#:IT75069 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75069 'REAL) #:INTERSECTION75070 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75070 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT76076 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76077 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76078 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74960 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74960)) (LET ((#:CONS74958 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:CONS74958)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74958) (LOCALLY (DECLARE (TYPE CONS #:CONS74958)) (LET ((#:IT74961 (CAR #:CONS74958))) (DECLARE (IGNORABLE #:IT74961)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74961 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74961)) (LET ((#:CONS74962 (CDR #:CONS74958))) (DECLARE (IGNORABLE #:CONS74962)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74962) (LOCALLY (DECLARE (TYPE CONS #:CONS74962)) (LET ((#:IT74963 (CDR #:CONS74962))) (DECLARE (IGNORABLE #:IT74963)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74963) (LOCALLY (DECLARE (TYPE NULL #:IT74963)) (LET ((#:BIND74959 #:INTERSECTION74960)) (DECLARE (IGNORABLE #:BIND74959)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS75071 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75071) (CAR #:CONS75071) (OR1 (GUARD1 (#:IT75072 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75072 'FLOAT)) (GUARD1 (#:IT75073 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75073 'SHORT-FLOAT)) (GUARD1 (#:IT75074 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75074 'SINGLE-FLOAT)) (GUARD1 (#:IT75075 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75075 'DOUBLE-FLOAT)) (GUARD1 (#:IT75076 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75076 'LONG-FLOAT)) (GUARD1 (#:IT75077 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75077 'INTEGER)) (GUARD1 (#:IT75078 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75078 'RATIONAL)) (GUARD1 (#:IT75079 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75079 'REAL))) (CDR #:CONS75071) (GUARD1 (#:CONS75080 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75080) (CDR #:CONS75080) (GUARD1 (#:CONS75081 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75081) (CDR #:CONS75081) (GUARD1 (#:IT75082 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75082))))) (GUARD1 (#:INTERSECTION75085 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75085 (GUARD1 (#:CONS75083 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75083) (CAR #:CONS75083) (OR1 (GUARD1 (#:IT75086 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75086 'FLOAT)) (GUARD1 (#:IT75087 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75087 'SHORT-FLOAT)) (GUARD1 (#:IT75088 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75088 'SINGLE-FLOAT)) (GUARD1 (#:IT75089 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75089 'DOUBLE-FLOAT)) (GUARD1 (#:IT75090 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75090 'LONG-FLOAT)) (GUARD1 (#:IT75091 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75091 'INTEGER)) (GUARD1 (#:IT75092 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75092 'RATIONAL)) (GUARD1 (#:IT75093 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75093 'REAL))) (CDR #:CONS75083) (GUARD1 (#:CONS75094 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75094) (CDR #:CONS75094) (GUARD1 (#:IT75095 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75095))) #:INTERSECTION75085 (GUARD1 (#:BIND75084 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION75099 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75099 (GUARD1 (#:CONS75096 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75096) (CAR #:CONS75096) (OR1 (GUARD1 (#:IT75100 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75100 'FLOAT)) (GUARD1 (#:IT75101 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75101 'SHORT-FLOAT)) (GUARD1 (#:IT75102 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75102 'SINGLE-FLOAT)) (GUARD1 (#:IT75103 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75103 'DOUBLE-FLOAT)) (GUARD1 (#:IT75104 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75104 'LONG-FLOAT)) (GUARD1 (#:IT75105 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75105 'INTEGER)) (GUARD1 (#:IT75106 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75106 'RATIONAL)) (GUARD1 (#:IT75107 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75107 'REAL))) (CDR #:CONS75096) (GUARD1 (#:IT75108 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75108)) #:INTERSECTION75099 (GUARD1 (#:BIND75097 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75099 (GUARD1 (#:BIND75098 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT76079 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76080 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76081 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:INTERSECTION75056 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75056 (GUARD1 (#:IT75055 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75055 'FLOAT) #:INTERSECTION75056 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75056 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75058 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75058 (GUARD1 (#:IT75057 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75057 'SHORT-FLOAT) #:INTERSECTION75058 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75058 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75060 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75060 (GUARD1 (#:IT75059 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75059 'SINGLE-FLOAT) #:INTERSECTION75060 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75060 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75062 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75062 (GUARD1 (#:IT75061 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75061 'DOUBLE-FLOAT) #:INTERSECTION75062 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75062 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75064 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75064 (GUARD1 (#:IT75063 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75063 'LONG-FLOAT) #:INTERSECTION75064 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75064 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75066 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75066 (GUARD1 (#:IT75065 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75065 'INTEGER) #:INTERSECTION75066 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75066 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75068 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75068 (GUARD1 (#:IT75067 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75067 'RATIONAL) #:INTERSECTION75068 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75068 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION75070 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75070 (GUARD1 (#:IT75069 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75069 'REAL) #:INTERSECTION75070 (GUARD1 (#:BIND75053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75070 (GUARD1 (#:BIND75054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT76082 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76083 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76084 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION74967 #:WHAT176093)) (DECLARE (IGNORABLE #:INTERSECTION74967)) (LET ((#:CONS74964 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:CONS74964)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS74964) (LOCALLY (DECLARE (TYPE CONS #:CONS74964)) (LET ((#:IT74968 (CAR #:CONS74964))) (DECLARE (IGNORABLE #:IT74968)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT74968 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT74968)) (LET ((#:IT74969 (CDR #:CONS74964))) (DECLARE (IGNORABLE #:IT74969)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT74969) (LOCALLY (DECLARE (TYPE NULL #:IT74969)) (LET ((#:BIND74965 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74965)) (LET ((#:BIND74966 #:INTERSECTION74967)) (DECLARE (IGNORABLE #:BIND74966)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((OR1 (GUARD1 (#:CONS75071 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75071) (CAR #:CONS75071) (OR1 (GUARD1 (#:IT75072 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75072 'FLOAT)) (GUARD1 (#:IT75073 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75073 'SHORT-FLOAT)) (GUARD1 (#:IT75074 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75074 'SINGLE-FLOAT)) (GUARD1 (#:IT75075 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75075 'DOUBLE-FLOAT)) (GUARD1 (#:IT75076 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75076 'LONG-FLOAT)) (GUARD1 (#:IT75077 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75077 'INTEGER)) (GUARD1 (#:IT75078 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75078 'RATIONAL)) (GUARD1 (#:IT75079 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75079 'REAL))) (CDR #:CONS75071) (GUARD1 (#:CONS75080 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75080) (CDR #:CONS75080) (GUARD1 (#:CONS75081 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75081) (CDR #:CONS75081) (GUARD1 (#:IT75082 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75082))))) (GUARD1 (#:INTERSECTION75085 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75085 (GUARD1 (#:CONS75083 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75083) (CAR #:CONS75083) (OR1 (GUARD1 (#:IT75086 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75086 'FLOAT)) (GUARD1 (#:IT75087 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75087 'SHORT-FLOAT)) (GUARD1 (#:IT75088 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75088 'SINGLE-FLOAT)) (GUARD1 (#:IT75089 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75089 'DOUBLE-FLOAT)) (GUARD1 (#:IT75090 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75090 'LONG-FLOAT)) (GUARD1 (#:IT75091 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75091 'INTEGER)) (GUARD1 (#:IT75092 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75092 'RATIONAL)) (GUARD1 (#:IT75093 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75093 'REAL))) (CDR #:CONS75083) (GUARD1 (#:CONS75094 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75094) (CDR #:CONS75094) (GUARD1 (#:IT75095 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75095))) #:INTERSECTION75085 (GUARD1 (#:BIND75084 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION75099 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75099 (GUARD1 (#:CONS75096 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS75096) (CAR #:CONS75096) (OR1 (GUARD1 (#:IT75100 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT75100 'FLOAT)) (GUARD1 (#:IT75101 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT75101 'SHORT-FLOAT)) (GUARD1 (#:IT75102 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT75102 'SINGLE-FLOAT)) (GUARD1 (#:IT75103 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT75103 'DOUBLE-FLOAT)) (GUARD1 (#:IT75104 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT75104 'LONG-FLOAT)) (GUARD1 (#:IT75105 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT75105 'INTEGER)) (GUARD1 (#:IT75106 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT75106 'RATIONAL)) (GUARD1 (#:IT75107 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT75107 'REAL))) (CDR #:CONS75096) (GUARD1 (#:IT75108 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT75108)) #:INTERSECTION75099 (GUARD1 (#:BIND75097 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION75099 (GUARD1 (#:BIND75098 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT76085 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT76086 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT76087 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (LET ((#:IT75109 #:WHAT176093)) (DECLARE (IGNORABLE #:IT75109)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG74449 ((GUARD1 (#:IT75110 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (MATCH1 NIL ((GUARD1 #:IT76088 T) NIL)))))))) Too large jump
(LOAD trivialib.type-unify.test FAIL) SI:SIMPLE-PROGRAM-ERROR : In form (BLOCK TRIVIA.LEVEL1.IMPL::WHOLE (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT4815 #:WHAT16458)) (DECLARE (IGNORABLE #:IT4815)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4815 'FIXNUM) (LOCALLY (DECLARE (TYPE (EQL FIXNUM) #:IT4815)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:IT4819 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4819 'FIXNUM)) (MATCH1 NIL ((GUARD1 #:IT5790 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5791 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5792 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT4815 #:WHAT16458)) (DECLARE (IGNORABLE #:IT4815)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4815 'FIXNUM) (LOCALLY (DECLARE (TYPE (EQL FIXNUM) #:IT4815)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS4820 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4820) (CAR #:CONS4820) (GUARD1 (#:IT4821 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4821 'FIXNUM)) (CDR #:CONS4820) (GUARD1 (#:IT4822 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4822)))) (MATCH1 NIL ((GUARD1 #:IT5793 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5794 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5795 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5476 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5476)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5476) (LOCALLY (DECLARE (TYPE CONS #:FUSION5476)) (LET ((#:CONS4816 #:FUSION5476)) (DECLARE (IGNORABLE #:CONS4816)) (LOCALLY (DECLARE (TYPE CONS #:CONS4816)) (LET ((#:GEN5477 (CAR #:FUSION5476))) (DECLARE (IGNORABLE #:GEN5477)) (LET ((#:GEN5478 (CDR #:FUSION5476))) (DECLARE (IGNORABLE #:GEN5478)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5479 T) (MATCH1 NIL ((GUARD1 #:IT5796 T) (MATCH2*+ (#:GEN5477 #:GEN5478 #:PAT5479) (T T T) (((GUARD1 (#:IT4817 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4817 'FIXNUM)) (GUARD1 (#:IT4818 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4818)) (GUARD1 (#:IT4819 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4819 'FIXNUM))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4817 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4817 'FIXNUM)) (GUARD1 (#:IT4818 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4818)) (GUARD1 (#:CONS4820 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4820) (CAR #:CONS4820) (GUARD1 (#:IT4821 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4821 'FIXNUM)) (CDR #:CONS4820) (GUARD1 (#:IT4822 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4822)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT5797 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5798 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT4823 #:WHAT16458)) (DECLARE (IGNORABLE #:IT4823)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4823 'BIGNUM) (LOCALLY (DECLARE (TYPE (EQL BIGNUM) #:IT4823)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:IT4827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4827 'BIGNUM)) (MATCH1 NIL ((GUARD1 #:IT5799 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5800 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5801 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT4823 #:WHAT16458)) (DECLARE (IGNORABLE #:IT4823)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4823 'BIGNUM) (LOCALLY (DECLARE (TYPE (EQL BIGNUM) #:IT4823)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS4828 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4828) (CAR #:CONS4828) (GUARD1 (#:IT4829 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4829 'BIGNUM)) (CDR #:CONS4828) (GUARD1 (#:IT4830 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4830)))) (MATCH1 NIL ((GUARD1 #:IT5802 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5803 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5804 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5480 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5480)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5480) (LOCALLY (DECLARE (TYPE CONS #:FUSION5480)) (LET ((#:CONS4824 #:FUSION5480)) (DECLARE (IGNORABLE #:CONS4824)) (LOCALLY (DECLARE (TYPE CONS #:CONS4824)) (LET ((#:GEN5481 (CAR #:FUSION5480))) (DECLARE (IGNORABLE #:GEN5481)) (LET ((#:GEN5482 (CDR #:FUSION5480))) (DECLARE (IGNORABLE #:GEN5482)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5483 T) (MATCH1 NIL ((GUARD1 #:IT5805 T) (MATCH2*+ (#:GEN5481 #:GEN5482 #:PAT5483) (T T T) (((GUARD1 (#:IT4825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4825 'BIGNUM)) (GUARD1 (#:IT4826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4826)) (GUARD1 (#:IT4827 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4827 'BIGNUM))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4825 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4825 'BIGNUM)) (GUARD1 (#:IT4826 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4826)) (GUARD1 (#:CONS4828 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4828) (CAR #:CONS4828) (GUARD1 (#:IT4829 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4829 'BIGNUM)) (CDR #:CONS4828) (GUARD1 (#:IT4830 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4830)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT5806 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5807 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4834 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4834)) (LET ((#:IT4831 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:IT4831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4831 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4831)) (LET ((#:BIND4832 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4832)) (LET ((#:BIND4833 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4833)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4855 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4855 (GUARD1 (#:CONS4853 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4853) (CAR #:CONS4853) (GUARD1 (#:IT4856 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT4856 'MOD)) (CDR #:CONS4853) (GUARD1 (#:CONS4857 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4857) (CAR #:CONS4857) (GUARD1 (#:N4852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS4857) (GUARD1 (#:IT4858 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4858))) #:INTERSECTION4855 (GUARD1 (#:BIND4854 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5808 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5809 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5810 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4834 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4834)) (LET ((#:IT4831 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:IT4831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4831 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4831)) (LET ((#:BIND4832 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4832)) (LET ((#:BIND4833 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4833)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4862 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4862 (GUARD1 (#:IT4859 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT4859 'BIT) #:INTERSECTION4862 (GUARD1 (#:BIND4860 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4862 (GUARD1 (#:BIND4861 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5811 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5812 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5813 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4834 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4834)) (LET ((#:IT4831 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:IT4831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4831 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4831)) (LET ((#:BIND4832 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4832)) (LET ((#:BIND4833 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4833)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION4866 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4866 (GUARD1 (#:CONS4865 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4865) (CAR #:CONS4865) (GUARD1 (#:IT4867 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4867 'UNSIGNED-BYTE)) (CDR #:CONS4865) (GUARD1 (#:CONS4868 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4868) (CAR #:CONS4868) (GUARD1 (#:INTERSECTION4870 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4870 (GUARD1 (#:IT4869 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT4869 'FIXNUM) #:INTERSECTION4870 (GUARD1 (#:N4863 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS4868) (GUARD1 (#:IT4871 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4871))) #:INTERSECTION4866 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION4873 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4873 (GUARD1 (#:CONS4872 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4872) (CAR #:CONS4872) (GUARD1 (#:IT4874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4874 'UNSIGNED-BYTE)) (CDR #:CONS4872) (GUARD1 (#:CONS4875 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4875) (CAR #:CONS4875) (GUARD1 (#:INTERSECTION4878 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4878 (GUARD1 (#:IT4876 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT4876 '*) #:INTERSECTION4878 (GUARD1 (#:IT4877 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS4875) (GUARD1 (#:IT4879 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4879))) #:INTERSECTION4873 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION4883 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4883 (GUARD1 (#:INTERSECTION4882 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4882 (GUARD1 (#:CONS4880 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4880) (CAR #:CONS4880) (GUARD1 (#:IT4884 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4884 'UNSIGNED-BYTE)) (CDR #:CONS4880) (GUARD1 (#:IT4885 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4885)) #:INTERSECTION4882 (GUARD1 (#:BIND4881 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION4883 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5814 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5815 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5816 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4834 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4834)) (LET ((#:IT4831 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:IT4831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4831 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4831)) (LET ((#:BIND4832 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4832)) (LET ((#:BIND4833 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4833)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION4892 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4892 (GUARD1 (#:CONS4887 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4887) (CAR #:CONS4887) (GUARD1 (#:IT4888 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4888 'SIGNED-BYTE)) (CDR #:CONS4887) (GUARD1 (#:CONS4889 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4889) (CAR #:CONS4889) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N4886 'FIXNUM)) (CDR #:CONS4889) (GUARD1 (#:IT4890 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4890))) #:INTERSECTION4892 (GUARD1 (#:LIFT-DUMMY4891 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION4898 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4898 (GUARD1 (#:CONS4893 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4893) (CAR #:CONS4893) (GUARD1 (#:IT4894 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4894 'SIGNED-BYTE)) (CDR #:CONS4893) (GUARD1 (#:CONS4895 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4895) (CAR #:CONS4895) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N4886)) (CDR #:CONS4895) (GUARD1 (#:IT4896 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4896))) #:INTERSECTION4898 (GUARD1 (#:LIFT-DUMMY4897 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION4902 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4902 (GUARD1 (#:CONS4899 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4899) (CAR #:CONS4899) (GUARD1 (#:IT4900 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4900 'SIGNED-BYTE)) (CDR #:CONS4899) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N4886)) #:INTERSECTION4902 (GUARD1 (#:LIFT-DUMMY4901 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION4904 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4904 (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N4886) #:INTERSECTION4904 (GUARD1 (#:LIFT-DUMMY4903 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (MATCH1 NIL ((GUARD1 #:IT5817 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5818 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5819 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4834 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4834)) (LET ((#:IT4831 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:IT4831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4831 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4831)) (LET ((#:BIND4832 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4832)) (LET ((#:BIND4833 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4833)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION4908 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4908 (GUARD1 (#:IT4905 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4905 'BIGNUM) #:INTERSECTION4908 (GUARD1 (#:BIND4906 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4908 (GUARD1 (#:BIND4907 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION4912 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4912 (GUARD1 (#:CONS4909 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4909) (CAR #:CONS4909) (GUARD1 (#:IT4913 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4913 'BIGNUM)) (CDR #:CONS4909) (GUARD1 (#:IT4914 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4914)) #:INTERSECTION4912 (GUARD1 (#:BIND4910 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4912 (GUARD1 (#:BIND4911 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT5820 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5821 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5822 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4834 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4834)) (LET ((#:IT4831 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:IT4831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4831 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4831)) (LET ((#:BIND4832 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4832)) (LET ((#:BIND4833 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4833)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION4918 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4918 (GUARD1 (#:IT4915 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4915 'FIXNUM) #:INTERSECTION4918 (GUARD1 (#:BIND4916 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4918 (GUARD1 (#:BIND4917 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION4922 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4922 (GUARD1 (#:CONS4919 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4919) (CAR #:CONS4919) (GUARD1 (#:IT4923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4923 'FIXNUM)) (CDR #:CONS4919) (GUARD1 (#:IT4924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4924)) #:INTERSECTION4922 (GUARD1 (#:BIND4920 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4922 (GUARD1 (#:BIND4921 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT5823 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5824 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5825 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4834 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4834)) (LET ((#:IT4831 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:IT4831)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4831 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4831)) (LET ((#:BIND4832 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4832)) (LET ((#:BIND4833 #:INTERSECTION4834)) (DECLARE (IGNORABLE #:BIND4833)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION4928 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4928 (GUARD1 (#:IT4925 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4925 'INTEGER) #:INTERSECTION4928 (GUARD1 (#:BIND4926 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4928 (GUARD1 (#:BIND4927 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:CONS4929 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4929) (CAR #:CONS4929) (GUARD1 (#:IT4930 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4930 'INTEGER)) (CDR #:CONS4929) (GUARD1 (#:CONS4931 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4931) (CDR #:CONS4931) (GUARD1 (#:CONS4932 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4932) (CDR #:CONS4932) (GUARD1 (#:IT4933 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4933))))) (GUARD1 (#:INTERSECTION4936 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4936 (GUARD1 (#:CONS4934 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4934) (CAR #:CONS4934) (GUARD1 (#:IT4937 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4937 'INTEGER)) (CDR #:CONS4934) (GUARD1 (#:CONS4938 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4938) (CDR #:CONS4938) (GUARD1 (#:IT4939 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4939))) #:INTERSECTION4936 (GUARD1 (#:BIND4935 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION4943 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4943 (GUARD1 (#:CONS4940 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4940) (CAR #:CONS4940) (GUARD1 (#:IT4944 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4944 'INTEGER)) (CDR #:CONS4940) (GUARD1 (#:IT4945 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4945)) #:INTERSECTION4943 (GUARD1 (#:BIND4941 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4943 (GUARD1 (#:BIND4942 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT5826 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5827 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5828 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS4835 #:WHAT16458)) (DECLARE (IGNORABLE #:CONS4835)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4835) (LOCALLY (DECLARE (TYPE CONS #:CONS4835)) (LET ((#:IT4836 (CAR #:CONS4835))) (DECLARE (IGNORABLE #:IT4836)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4836 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4836)) (LET ((#:CONS4837 (CDR #:CONS4835))) (DECLARE (IGNORABLE #:CONS4837)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4837) (LOCALLY (DECLARE (TYPE CONS #:CONS4837)) (LET ((#:CONS4838 (CDR #:CONS4837))) (DECLARE (IGNORABLE #:CONS4838)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4838) (LOCALLY (DECLARE (TYPE CONS #:CONS4838)) (LET ((#:IT4839 (CDR #:CONS4838))) (DECLARE (IGNORABLE #:IT4839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4839) (LOCALLY (DECLARE (TYPE NULL #:IT4839)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4855 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4855 (GUARD1 (#:CONS4853 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4853) (CAR #:CONS4853) (GUARD1 (#:IT4856 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT4856 'MOD)) (CDR #:CONS4853) (GUARD1 (#:CONS4857 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4857) (CAR #:CONS4857) (GUARD1 (#:N4852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS4857) (GUARD1 (#:IT4858 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4858))) #:INTERSECTION4855 (GUARD1 (#:BIND4854 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5829 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5830 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5831 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4855 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4855 (GUARD1 (#:CONS4853 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4853) (CAR #:CONS4853) (GUARD1 (#:IT4856 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT4856 'MOD)) (CDR #:CONS4853) (GUARD1 (#:CONS4857 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4857) (CAR #:CONS4857) (GUARD1 (#:N4852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS4857) (GUARD1 (#:IT4858 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4858))) #:INTERSECTION4855 (GUARD1 (#:BIND4854 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5832 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5833 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5834 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4855 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4855 (GUARD1 (#:CONS4853 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4853) (CAR #:CONS4853) (GUARD1 (#:IT4856 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT4856 'MOD)) (CDR #:CONS4853) (GUARD1 (#:CONS4857 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4857) (CAR #:CONS4857) (GUARD1 (#:N4852 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS4857) (GUARD1 (#:IT4858 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4858))) #:INTERSECTION4855 (GUARD1 (#:BIND4854 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5835 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5836 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5837 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS4835 #:WHAT16458)) (DECLARE (IGNORABLE #:CONS4835)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4835) (LOCALLY (DECLARE (TYPE CONS #:CONS4835)) (LET ((#:IT4836 (CAR #:CONS4835))) (DECLARE (IGNORABLE #:IT4836)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4836 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4836)) (LET ((#:CONS4837 (CDR #:CONS4835))) (DECLARE (IGNORABLE #:CONS4837)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4837) (LOCALLY (DECLARE (TYPE CONS #:CONS4837)) (LET ((#:CONS4838 (CDR #:CONS4837))) (DECLARE (IGNORABLE #:CONS4838)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4838) (LOCALLY (DECLARE (TYPE CONS #:CONS4838)) (LET ((#:IT4839 (CDR #:CONS4838))) (DECLARE (IGNORABLE #:IT4839)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4839) (LOCALLY (DECLARE (TYPE NULL #:IT4839)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4862 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4862 (GUARD1 (#:IT4859 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT4859 'BIT) #:INTERSECTION4862 (GUARD1 (#:BIND4860 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4862 (GUARD1 (#:BIND4861 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5838 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5839 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5840 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4862 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4862 (GUARD1 (#:IT4859 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT4859 'BIT) #:INTERSECTION4862 (GUARD1 (#:BIND4860 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4862 (GUARD1 (#:BIND4861 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5841 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5842 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5843 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4862 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4862 (GUARD1 (#:IT4859 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT4859 'BIT) #:INTERSECTION4862 (GUARD1 (#:BIND4860 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4862 (GUARD1 (#:BIND4861 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5844 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5845 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5846 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5493 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5493)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5493) (LOCALLY (DECLARE (TYPE CONS #:FUSION5493)) (LET ((#:CONS4835 #:FUSION5493)) (DECLARE (IGNORABLE #:CONS4835)) (LOCALLY (DECLARE (TYPE CONS #:CONS4835)) (LET ((#:GEN5494 (CAR #:FUSION5493))) (DECLARE (IGNORABLE #:GEN5494)) (LET ((#:GEN5495 (CDR #:FUSION5493))) (DECLARE (IGNORABLE #:GEN5495)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5496 T) (MATCH1 NIL ((GUARD1 #:IT5847 T) (MATCH2*+ (#:GEN5494 #:GEN5495 #:PAT5496) (T T T) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (GUARD1 (#:INTERSECTION4866 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4866 (GUARD1 (#:CONS4865 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4865) (CAR #:CONS4865) (GUARD1 (#:IT4867 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4867 'UNSIGNED-BYTE)) (CDR #:CONS4865) (GUARD1 (#:CONS4868 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4868) (CAR #:CONS4868) (GUARD1 (#:INTERSECTION4870 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4870 (GUARD1 (#:IT4869 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT4869 'FIXNUM) #:INTERSECTION4870 (GUARD1 (#:N4863 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS4868) (GUARD1 (#:IT4871 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4871))) #:INTERSECTION4866 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (GUARD1 (#:INTERSECTION4873 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4873 (GUARD1 (#:CONS4872 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4872) (CAR #:CONS4872) (GUARD1 (#:IT4874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4874 'UNSIGNED-BYTE)) (CDR #:CONS4872) (GUARD1 (#:CONS4875 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4875) (CAR #:CONS4875) (GUARD1 (#:INTERSECTION4878 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4878 (GUARD1 (#:IT4876 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT4876 '*) #:INTERSECTION4878 (GUARD1 (#:IT4877 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS4875) (GUARD1 (#:IT4879 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4879))) #:INTERSECTION4873 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (GUARD1 (#:INTERSECTION4883 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4883 (GUARD1 (#:INTERSECTION4882 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4882 (GUARD1 (#:CONS4880 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4880) (CAR #:CONS4880) (GUARD1 (#:IT4884 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4884 'UNSIGNED-BYTE)) (CDR #:CONS4880) (GUARD1 (#:IT4885 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4885)) #:INTERSECTION4882 (GUARD1 (#:BIND4881 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION4883 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT5848 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5849 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4866 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4866 (GUARD1 (#:CONS4865 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4865) (CAR #:CONS4865) (GUARD1 (#:IT4867 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4867 'UNSIGNED-BYTE)) (CDR #:CONS4865) (GUARD1 (#:CONS4868 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4868) (CAR #:CONS4868) (GUARD1 (#:INTERSECTION4870 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4870 (GUARD1 (#:IT4869 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT4869 'FIXNUM) #:INTERSECTION4870 (GUARD1 (#:N4863 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS4868) (GUARD1 (#:IT4871 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4871))) #:INTERSECTION4866 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5850 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5851 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5852 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4873 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4873 (GUARD1 (#:CONS4872 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4872) (CAR #:CONS4872) (GUARD1 (#:IT4874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4874 'UNSIGNED-BYTE)) (CDR #:CONS4872) (GUARD1 (#:CONS4875 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4875) (CAR #:CONS4875) (GUARD1 (#:INTERSECTION4878 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4878 (GUARD1 (#:IT4876 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT4876 '*) #:INTERSECTION4878 (GUARD1 (#:IT4877 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS4875) (GUARD1 (#:IT4879 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4879))) #:INTERSECTION4873 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5853 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5854 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5855 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4883 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4883 (GUARD1 (#:INTERSECTION4882 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4882 (GUARD1 (#:CONS4880 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4880) (CAR #:CONS4880) (GUARD1 (#:IT4884 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4884 'UNSIGNED-BYTE)) (CDR #:CONS4880) (GUARD1 (#:IT4885 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4885)) #:INTERSECTION4882 (GUARD1 (#:BIND4881 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION4883 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5856 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5857 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5858 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4866 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4866 (GUARD1 (#:CONS4865 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4865) (CAR #:CONS4865) (GUARD1 (#:IT4867 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4867 'UNSIGNED-BYTE)) (CDR #:CONS4865) (GUARD1 (#:CONS4868 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4868) (CAR #:CONS4868) (GUARD1 (#:INTERSECTION4870 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4870 (GUARD1 (#:IT4869 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT4869 'FIXNUM) #:INTERSECTION4870 (GUARD1 (#:N4863 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS4868) (GUARD1 (#:IT4871 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4871))) #:INTERSECTION4866 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5859 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5860 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5861 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4873 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4873 (GUARD1 (#:CONS4872 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4872) (CAR #:CONS4872) (GUARD1 (#:IT4874 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4874 'UNSIGNED-BYTE)) (CDR #:CONS4872) (GUARD1 (#:CONS4875 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4875) (CAR #:CONS4875) (GUARD1 (#:INTERSECTION4878 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4878 (GUARD1 (#:IT4876 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT4876 '*) #:INTERSECTION4878 (GUARD1 (#:IT4877 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS4875) (GUARD1 (#:IT4879 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4879))) #:INTERSECTION4873 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5862 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5863 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5864 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4883 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4883 (GUARD1 (#:INTERSECTION4882 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4882 (GUARD1 (#:CONS4880 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4880) (CAR #:CONS4880) (GUARD1 (#:IT4884 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT4884 'UNSIGNED-BYTE)) (CDR #:CONS4880) (GUARD1 (#:IT4885 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4885)) #:INTERSECTION4882 (GUARD1 (#:BIND4881 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION4883 (GUARD1 (#:BIND4864 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5865 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5866 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5867 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5500 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5500)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5500) (LOCALLY (DECLARE (TYPE CONS #:FUSION5500)) (LET ((#:CONS4835 #:FUSION5500)) (DECLARE (IGNORABLE #:CONS4835)) (LOCALLY (DECLARE (TYPE CONS #:CONS4835)) (LET ((#:GEN5501 (CAR #:FUSION5500))) (DECLARE (IGNORABLE #:GEN5501)) (LET ((#:GEN5502 (CDR #:FUSION5500))) (DECLARE (IGNORABLE #:GEN5502)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5503 T) (MATCH1 NIL ((GUARD1 #:IT5868 T) (MATCH2*+ (#:GEN5501 #:GEN5502 #:PAT5503) (T T T) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (GUARD1 (#:INTERSECTION4892 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4892 (GUARD1 (#:CONS4887 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4887) (CAR #:CONS4887) (GUARD1 (#:IT4888 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4888 'SIGNED-BYTE)) (CDR #:CONS4887) (GUARD1 (#:CONS4889 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4889) (CAR #:CONS4889) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N4886 'FIXNUM)) (CDR #:CONS4889) (GUARD1 (#:IT4890 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4890))) #:INTERSECTION4892 (GUARD1 (#:LIFT-DUMMY4891 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (GUARD1 (#:INTERSECTION4898 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4898 (GUARD1 (#:CONS4893 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4893) (CAR #:CONS4893) (GUARD1 (#:IT4894 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4894 'SIGNED-BYTE)) (CDR #:CONS4893) (GUARD1 (#:CONS4895 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4895) (CAR #:CONS4895) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N4886)) (CDR #:CONS4895) (GUARD1 (#:IT4896 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4896))) #:INTERSECTION4898 (GUARD1 (#:LIFT-DUMMY4897 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (GUARD1 (#:INTERSECTION4902 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4902 (GUARD1 (#:CONS4899 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4899) (CAR #:CONS4899) (GUARD1 (#:IT4900 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4900 'SIGNED-BYTE)) (CDR #:CONS4899) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N4886)) #:INTERSECTION4902 (GUARD1 (#:LIFT-DUMMY4901 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (GUARD1 (#:INTERSECTION4904 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4904 (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N4886) #:INTERSECTION4904 (GUARD1 (#:LIFT-DUMMY4903 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT5869 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5870 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4892 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4892 (GUARD1 (#:CONS4887 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4887) (CAR #:CONS4887) (GUARD1 (#:IT4888 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4888 'SIGNED-BYTE)) (CDR #:CONS4887) (GUARD1 (#:CONS4889 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4889) (CAR #:CONS4889) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N4886 'FIXNUM)) (CDR #:CONS4889) (GUARD1 (#:IT4890 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4890))) #:INTERSECTION4892 (GUARD1 (#:LIFT-DUMMY4891 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT5871 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5872 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5873 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4898 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4898 (GUARD1 (#:CONS4893 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4893) (CAR #:CONS4893) (GUARD1 (#:IT4894 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4894 'SIGNED-BYTE)) (CDR #:CONS4893) (GUARD1 (#:CONS4895 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4895) (CAR #:CONS4895) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N4886)) (CDR #:CONS4895) (GUARD1 (#:IT4896 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4896))) #:INTERSECTION4898 (GUARD1 (#:LIFT-DUMMY4897 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT5874 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5875 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5876 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4902 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4902 (GUARD1 (#:CONS4899 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4899) (CAR #:CONS4899) (GUARD1 (#:IT4900 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4900 'SIGNED-BYTE)) (CDR #:CONS4899) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N4886)) #:INTERSECTION4902 (GUARD1 (#:LIFT-DUMMY4901 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT5877 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5878 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5879 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4904 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4904 (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N4886) #:INTERSECTION4904 (GUARD1 (#:LIFT-DUMMY4903 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT5880 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5881 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5882 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4892 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4892 (GUARD1 (#:CONS4887 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4887) (CAR #:CONS4887) (GUARD1 (#:IT4888 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4888 'SIGNED-BYTE)) (CDR #:CONS4887) (GUARD1 (#:CONS4889 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4889) (CAR #:CONS4889) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N4886 'FIXNUM)) (CDR #:CONS4889) (GUARD1 (#:IT4890 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4890))) #:INTERSECTION4892 (GUARD1 (#:LIFT-DUMMY4891 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT5883 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5884 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5885 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4898 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4898 (GUARD1 (#:CONS4893 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4893) (CAR #:CONS4893) (GUARD1 (#:IT4894 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4894 'SIGNED-BYTE)) (CDR #:CONS4893) (GUARD1 (#:CONS4895 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4895) (CAR #:CONS4895) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N4886)) (CDR #:CONS4895) (GUARD1 (#:IT4896 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4896))) #:INTERSECTION4898 (GUARD1 (#:LIFT-DUMMY4897 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT5886 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5887 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5888 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4902 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4902 (GUARD1 (#:CONS4899 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4899) (CAR #:CONS4899) (GUARD1 (#:IT4900 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT4900 'SIGNED-BYTE)) (CDR #:CONS4899) (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N4886)) #:INTERSECTION4902 (GUARD1 (#:LIFT-DUMMY4901 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT5889 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5890 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5891 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4904 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4904 (GUARD1 (#:N4886 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N4886) #:INTERSECTION4904 (GUARD1 (#:LIFT-DUMMY4903 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT5892 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5893 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5894 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5507 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5507)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5507) (LOCALLY (DECLARE (TYPE CONS #:FUSION5507)) (LET ((#:CONS4835 #:FUSION5507)) (DECLARE (IGNORABLE #:CONS4835)) (LOCALLY (DECLARE (TYPE CONS #:CONS4835)) (LET ((#:GEN5508 (CAR #:FUSION5507))) (DECLARE (IGNORABLE #:GEN5508)) (LET ((#:GEN5509 (CDR #:FUSION5507))) (DECLARE (IGNORABLE #:GEN5509)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5510 T) (MATCH1 NIL ((GUARD1 #:IT5895 T) (MATCH2*+ (#:GEN5508 #:GEN5509 #:PAT5510) (T T T) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (GUARD1 (#:INTERSECTION4908 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4908 (GUARD1 (#:IT4905 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4905 'BIGNUM) #:INTERSECTION4908 (GUARD1 (#:BIND4906 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4908 (GUARD1 (#:BIND4907 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (OR1 (GUARD1 (#:INTERSECTION4912 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4912 (GUARD1 (#:CONS4909 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4909) (CAR #:CONS4909) (GUARD1 (#:IT4913 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4913 'BIGNUM)) (CDR #:CONS4909) (GUARD1 (#:IT4914 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4914)) #:INTERSECTION4912 (GUARD1 (#:BIND4910 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4912 (GUARD1 (#:BIND4911 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT5896 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5897 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4908 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4908 (GUARD1 (#:IT4905 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4905 'BIGNUM) #:INTERSECTION4908 (GUARD1 (#:BIND4906 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4908 (GUARD1 (#:BIND4907 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5898 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5899 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5900 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION4912 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4912 (GUARD1 (#:CONS4909 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4909) (CAR #:CONS4909) (GUARD1 (#:IT4913 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4913 'BIGNUM)) (CDR #:CONS4909) (GUARD1 (#:IT4914 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4914)) #:INTERSECTION4912 (GUARD1 (#:BIND4910 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4912 (GUARD1 (#:BIND4911 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT5901 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5902 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5903 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4908 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4908 (GUARD1 (#:IT4905 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4905 'BIGNUM) #:INTERSECTION4908 (GUARD1 (#:BIND4906 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4908 (GUARD1 (#:BIND4907 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5904 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5905 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5906 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION4912 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4912 (GUARD1 (#:CONS4909 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4909) (CAR #:CONS4909) (GUARD1 (#:IT4913 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT4913 'BIGNUM)) (CDR #:CONS4909) (GUARD1 (#:IT4914 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4914)) #:INTERSECTION4912 (GUARD1 (#:BIND4910 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4912 (GUARD1 (#:BIND4911 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT5907 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5908 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5909 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5514 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5514)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5514) (LOCALLY (DECLARE (TYPE CONS #:FUSION5514)) (LET ((#:CONS4835 #:FUSION5514)) (DECLARE (IGNORABLE #:CONS4835)) (LOCALLY (DECLARE (TYPE CONS #:CONS4835)) (LET ((#:GEN5515 (CAR #:FUSION5514))) (DECLARE (IGNORABLE #:GEN5515)) (LET ((#:GEN5516 (CDR #:FUSION5514))) (DECLARE (IGNORABLE #:GEN5516)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5517 T) (MATCH1 NIL ((GUARD1 #:IT5910 T) (MATCH2*+ (#:GEN5515 #:GEN5516 #:PAT5517) (T T T) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (GUARD1 (#:INTERSECTION4918 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4918 (GUARD1 (#:IT4915 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4915 'FIXNUM) #:INTERSECTION4918 (GUARD1 (#:BIND4916 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4918 (GUARD1 (#:BIND4917 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (OR1 (GUARD1 (#:INTERSECTION4922 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4922 (GUARD1 (#:CONS4919 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4919) (CAR #:CONS4919) (GUARD1 (#:IT4923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4923 'FIXNUM)) (CDR #:CONS4919) (GUARD1 (#:IT4924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4924)) #:INTERSECTION4922 (GUARD1 (#:BIND4920 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4922 (GUARD1 (#:BIND4921 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT5911 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5912 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4918 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4918 (GUARD1 (#:IT4915 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4915 'FIXNUM) #:INTERSECTION4918 (GUARD1 (#:BIND4916 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4918 (GUARD1 (#:BIND4917 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5913 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5914 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5915 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION4922 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4922 (GUARD1 (#:CONS4919 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4919) (CAR #:CONS4919) (GUARD1 (#:IT4923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4923 'FIXNUM)) (CDR #:CONS4919) (GUARD1 (#:IT4924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4924)) #:INTERSECTION4922 (GUARD1 (#:BIND4920 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4922 (GUARD1 (#:BIND4921 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT5916 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5917 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5918 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4918 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4918 (GUARD1 (#:IT4915 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4915 'FIXNUM) #:INTERSECTION4918 (GUARD1 (#:BIND4916 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4918 (GUARD1 (#:BIND4917 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5919 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5920 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5921 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION4922 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4922 (GUARD1 (#:CONS4919 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4919) (CAR #:CONS4919) (GUARD1 (#:IT4923 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT4923 'FIXNUM)) (CDR #:CONS4919) (GUARD1 (#:IT4924 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4924)) #:INTERSECTION4922 (GUARD1 (#:BIND4920 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4922 (GUARD1 (#:BIND4921 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT5922 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5923 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5924 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5521 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5521)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5521) (LOCALLY (DECLARE (TYPE CONS #:FUSION5521)) (LET ((#:CONS4835 #:FUSION5521)) (DECLARE (IGNORABLE #:CONS4835)) (LOCALLY (DECLARE (TYPE CONS #:CONS4835)) (LET ((#:GEN5522 (CAR #:FUSION5521))) (DECLARE (IGNORABLE #:GEN5522)) (LET ((#:GEN5523 (CDR #:FUSION5521))) (DECLARE (IGNORABLE #:GEN5523)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5524 T) (MATCH1 NIL ((GUARD1 #:IT5925 T) (MATCH2*+ (#:GEN5522 #:GEN5523 #:PAT5524) (T T T) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (GUARD1 (#:INTERSECTION4928 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4928 (GUARD1 (#:IT4925 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4925 'INTEGER) #:INTERSECTION4928 (GUARD1 (#:BIND4926 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4928 (GUARD1 (#:BIND4927 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4836 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4836 'INTEGER)) (GUARD1 (#:CONS4837 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4837) (CDR #:CONS4837) (GUARD1 (#:CONS4838 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4838) (CDR #:CONS4838) (GUARD1 (#:IT4839 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4839)))) (OR1 (GUARD1 (#:CONS4929 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4929) (CAR #:CONS4929) (GUARD1 (#:IT4930 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4930 'INTEGER)) (CDR #:CONS4929) (GUARD1 (#:CONS4931 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4931) (CDR #:CONS4931) (GUARD1 (#:CONS4932 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4932) (CDR #:CONS4932) (GUARD1 (#:IT4933 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4933))))) (GUARD1 (#:INTERSECTION4936 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4936 (GUARD1 (#:CONS4934 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4934) (CAR #:CONS4934) (GUARD1 (#:IT4937 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4937 'INTEGER)) (CDR #:CONS4934) (GUARD1 (#:CONS4938 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4938) (CDR #:CONS4938) (GUARD1 (#:IT4939 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4939))) #:INTERSECTION4936 (GUARD1 (#:BIND4935 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION4943 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4943 (GUARD1 (#:CONS4940 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4940) (CAR #:CONS4940) (GUARD1 (#:IT4944 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4944 'INTEGER)) (CDR #:CONS4940) (GUARD1 (#:IT4945 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4945)) #:INTERSECTION4943 (GUARD1 (#:BIND4941 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4943 (GUARD1 (#:BIND4942 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT5926 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5927 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4928 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4928 (GUARD1 (#:IT4925 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4925 'INTEGER) #:INTERSECTION4928 (GUARD1 (#:BIND4926 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4928 (GUARD1 (#:BIND4927 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5928 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5929 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5930 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4842 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4842)) (LET ((#:CONS4840 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:CONS4840)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4840) (LOCALLY (DECLARE (TYPE CONS #:CONS4840)) (LET ((#:IT4843 (CAR #:CONS4840))) (DECLARE (IGNORABLE #:IT4843)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4843 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4843)) (LET ((#:CONS4844 (CDR #:CONS4840))) (DECLARE (IGNORABLE #:CONS4844)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4844) (LOCALLY (DECLARE (TYPE CONS #:CONS4844)) (LET ((#:IT4845 (CDR #:CONS4844))) (DECLARE (IGNORABLE #:IT4845)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4845) (LOCALLY (DECLARE (TYPE NULL #:IT4845)) (LET ((#:BIND4841 #:INTERSECTION4842)) (DECLARE (IGNORABLE #:BIND4841)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS4929 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4929) (CAR #:CONS4929) (GUARD1 (#:IT4930 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4930 'INTEGER)) (CDR #:CONS4929) (GUARD1 (#:CONS4931 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4931) (CDR #:CONS4931) (GUARD1 (#:CONS4932 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4932) (CDR #:CONS4932) (GUARD1 (#:IT4933 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4933))))) (GUARD1 (#:INTERSECTION4936 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4936 (GUARD1 (#:CONS4934 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4934) (CAR #:CONS4934) (GUARD1 (#:IT4937 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4937 'INTEGER)) (CDR #:CONS4934) (GUARD1 (#:CONS4938 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4938) (CDR #:CONS4938) (GUARD1 (#:IT4939 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4939))) #:INTERSECTION4936 (GUARD1 (#:BIND4935 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION4943 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4943 (GUARD1 (#:CONS4940 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4940) (CAR #:CONS4940) (GUARD1 (#:IT4944 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4944 'INTEGER)) (CDR #:CONS4940) (GUARD1 (#:IT4945 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4945)) #:INTERSECTION4943 (GUARD1 (#:BIND4941 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4943 (GUARD1 (#:BIND4942 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT5931 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5932 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5933 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4928 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4928 (GUARD1 (#:IT4925 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4925 'INTEGER) #:INTERSECTION4928 (GUARD1 (#:BIND4926 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4928 (GUARD1 (#:BIND4927 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5934 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5935 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5936 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4849 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4849)) (LET ((#:CONS4846 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:CONS4846)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4846) (LOCALLY (DECLARE (TYPE CONS #:CONS4846)) (LET ((#:IT4850 (CAR #:CONS4846))) (DECLARE (IGNORABLE #:IT4850)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4850 'INTEGER) (LOCALLY (DECLARE (TYPE (EQL INTEGER) #:IT4850)) (LET ((#:IT4851 (CDR #:CONS4846))) (DECLARE (IGNORABLE #:IT4851)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4851) (LOCALLY (DECLARE (TYPE NULL #:IT4851)) (LET ((#:BIND4847 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4847)) (LET ((#:BIND4848 #:INTERSECTION4849)) (DECLARE (IGNORABLE #:BIND4848)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS4929 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4929) (CAR #:CONS4929) (GUARD1 (#:IT4930 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4930 'INTEGER)) (CDR #:CONS4929) (GUARD1 (#:CONS4931 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4931) (CDR #:CONS4931) (GUARD1 (#:CONS4932 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4932) (CDR #:CONS4932) (GUARD1 (#:IT4933 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4933))))) (GUARD1 (#:INTERSECTION4936 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4936 (GUARD1 (#:CONS4934 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4934) (CAR #:CONS4934) (GUARD1 (#:IT4937 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4937 'INTEGER)) (CDR #:CONS4934) (GUARD1 (#:CONS4938 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4938) (CDR #:CONS4938) (GUARD1 (#:IT4939 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4939))) #:INTERSECTION4936 (GUARD1 (#:BIND4935 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION4943 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4943 (GUARD1 (#:CONS4940 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4940) (CAR #:CONS4940) (GUARD1 (#:IT4944 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT4944 'INTEGER)) (CDR #:CONS4940) (GUARD1 (#:IT4945 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4945)) #:INTERSECTION4943 (GUARD1 (#:BIND4941 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4943 (GUARD1 (#:BIND4942 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT5937 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5938 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5939 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4949 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4949)) (LET ((#:IT4946 #:INTERSECTION4949)) (DECLARE (IGNORABLE #:IT4946)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4946 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT4946)) (LET ((#:BIND4947 #:INTERSECTION4949)) (DECLARE (IGNORABLE #:BIND4947)) (LET ((#:BIND4948 #:INTERSECTION4949)) (DECLARE (IGNORABLE #:BIND4948)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4970 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4970 (GUARD1 (#:IT4967 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4967 'SINGLE-FLOAT) #:INTERSECTION4970 (GUARD1 (#:BIND4968 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4970 (GUARD1 (#:BIND4969 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5940 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5941 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5942 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4949 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4949)) (LET ((#:IT4946 #:INTERSECTION4949)) (DECLARE (IGNORABLE #:IT4946)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4946 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT4946)) (LET ((#:BIND4947 #:INTERSECTION4949)) (DECLARE (IGNORABLE #:BIND4947)) (LET ((#:BIND4948 #:INTERSECTION4949)) (DECLARE (IGNORABLE #:BIND4948)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS4971 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4971) (CAR #:CONS4971) (GUARD1 (#:IT4972 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4972 'SINGLE-FLOAT)) (CDR #:CONS4971) (GUARD1 (#:CONS4973 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4973) (CDR #:CONS4973) (GUARD1 (#:CONS4974 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4974) (CDR #:CONS4974) (GUARD1 (#:IT4975 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4975))))) (GUARD1 (#:INTERSECTION4978 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4978 (GUARD1 (#:CONS4976 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4976) (CAR #:CONS4976) (GUARD1 (#:IT4979 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4979 'SINGLE-FLOAT)) (CDR #:CONS4976) (GUARD1 (#:CONS4980 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4980) (CDR #:CONS4980) (GUARD1 (#:IT4981 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4981))) #:INTERSECTION4978 (GUARD1 (#:BIND4977 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION4985 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4985 (GUARD1 (#:CONS4982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4982) (CAR #:CONS4982) (GUARD1 (#:IT4986 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4986 'SINGLE-FLOAT)) (CDR #:CONS4982) (GUARD1 (#:IT4987 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4987)) #:INTERSECTION4985 (GUARD1 (#:BIND4983 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4985 (GUARD1 (#:BIND4984 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT5943 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5944 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5945 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS4950 #:WHAT16458)) (DECLARE (IGNORABLE #:CONS4950)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4950) (LOCALLY (DECLARE (TYPE CONS #:CONS4950)) (LET ((#:IT4951 (CAR #:CONS4950))) (DECLARE (IGNORABLE #:IT4951)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4951 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT4951)) (LET ((#:CONS4952 (CDR #:CONS4950))) (DECLARE (IGNORABLE #:CONS4952)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4952) (LOCALLY (DECLARE (TYPE CONS #:CONS4952)) (LET ((#:CONS4953 (CDR #:CONS4952))) (DECLARE (IGNORABLE #:CONS4953)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4953) (LOCALLY (DECLARE (TYPE CONS #:CONS4953)) (LET ((#:IT4954 (CDR #:CONS4953))) (DECLARE (IGNORABLE #:IT4954)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4954) (LOCALLY (DECLARE (TYPE NULL #:IT4954)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4970 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4970 (GUARD1 (#:IT4967 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4967 'SINGLE-FLOAT) #:INTERSECTION4970 (GUARD1 (#:BIND4968 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4970 (GUARD1 (#:BIND4969 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5946 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5947 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5948 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4957 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4957)) (LET ((#:CONS4955 #:INTERSECTION4957)) (DECLARE (IGNORABLE #:CONS4955)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4955) (LOCALLY (DECLARE (TYPE CONS #:CONS4955)) (LET ((#:IT4958 (CAR #:CONS4955))) (DECLARE (IGNORABLE #:IT4958)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4958 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT4958)) (LET ((#:CONS4959 (CDR #:CONS4955))) (DECLARE (IGNORABLE #:CONS4959)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4959) (LOCALLY (DECLARE (TYPE CONS #:CONS4959)) (LET ((#:IT4960 (CDR #:CONS4959))) (DECLARE (IGNORABLE #:IT4960)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4960) (LOCALLY (DECLARE (TYPE NULL #:IT4960)) (LET ((#:BIND4956 #:INTERSECTION4957)) (DECLARE (IGNORABLE #:BIND4956)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4970 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4970 (GUARD1 (#:IT4967 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4967 'SINGLE-FLOAT) #:INTERSECTION4970 (GUARD1 (#:BIND4968 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4970 (GUARD1 (#:BIND4969 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5949 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5950 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5951 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4964 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4964)) (LET ((#:CONS4961 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:CONS4961)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4961) (LOCALLY (DECLARE (TYPE CONS #:CONS4961)) (LET ((#:IT4965 (CAR #:CONS4961))) (DECLARE (IGNORABLE #:IT4965)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4965 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT4965)) (LET ((#:IT4966 (CDR #:CONS4961))) (DECLARE (IGNORABLE #:IT4966)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4966) (LOCALLY (DECLARE (TYPE NULL #:IT4966)) (LET ((#:BIND4962 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:BIND4962)) (LET ((#:BIND4963 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:BIND4963)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4970 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4970 (GUARD1 (#:IT4967 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4967 'SINGLE-FLOAT) #:INTERSECTION4970 (GUARD1 (#:BIND4968 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4970 (GUARD1 (#:BIND4969 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5952 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5953 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5954 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5531 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5531)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5531) (LOCALLY (DECLARE (TYPE CONS #:FUSION5531)) (LET ((#:CONS4950 #:FUSION5531)) (DECLARE (IGNORABLE #:CONS4950)) (LOCALLY (DECLARE (TYPE CONS #:CONS4950)) (LET ((#:GEN5532 (CAR #:FUSION5531))) (DECLARE (IGNORABLE #:GEN5532)) (LET ((#:GEN5533 (CDR #:FUSION5531))) (DECLARE (IGNORABLE #:GEN5533)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5534 T) (MATCH1 NIL ((GUARD1 #:IT5955 T) (MATCH2*+ (#:GEN5532 #:GEN5533 #:PAT5534) (T T T) (((GUARD1 (#:IT4951 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4951 'SINGLE-FLOAT)) (GUARD1 (#:CONS4952 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4952) (CDR #:CONS4952) (GUARD1 (#:CONS4953 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4953) (CDR #:CONS4953) (GUARD1 (#:IT4954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4954)))) (GUARD1 (#:CONS4971 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4971) (CAR #:CONS4971) (GUARD1 (#:IT4972 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4972 'SINGLE-FLOAT)) (CDR #:CONS4971) (GUARD1 (#:CONS4973 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4973) (CDR #:CONS4973) (GUARD1 (#:CONS4974 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4974) (CDR #:CONS4974) (GUARD1 (#:IT4975 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4975)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4951 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4951 'SINGLE-FLOAT)) (GUARD1 (#:CONS4952 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4952) (CDR #:CONS4952) (GUARD1 (#:CONS4953 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4953) (CDR #:CONS4953) (GUARD1 (#:IT4954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4954)))) (GUARD1 (#:INTERSECTION4978 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4978 (GUARD1 (#:CONS4976 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4976) (CAR #:CONS4976) (GUARD1 (#:IT4979 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4979 'SINGLE-FLOAT)) (CDR #:CONS4976) (GUARD1 (#:CONS4980 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4980) (CDR #:CONS4980) (GUARD1 (#:IT4981 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4981))) #:INTERSECTION4978 (GUARD1 (#:BIND4977 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4951 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4951 'SINGLE-FLOAT)) (GUARD1 (#:CONS4952 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4952) (CDR #:CONS4952) (GUARD1 (#:CONS4953 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4953) (CDR #:CONS4953) (GUARD1 (#:IT4954 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4954)))) (GUARD1 (#:INTERSECTION4985 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4985 (GUARD1 (#:CONS4982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4982) (CAR #:CONS4982) (GUARD1 (#:IT4986 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4986 'SINGLE-FLOAT)) (CDR #:CONS4982) (GUARD1 (#:IT4987 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4987)) #:INTERSECTION4985 (GUARD1 (#:BIND4983 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4985 (GUARD1 (#:BIND4984 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT5956 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5957 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4957 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4957)) (LET ((#:CONS4955 #:INTERSECTION4957)) (DECLARE (IGNORABLE #:CONS4955)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4955) (LOCALLY (DECLARE (TYPE CONS #:CONS4955)) (LET ((#:IT4958 (CAR #:CONS4955))) (DECLARE (IGNORABLE #:IT4958)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4958 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT4958)) (LET ((#:CONS4959 (CDR #:CONS4955))) (DECLARE (IGNORABLE #:CONS4959)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4959) (LOCALLY (DECLARE (TYPE CONS #:CONS4959)) (LET ((#:IT4960 (CDR #:CONS4959))) (DECLARE (IGNORABLE #:IT4960)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4960) (LOCALLY (DECLARE (TYPE NULL #:IT4960)) (LET ((#:BIND4956 #:INTERSECTION4957)) (DECLARE (IGNORABLE #:BIND4956)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:CONS4971 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4971) (CAR #:CONS4971) (GUARD1 (#:IT4972 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4972 'SINGLE-FLOAT)) (CDR #:CONS4971) (GUARD1 (#:CONS4973 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4973) (CDR #:CONS4973) (GUARD1 (#:CONS4974 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4974) (CDR #:CONS4974) (GUARD1 (#:IT4975 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4975))))) (MATCH1 NIL ((GUARD1 #:IT5958 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5959 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5960 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4957 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4957)) (LET ((#:CONS4955 #:INTERSECTION4957)) (DECLARE (IGNORABLE #:CONS4955)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4955) (LOCALLY (DECLARE (TYPE CONS #:CONS4955)) (LET ((#:IT4958 (CAR #:CONS4955))) (DECLARE (IGNORABLE #:IT4958)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4958 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT4958)) (LET ((#:CONS4959 (CDR #:CONS4955))) (DECLARE (IGNORABLE #:CONS4959)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4959) (LOCALLY (DECLARE (TYPE CONS #:CONS4959)) (LET ((#:IT4960 (CDR #:CONS4959))) (DECLARE (IGNORABLE #:IT4960)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4960) (LOCALLY (DECLARE (TYPE NULL #:IT4960)) (LET ((#:BIND4956 #:INTERSECTION4957)) (DECLARE (IGNORABLE #:BIND4956)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4978 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4978 (GUARD1 (#:CONS4976 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4976) (CAR #:CONS4976) (GUARD1 (#:IT4979 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4979 'SINGLE-FLOAT)) (CDR #:CONS4976) (GUARD1 (#:CONS4980 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4980) (CDR #:CONS4980) (GUARD1 (#:IT4981 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4981))) #:INTERSECTION4978 (GUARD1 (#:BIND4977 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5961 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5962 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5963 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4957 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4957)) (LET ((#:CONS4955 #:INTERSECTION4957)) (DECLARE (IGNORABLE #:CONS4955)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4955) (LOCALLY (DECLARE (TYPE CONS #:CONS4955)) (LET ((#:IT4958 (CAR #:CONS4955))) (DECLARE (IGNORABLE #:IT4958)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4958 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT4958)) (LET ((#:CONS4959 (CDR #:CONS4955))) (DECLARE (IGNORABLE #:CONS4959)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4959) (LOCALLY (DECLARE (TYPE CONS #:CONS4959)) (LET ((#:IT4960 (CDR #:CONS4959))) (DECLARE (IGNORABLE #:IT4960)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4960) (LOCALLY (DECLARE (TYPE NULL #:IT4960)) (LET ((#:BIND4956 #:INTERSECTION4957)) (DECLARE (IGNORABLE #:BIND4956)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4985 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4985 (GUARD1 (#:CONS4982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4982) (CAR #:CONS4982) (GUARD1 (#:IT4986 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4986 'SINGLE-FLOAT)) (CDR #:CONS4982) (GUARD1 (#:IT4987 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4987)) #:INTERSECTION4985 (GUARD1 (#:BIND4983 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4985 (GUARD1 (#:BIND4984 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5964 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5965 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5966 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4964 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4964)) (LET ((#:CONS4961 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:CONS4961)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4961) (LOCALLY (DECLARE (TYPE CONS #:CONS4961)) (LET ((#:IT4965 (CAR #:CONS4961))) (DECLARE (IGNORABLE #:IT4965)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4965 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT4965)) (LET ((#:IT4966 (CDR #:CONS4961))) (DECLARE (IGNORABLE #:IT4966)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4966) (LOCALLY (DECLARE (TYPE NULL #:IT4966)) (LET ((#:BIND4962 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:BIND4962)) (LET ((#:BIND4963 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:BIND4963)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:CONS4971 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4971) (CAR #:CONS4971) (GUARD1 (#:IT4972 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4972 'SINGLE-FLOAT)) (CDR #:CONS4971) (GUARD1 (#:CONS4973 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4973) (CDR #:CONS4973) (GUARD1 (#:CONS4974 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4974) (CDR #:CONS4974) (GUARD1 (#:IT4975 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4975))))) (MATCH1 NIL ((GUARD1 #:IT5967 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5968 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5969 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4964 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4964)) (LET ((#:CONS4961 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:CONS4961)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4961) (LOCALLY (DECLARE (TYPE CONS #:CONS4961)) (LET ((#:IT4965 (CAR #:CONS4961))) (DECLARE (IGNORABLE #:IT4965)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4965 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT4965)) (LET ((#:IT4966 (CDR #:CONS4961))) (DECLARE (IGNORABLE #:IT4966)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4966) (LOCALLY (DECLARE (TYPE NULL #:IT4966)) (LET ((#:BIND4962 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:BIND4962)) (LET ((#:BIND4963 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:BIND4963)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4978 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4978 (GUARD1 (#:CONS4976 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4976) (CAR #:CONS4976) (GUARD1 (#:IT4979 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4979 'SINGLE-FLOAT)) (CDR #:CONS4976) (GUARD1 (#:CONS4980 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4980) (CDR #:CONS4980) (GUARD1 (#:IT4981 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4981))) #:INTERSECTION4978 (GUARD1 (#:BIND4977 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5970 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5971 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5972 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4964 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4964)) (LET ((#:CONS4961 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:CONS4961)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4961) (LOCALLY (DECLARE (TYPE CONS #:CONS4961)) (LET ((#:IT4965 (CAR #:CONS4961))) (DECLARE (IGNORABLE #:IT4965)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4965 'SINGLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SINGLE-FLOAT) #:IT4965)) (LET ((#:IT4966 (CDR #:CONS4961))) (DECLARE (IGNORABLE #:IT4966)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4966) (LOCALLY (DECLARE (TYPE NULL #:IT4966)) (LET ((#:BIND4962 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:BIND4962)) (LET ((#:BIND4963 #:INTERSECTION4964)) (DECLARE (IGNORABLE #:BIND4963)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION4985 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4985 (GUARD1 (#:CONS4982 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4982) (CAR #:CONS4982) (GUARD1 (#:IT4986 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT4986 'SINGLE-FLOAT)) (CDR #:CONS4982) (GUARD1 (#:IT4987 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4987)) #:INTERSECTION4985 (GUARD1 (#:BIND4983 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION4985 (GUARD1 (#:BIND4984 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5973 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5974 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5975 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4991 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4991)) (LET ((#:IT4988 #:INTERSECTION4991)) (DECLARE (IGNORABLE #:IT4988)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4988 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT4988)) (LET ((#:BIND4989 #:INTERSECTION4991)) (DECLARE (IGNORABLE #:BIND4989)) (LET ((#:BIND4990 #:INTERSECTION4991)) (DECLARE (IGNORABLE #:BIND4990)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5012 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5012 (GUARD1 (#:IT5009 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5009 'DOUBLE-FLOAT) #:INTERSECTION5012 (GUARD1 (#:BIND5010 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5012 (GUARD1 (#:BIND5011 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5976 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5977 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5978 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4991 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4991)) (LET ((#:IT4988 #:INTERSECTION4991)) (DECLARE (IGNORABLE #:IT4988)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4988 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT4988)) (LET ((#:BIND4989 #:INTERSECTION4991)) (DECLARE (IGNORABLE #:BIND4989)) (LET ((#:BIND4990 #:INTERSECTION4991)) (DECLARE (IGNORABLE #:BIND4990)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS5013 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5013) (CAR #:CONS5013) (GUARD1 (#:IT5014 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5014 'DOUBLE-FLOAT)) (CDR #:CONS5013) (GUARD1 (#:CONS5015 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5015) (CDR #:CONS5015) (GUARD1 (#:CONS5016 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5016) (CDR #:CONS5016) (GUARD1 (#:IT5017 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5017))))) (GUARD1 (#:INTERSECTION5020 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5020 (GUARD1 (#:CONS5018 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5018) (CAR #:CONS5018) (GUARD1 (#:IT5021 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5021 'DOUBLE-FLOAT)) (CDR #:CONS5018) (GUARD1 (#:CONS5022 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5022) (CDR #:CONS5022) (GUARD1 (#:IT5023 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5023))) #:INTERSECTION5020 (GUARD1 (#:BIND5019 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5027 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5027 (GUARD1 (#:CONS5024 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5024) (CAR #:CONS5024) (GUARD1 (#:IT5028 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5028 'DOUBLE-FLOAT)) (CDR #:CONS5024) (GUARD1 (#:IT5029 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5029)) #:INTERSECTION5027 (GUARD1 (#:BIND5025 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5027 (GUARD1 (#:BIND5026 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT5979 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5980 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5981 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS4992 #:WHAT16458)) (DECLARE (IGNORABLE #:CONS4992)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4992) (LOCALLY (DECLARE (TYPE CONS #:CONS4992)) (LET ((#:IT4993 (CAR #:CONS4992))) (DECLARE (IGNORABLE #:IT4993)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT4993 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT4993)) (LET ((#:CONS4994 (CDR #:CONS4992))) (DECLARE (IGNORABLE #:CONS4994)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4994) (LOCALLY (DECLARE (TYPE CONS #:CONS4994)) (LET ((#:CONS4995 (CDR #:CONS4994))) (DECLARE (IGNORABLE #:CONS4995)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4995) (LOCALLY (DECLARE (TYPE CONS #:CONS4995)) (LET ((#:IT4996 (CDR #:CONS4995))) (DECLARE (IGNORABLE #:IT4996)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT4996) (LOCALLY (DECLARE (TYPE NULL #:IT4996)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5012 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5012 (GUARD1 (#:IT5009 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5009 'DOUBLE-FLOAT) #:INTERSECTION5012 (GUARD1 (#:BIND5010 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5012 (GUARD1 (#:BIND5011 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5982 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5983 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5984 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4999 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4999)) (LET ((#:CONS4997 #:INTERSECTION4999)) (DECLARE (IGNORABLE #:CONS4997)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4997) (LOCALLY (DECLARE (TYPE CONS #:CONS4997)) (LET ((#:IT5000 (CAR #:CONS4997))) (DECLARE (IGNORABLE #:IT5000)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5000 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT5000)) (LET ((#:CONS5001 (CDR #:CONS4997))) (DECLARE (IGNORABLE #:CONS5001)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5001) (LOCALLY (DECLARE (TYPE CONS #:CONS5001)) (LET ((#:IT5002 (CDR #:CONS5001))) (DECLARE (IGNORABLE #:IT5002)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5002) (LOCALLY (DECLARE (TYPE NULL #:IT5002)) (LET ((#:BIND4998 #:INTERSECTION4999)) (DECLARE (IGNORABLE #:BIND4998)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5012 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5012 (GUARD1 (#:IT5009 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5009 'DOUBLE-FLOAT) #:INTERSECTION5012 (GUARD1 (#:BIND5010 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5012 (GUARD1 (#:BIND5011 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5985 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5986 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5987 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5006 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5006)) (LET ((#:CONS5003 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:CONS5003)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5003) (LOCALLY (DECLARE (TYPE CONS #:CONS5003)) (LET ((#:IT5007 (CAR #:CONS5003))) (DECLARE (IGNORABLE #:IT5007)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5007 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT5007)) (LET ((#:IT5008 (CDR #:CONS5003))) (DECLARE (IGNORABLE #:IT5008)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5008) (LOCALLY (DECLARE (TYPE NULL #:IT5008)) (LET ((#:BIND5004 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:BIND5004)) (LET ((#:BIND5005 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:BIND5005)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5012 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5012 (GUARD1 (#:IT5009 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5009 'DOUBLE-FLOAT) #:INTERSECTION5012 (GUARD1 (#:BIND5010 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5012 (GUARD1 (#:BIND5011 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT5988 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5989 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5990 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5541 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5541)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5541) (LOCALLY (DECLARE (TYPE CONS #:FUSION5541)) (LET ((#:CONS4992 #:FUSION5541)) (DECLARE (IGNORABLE #:CONS4992)) (LOCALLY (DECLARE (TYPE CONS #:CONS4992)) (LET ((#:GEN5542 (CAR #:FUSION5541))) (DECLARE (IGNORABLE #:GEN5542)) (LET ((#:GEN5543 (CDR #:FUSION5541))) (DECLARE (IGNORABLE #:GEN5543)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5544 T) (MATCH1 NIL ((GUARD1 #:IT5991 T) (MATCH2*+ (#:GEN5542 #:GEN5543 #:PAT5544) (T T T) (((GUARD1 (#:IT4993 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT4993 'DOUBLE-FLOAT)) (GUARD1 (#:CONS4994 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4994) (CDR #:CONS4994) (GUARD1 (#:CONS4995 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4995) (CDR #:CONS4995) (GUARD1 (#:IT4996 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4996)))) (GUARD1 (#:CONS5013 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5013) (CAR #:CONS5013) (GUARD1 (#:IT5014 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5014 'DOUBLE-FLOAT)) (CDR #:CONS5013) (GUARD1 (#:CONS5015 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5015) (CDR #:CONS5015) (GUARD1 (#:CONS5016 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5016) (CDR #:CONS5016) (GUARD1 (#:IT5017 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5017)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4993 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT4993 'DOUBLE-FLOAT)) (GUARD1 (#:CONS4994 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4994) (CDR #:CONS4994) (GUARD1 (#:CONS4995 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4995) (CDR #:CONS4995) (GUARD1 (#:IT4996 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4996)))) (GUARD1 (#:INTERSECTION5020 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5020 (GUARD1 (#:CONS5018 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5018) (CAR #:CONS5018) (GUARD1 (#:IT5021 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5021 'DOUBLE-FLOAT)) (CDR #:CONS5018) (GUARD1 (#:CONS5022 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5022) (CDR #:CONS5022) (GUARD1 (#:IT5023 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5023))) #:INTERSECTION5020 (GUARD1 (#:BIND5019 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT4993 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT4993 'DOUBLE-FLOAT)) (GUARD1 (#:CONS4994 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4994) (CDR #:CONS4994) (GUARD1 (#:CONS4995 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS4995) (CDR #:CONS4995) (GUARD1 (#:IT4996 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT4996)))) (GUARD1 (#:INTERSECTION5027 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5027 (GUARD1 (#:CONS5024 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5024) (CAR #:CONS5024) (GUARD1 (#:IT5028 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5028 'DOUBLE-FLOAT)) (CDR #:CONS5024) (GUARD1 (#:IT5029 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5029)) #:INTERSECTION5027 (GUARD1 (#:BIND5025 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5027 (GUARD1 (#:BIND5026 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT5992 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5993 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4999 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4999)) (LET ((#:CONS4997 #:INTERSECTION4999)) (DECLARE (IGNORABLE #:CONS4997)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4997) (LOCALLY (DECLARE (TYPE CONS #:CONS4997)) (LET ((#:IT5000 (CAR #:CONS4997))) (DECLARE (IGNORABLE #:IT5000)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5000 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT5000)) (LET ((#:CONS5001 (CDR #:CONS4997))) (DECLARE (IGNORABLE #:CONS5001)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5001) (LOCALLY (DECLARE (TYPE CONS #:CONS5001)) (LET ((#:IT5002 (CDR #:CONS5001))) (DECLARE (IGNORABLE #:IT5002)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5002) (LOCALLY (DECLARE (TYPE NULL #:IT5002)) (LET ((#:BIND4998 #:INTERSECTION4999)) (DECLARE (IGNORABLE #:BIND4998)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:CONS5013 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5013) (CAR #:CONS5013) (GUARD1 (#:IT5014 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5014 'DOUBLE-FLOAT)) (CDR #:CONS5013) (GUARD1 (#:CONS5015 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5015) (CDR #:CONS5015) (GUARD1 (#:CONS5016 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5016) (CDR #:CONS5016) (GUARD1 (#:IT5017 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5017))))) (MATCH1 NIL ((GUARD1 #:IT5994 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5995 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5996 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4999 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4999)) (LET ((#:CONS4997 #:INTERSECTION4999)) (DECLARE (IGNORABLE #:CONS4997)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4997) (LOCALLY (DECLARE (TYPE CONS #:CONS4997)) (LET ((#:IT5000 (CAR #:CONS4997))) (DECLARE (IGNORABLE #:IT5000)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5000 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT5000)) (LET ((#:CONS5001 (CDR #:CONS4997))) (DECLARE (IGNORABLE #:CONS5001)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5001) (LOCALLY (DECLARE (TYPE CONS #:CONS5001)) (LET ((#:IT5002 (CDR #:CONS5001))) (DECLARE (IGNORABLE #:IT5002)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5002) (LOCALLY (DECLARE (TYPE NULL #:IT5002)) (LET ((#:BIND4998 #:INTERSECTION4999)) (DECLARE (IGNORABLE #:BIND4998)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5020 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5020 (GUARD1 (#:CONS5018 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5018) (CAR #:CONS5018) (GUARD1 (#:IT5021 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5021 'DOUBLE-FLOAT)) (CDR #:CONS5018) (GUARD1 (#:CONS5022 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5022) (CDR #:CONS5022) (GUARD1 (#:IT5023 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5023))) #:INTERSECTION5020 (GUARD1 (#:BIND5019 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT5997 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT5998 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT5999 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION4999 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION4999)) (LET ((#:CONS4997 #:INTERSECTION4999)) (DECLARE (IGNORABLE #:CONS4997)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS4997) (LOCALLY (DECLARE (TYPE CONS #:CONS4997)) (LET ((#:IT5000 (CAR #:CONS4997))) (DECLARE (IGNORABLE #:IT5000)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5000 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT5000)) (LET ((#:CONS5001 (CDR #:CONS4997))) (DECLARE (IGNORABLE #:CONS5001)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5001) (LOCALLY (DECLARE (TYPE CONS #:CONS5001)) (LET ((#:IT5002 (CDR #:CONS5001))) (DECLARE (IGNORABLE #:IT5002)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5002) (LOCALLY (DECLARE (TYPE NULL #:IT5002)) (LET ((#:BIND4998 #:INTERSECTION4999)) (DECLARE (IGNORABLE #:BIND4998)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5027 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5027 (GUARD1 (#:CONS5024 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5024) (CAR #:CONS5024) (GUARD1 (#:IT5028 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5028 'DOUBLE-FLOAT)) (CDR #:CONS5024) (GUARD1 (#:IT5029 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5029)) #:INTERSECTION5027 (GUARD1 (#:BIND5025 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5027 (GUARD1 (#:BIND5026 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6000 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6001 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6002 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5006 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5006)) (LET ((#:CONS5003 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:CONS5003)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5003) (LOCALLY (DECLARE (TYPE CONS #:CONS5003)) (LET ((#:IT5007 (CAR #:CONS5003))) (DECLARE (IGNORABLE #:IT5007)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5007 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT5007)) (LET ((#:IT5008 (CDR #:CONS5003))) (DECLARE (IGNORABLE #:IT5008)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5008) (LOCALLY (DECLARE (TYPE NULL #:IT5008)) (LET ((#:BIND5004 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:BIND5004)) (LET ((#:BIND5005 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:BIND5005)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:CONS5013 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5013) (CAR #:CONS5013) (GUARD1 (#:IT5014 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5014 'DOUBLE-FLOAT)) (CDR #:CONS5013) (GUARD1 (#:CONS5015 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5015) (CDR #:CONS5015) (GUARD1 (#:CONS5016 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5016) (CDR #:CONS5016) (GUARD1 (#:IT5017 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5017))))) (MATCH1 NIL ((GUARD1 #:IT6003 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6004 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6005 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5006 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5006)) (LET ((#:CONS5003 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:CONS5003)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5003) (LOCALLY (DECLARE (TYPE CONS #:CONS5003)) (LET ((#:IT5007 (CAR #:CONS5003))) (DECLARE (IGNORABLE #:IT5007)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5007 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT5007)) (LET ((#:IT5008 (CDR #:CONS5003))) (DECLARE (IGNORABLE #:IT5008)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5008) (LOCALLY (DECLARE (TYPE NULL #:IT5008)) (LET ((#:BIND5004 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:BIND5004)) (LET ((#:BIND5005 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:BIND5005)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5020 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5020 (GUARD1 (#:CONS5018 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5018) (CAR #:CONS5018) (GUARD1 (#:IT5021 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5021 'DOUBLE-FLOAT)) (CDR #:CONS5018) (GUARD1 (#:CONS5022 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5022) (CDR #:CONS5022) (GUARD1 (#:IT5023 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5023))) #:INTERSECTION5020 (GUARD1 (#:BIND5019 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6006 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6007 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6008 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5006 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5006)) (LET ((#:CONS5003 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:CONS5003)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5003) (LOCALLY (DECLARE (TYPE CONS #:CONS5003)) (LET ((#:IT5007 (CAR #:CONS5003))) (DECLARE (IGNORABLE #:IT5007)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5007 'DOUBLE-FLOAT) (LOCALLY (DECLARE (TYPE (EQL DOUBLE-FLOAT) #:IT5007)) (LET ((#:IT5008 (CDR #:CONS5003))) (DECLARE (IGNORABLE #:IT5008)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5008) (LOCALLY (DECLARE (TYPE NULL #:IT5008)) (LET ((#:BIND5004 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:BIND5004)) (LET ((#:BIND5005 #:INTERSECTION5006)) (DECLARE (IGNORABLE #:BIND5005)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5027 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5027 (GUARD1 (#:CONS5024 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5024) (CAR #:CONS5024) (GUARD1 (#:IT5028 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5028 'DOUBLE-FLOAT)) (CDR #:CONS5024) (GUARD1 (#:IT5029 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5029)) #:INTERSECTION5027 (GUARD1 (#:BIND5025 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5027 (GUARD1 (#:BIND5026 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6009 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6010 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6011 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5033 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5033)) (LET ((#:IT5030 #:INTERSECTION5033)) (DECLARE (IGNORABLE #:IT5030)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5030 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT5030)) (LET ((#:BIND5031 #:INTERSECTION5033)) (DECLARE (IGNORABLE #:BIND5031)) (LET ((#:BIND5032 #:INTERSECTION5033)) (DECLARE (IGNORABLE #:BIND5032)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5054 (GUARD1 (#:IT5051 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5051 'LONG-FLOAT) #:INTERSECTION5054 (GUARD1 (#:BIND5052 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5054 (GUARD1 (#:BIND5053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6012 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6013 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6014 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5033 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5033)) (LET ((#:IT5030 #:INTERSECTION5033)) (DECLARE (IGNORABLE #:IT5030)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5030 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT5030)) (LET ((#:BIND5031 #:INTERSECTION5033)) (DECLARE (IGNORABLE #:BIND5031)) (LET ((#:BIND5032 #:INTERSECTION5033)) (DECLARE (IGNORABLE #:BIND5032)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS5055 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5055) (CAR #:CONS5055) (GUARD1 (#:IT5056 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5056 'LONG-FLOAT)) (CDR #:CONS5055) (GUARD1 (#:CONS5057 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5057) (CDR #:CONS5057) (GUARD1 (#:CONS5058 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5058) (CDR #:CONS5058) (GUARD1 (#:IT5059 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5059))))) (GUARD1 (#:INTERSECTION5062 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5062 (GUARD1 (#:CONS5060 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5060) (CAR #:CONS5060) (GUARD1 (#:IT5063 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5063 'LONG-FLOAT)) (CDR #:CONS5060) (GUARD1 (#:CONS5064 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5064) (CDR #:CONS5064) (GUARD1 (#:IT5065 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5065))) #:INTERSECTION5062 (GUARD1 (#:BIND5061 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5069 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5069 (GUARD1 (#:CONS5066 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5066) (CAR #:CONS5066) (GUARD1 (#:IT5070 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5070 'LONG-FLOAT)) (CDR #:CONS5066) (GUARD1 (#:IT5071 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5071)) #:INTERSECTION5069 (GUARD1 (#:BIND5067 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5069 (GUARD1 (#:BIND5068 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6015 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6016 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6017 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS5034 #:WHAT16458)) (DECLARE (IGNORABLE #:CONS5034)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5034) (LOCALLY (DECLARE (TYPE CONS #:CONS5034)) (LET ((#:IT5035 (CAR #:CONS5034))) (DECLARE (IGNORABLE #:IT5035)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5035 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT5035)) (LET ((#:CONS5036 (CDR #:CONS5034))) (DECLARE (IGNORABLE #:CONS5036)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5036) (LOCALLY (DECLARE (TYPE CONS #:CONS5036)) (LET ((#:CONS5037 (CDR #:CONS5036))) (DECLARE (IGNORABLE #:CONS5037)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5037) (LOCALLY (DECLARE (TYPE CONS #:CONS5037)) (LET ((#:IT5038 (CDR #:CONS5037))) (DECLARE (IGNORABLE #:IT5038)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5038) (LOCALLY (DECLARE (TYPE NULL #:IT5038)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5054 (GUARD1 (#:IT5051 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5051 'LONG-FLOAT) #:INTERSECTION5054 (GUARD1 (#:BIND5052 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5054 (GUARD1 (#:BIND5053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6018 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6019 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6020 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5041 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5041)) (LET ((#:CONS5039 #:INTERSECTION5041)) (DECLARE (IGNORABLE #:CONS5039)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5039) (LOCALLY (DECLARE (TYPE CONS #:CONS5039)) (LET ((#:IT5042 (CAR #:CONS5039))) (DECLARE (IGNORABLE #:IT5042)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5042 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT5042)) (LET ((#:CONS5043 (CDR #:CONS5039))) (DECLARE (IGNORABLE #:CONS5043)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5043) (LOCALLY (DECLARE (TYPE CONS #:CONS5043)) (LET ((#:IT5044 (CDR #:CONS5043))) (DECLARE (IGNORABLE #:IT5044)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5044) (LOCALLY (DECLARE (TYPE NULL #:IT5044)) (LET ((#:BIND5040 #:INTERSECTION5041)) (DECLARE (IGNORABLE #:BIND5040)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5054 (GUARD1 (#:IT5051 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5051 'LONG-FLOAT) #:INTERSECTION5054 (GUARD1 (#:BIND5052 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5054 (GUARD1 (#:BIND5053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6021 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6022 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6023 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5048 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5048)) (LET ((#:CONS5045 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:CONS5045)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5045) (LOCALLY (DECLARE (TYPE CONS #:CONS5045)) (LET ((#:IT5049 (CAR #:CONS5045))) (DECLARE (IGNORABLE #:IT5049)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5049 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT5049)) (LET ((#:IT5050 (CDR #:CONS5045))) (DECLARE (IGNORABLE #:IT5050)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5050) (LOCALLY (DECLARE (TYPE NULL #:IT5050)) (LET ((#:BIND5046 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:BIND5046)) (LET ((#:BIND5047 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:BIND5047)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5054 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5054 (GUARD1 (#:IT5051 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5051 'LONG-FLOAT) #:INTERSECTION5054 (GUARD1 (#:BIND5052 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5054 (GUARD1 (#:BIND5053 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6024 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6025 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6026 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5551 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5551)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5551) (LOCALLY (DECLARE (TYPE CONS #:FUSION5551)) (LET ((#:CONS5034 #:FUSION5551)) (DECLARE (IGNORABLE #:CONS5034)) (LOCALLY (DECLARE (TYPE CONS #:CONS5034)) (LET ((#:GEN5552 (CAR #:FUSION5551))) (DECLARE (IGNORABLE #:GEN5552)) (LET ((#:GEN5553 (CDR #:FUSION5551))) (DECLARE (IGNORABLE #:GEN5553)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5554 T) (MATCH1 NIL ((GUARD1 #:IT6027 T) (MATCH2*+ (#:GEN5552 #:GEN5553 #:PAT5554) (T T T) (((GUARD1 (#:IT5035 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5035 'LONG-FLOAT)) (GUARD1 (#:CONS5036 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5036) (CDR #:CONS5036) (GUARD1 (#:CONS5037 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5037) (CDR #:CONS5037) (GUARD1 (#:IT5038 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5038)))) (GUARD1 (#:CONS5055 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5055) (CAR #:CONS5055) (GUARD1 (#:IT5056 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5056 'LONG-FLOAT)) (CDR #:CONS5055) (GUARD1 (#:CONS5057 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5057) (CDR #:CONS5057) (GUARD1 (#:CONS5058 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5058) (CDR #:CONS5058) (GUARD1 (#:IT5059 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5059)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5035 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5035 'LONG-FLOAT)) (GUARD1 (#:CONS5036 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5036) (CDR #:CONS5036) (GUARD1 (#:CONS5037 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5037) (CDR #:CONS5037) (GUARD1 (#:IT5038 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5038)))) (GUARD1 (#:INTERSECTION5062 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5062 (GUARD1 (#:CONS5060 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5060) (CAR #:CONS5060) (GUARD1 (#:IT5063 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5063 'LONG-FLOAT)) (CDR #:CONS5060) (GUARD1 (#:CONS5064 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5064) (CDR #:CONS5064) (GUARD1 (#:IT5065 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5065))) #:INTERSECTION5062 (GUARD1 (#:BIND5061 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5035 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5035 'LONG-FLOAT)) (GUARD1 (#:CONS5036 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5036) (CDR #:CONS5036) (GUARD1 (#:CONS5037 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5037) (CDR #:CONS5037) (GUARD1 (#:IT5038 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5038)))) (GUARD1 (#:INTERSECTION5069 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5069 (GUARD1 (#:CONS5066 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5066) (CAR #:CONS5066) (GUARD1 (#:IT5070 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5070 'LONG-FLOAT)) (CDR #:CONS5066) (GUARD1 (#:IT5071 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5071)) #:INTERSECTION5069 (GUARD1 (#:BIND5067 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5069 (GUARD1 (#:BIND5068 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6028 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6029 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5041 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5041)) (LET ((#:CONS5039 #:INTERSECTION5041)) (DECLARE (IGNORABLE #:CONS5039)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5039) (LOCALLY (DECLARE (TYPE CONS #:CONS5039)) (LET ((#:IT5042 (CAR #:CONS5039))) (DECLARE (IGNORABLE #:IT5042)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5042 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT5042)) (LET ((#:CONS5043 (CDR #:CONS5039))) (DECLARE (IGNORABLE #:CONS5043)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5043) (LOCALLY (DECLARE (TYPE CONS #:CONS5043)) (LET ((#:IT5044 (CDR #:CONS5043))) (DECLARE (IGNORABLE #:IT5044)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5044) (LOCALLY (DECLARE (TYPE NULL #:IT5044)) (LET ((#:BIND5040 #:INTERSECTION5041)) (DECLARE (IGNORABLE #:BIND5040)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:CONS5055 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5055) (CAR #:CONS5055) (GUARD1 (#:IT5056 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5056 'LONG-FLOAT)) (CDR #:CONS5055) (GUARD1 (#:CONS5057 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5057) (CDR #:CONS5057) (GUARD1 (#:CONS5058 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5058) (CDR #:CONS5058) (GUARD1 (#:IT5059 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5059))))) (MATCH1 NIL ((GUARD1 #:IT6030 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6031 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6032 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5041 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5041)) (LET ((#:CONS5039 #:INTERSECTION5041)) (DECLARE (IGNORABLE #:CONS5039)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5039) (LOCALLY (DECLARE (TYPE CONS #:CONS5039)) (LET ((#:IT5042 (CAR #:CONS5039))) (DECLARE (IGNORABLE #:IT5042)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5042 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT5042)) (LET ((#:CONS5043 (CDR #:CONS5039))) (DECLARE (IGNORABLE #:CONS5043)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5043) (LOCALLY (DECLARE (TYPE CONS #:CONS5043)) (LET ((#:IT5044 (CDR #:CONS5043))) (DECLARE (IGNORABLE #:IT5044)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5044) (LOCALLY (DECLARE (TYPE NULL #:IT5044)) (LET ((#:BIND5040 #:INTERSECTION5041)) (DECLARE (IGNORABLE #:BIND5040)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5062 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5062 (GUARD1 (#:CONS5060 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5060) (CAR #:CONS5060) (GUARD1 (#:IT5063 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5063 'LONG-FLOAT)) (CDR #:CONS5060) (GUARD1 (#:CONS5064 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5064) (CDR #:CONS5064) (GUARD1 (#:IT5065 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5065))) #:INTERSECTION5062 (GUARD1 (#:BIND5061 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6033 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6034 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6035 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5041 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5041)) (LET ((#:CONS5039 #:INTERSECTION5041)) (DECLARE (IGNORABLE #:CONS5039)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5039) (LOCALLY (DECLARE (TYPE CONS #:CONS5039)) (LET ((#:IT5042 (CAR #:CONS5039))) (DECLARE (IGNORABLE #:IT5042)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5042 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT5042)) (LET ((#:CONS5043 (CDR #:CONS5039))) (DECLARE (IGNORABLE #:CONS5043)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5043) (LOCALLY (DECLARE (TYPE CONS #:CONS5043)) (LET ((#:IT5044 (CDR #:CONS5043))) (DECLARE (IGNORABLE #:IT5044)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5044) (LOCALLY (DECLARE (TYPE NULL #:IT5044)) (LET ((#:BIND5040 #:INTERSECTION5041)) (DECLARE (IGNORABLE #:BIND5040)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5069 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5069 (GUARD1 (#:CONS5066 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5066) (CAR #:CONS5066) (GUARD1 (#:IT5070 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5070 'LONG-FLOAT)) (CDR #:CONS5066) (GUARD1 (#:IT5071 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5071)) #:INTERSECTION5069 (GUARD1 (#:BIND5067 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5069 (GUARD1 (#:BIND5068 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6036 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6037 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6038 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5048 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5048)) (LET ((#:CONS5045 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:CONS5045)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5045) (LOCALLY (DECLARE (TYPE CONS #:CONS5045)) (LET ((#:IT5049 (CAR #:CONS5045))) (DECLARE (IGNORABLE #:IT5049)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5049 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT5049)) (LET ((#:IT5050 (CDR #:CONS5045))) (DECLARE (IGNORABLE #:IT5050)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5050) (LOCALLY (DECLARE (TYPE NULL #:IT5050)) (LET ((#:BIND5046 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:BIND5046)) (LET ((#:BIND5047 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:BIND5047)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:CONS5055 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5055) (CAR #:CONS5055) (GUARD1 (#:IT5056 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5056 'LONG-FLOAT)) (CDR #:CONS5055) (GUARD1 (#:CONS5057 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5057) (CDR #:CONS5057) (GUARD1 (#:CONS5058 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5058) (CDR #:CONS5058) (GUARD1 (#:IT5059 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5059))))) (MATCH1 NIL ((GUARD1 #:IT6039 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6040 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6041 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5048 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5048)) (LET ((#:CONS5045 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:CONS5045)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5045) (LOCALLY (DECLARE (TYPE CONS #:CONS5045)) (LET ((#:IT5049 (CAR #:CONS5045))) (DECLARE (IGNORABLE #:IT5049)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5049 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT5049)) (LET ((#:IT5050 (CDR #:CONS5045))) (DECLARE (IGNORABLE #:IT5050)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5050) (LOCALLY (DECLARE (TYPE NULL #:IT5050)) (LET ((#:BIND5046 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:BIND5046)) (LET ((#:BIND5047 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:BIND5047)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5062 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5062 (GUARD1 (#:CONS5060 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5060) (CAR #:CONS5060) (GUARD1 (#:IT5063 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5063 'LONG-FLOAT)) (CDR #:CONS5060) (GUARD1 (#:CONS5064 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5064) (CDR #:CONS5064) (GUARD1 (#:IT5065 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5065))) #:INTERSECTION5062 (GUARD1 (#:BIND5061 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6042 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6043 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6044 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5048 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5048)) (LET ((#:CONS5045 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:CONS5045)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5045) (LOCALLY (DECLARE (TYPE CONS #:CONS5045)) (LET ((#:IT5049 (CAR #:CONS5045))) (DECLARE (IGNORABLE #:IT5049)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5049 'LONG-FLOAT) (LOCALLY (DECLARE (TYPE (EQL LONG-FLOAT) #:IT5049)) (LET ((#:IT5050 (CDR #:CONS5045))) (DECLARE (IGNORABLE #:IT5050)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5050) (LOCALLY (DECLARE (TYPE NULL #:IT5050)) (LET ((#:BIND5046 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:BIND5046)) (LET ((#:BIND5047 #:INTERSECTION5048)) (DECLARE (IGNORABLE #:BIND5047)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5069 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5069 (GUARD1 (#:CONS5066 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5066) (CAR #:CONS5066) (GUARD1 (#:IT5070 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5070 'LONG-FLOAT)) (CDR #:CONS5066) (GUARD1 (#:IT5071 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5071)) #:INTERSECTION5069 (GUARD1 (#:BIND5067 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5069 (GUARD1 (#:BIND5068 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6045 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6046 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6047 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5075 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5075)) (LET ((#:IT5072 #:INTERSECTION5075)) (DECLARE (IGNORABLE #:IT5072)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5072 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT5072)) (LET ((#:BIND5073 #:INTERSECTION5075)) (DECLARE (IGNORABLE #:BIND5073)) (LET ((#:BIND5074 #:INTERSECTION5075)) (DECLARE (IGNORABLE #:BIND5074)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5096 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5096 (GUARD1 (#:IT5093 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5093 'SHORT-FLOAT) #:INTERSECTION5096 (GUARD1 (#:BIND5094 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5096 (GUARD1 (#:BIND5095 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6048 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6049 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6050 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5075 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5075)) (LET ((#:IT5072 #:INTERSECTION5075)) (DECLARE (IGNORABLE #:IT5072)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5072 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT5072)) (LET ((#:BIND5073 #:INTERSECTION5075)) (DECLARE (IGNORABLE #:BIND5073)) (LET ((#:BIND5074 #:INTERSECTION5075)) (DECLARE (IGNORABLE #:BIND5074)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS5097 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5097) (CAR #:CONS5097) (GUARD1 (#:IT5098 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5098 'SHORT-FLOAT)) (CDR #:CONS5097) (GUARD1 (#:CONS5099 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5099) (CDR #:CONS5099) (GUARD1 (#:CONS5100 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5100) (CDR #:CONS5100) (GUARD1 (#:IT5101 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5101))))) (GUARD1 (#:INTERSECTION5104 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5104 (GUARD1 (#:CONS5102 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5102) (CAR #:CONS5102) (GUARD1 (#:IT5105 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5105 'SHORT-FLOAT)) (CDR #:CONS5102) (GUARD1 (#:CONS5106 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5106) (CDR #:CONS5106) (GUARD1 (#:IT5107 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5107))) #:INTERSECTION5104 (GUARD1 (#:BIND5103 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5111 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5111 (GUARD1 (#:CONS5108 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5108) (CAR #:CONS5108) (GUARD1 (#:IT5112 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5112 'SHORT-FLOAT)) (CDR #:CONS5108) (GUARD1 (#:IT5113 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5113)) #:INTERSECTION5111 (GUARD1 (#:BIND5109 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5111 (GUARD1 (#:BIND5110 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6051 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6052 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6053 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS5076 #:WHAT16458)) (DECLARE (IGNORABLE #:CONS5076)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5076) (LOCALLY (DECLARE (TYPE CONS #:CONS5076)) (LET ((#:IT5077 (CAR #:CONS5076))) (DECLARE (IGNORABLE #:IT5077)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5077 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT5077)) (LET ((#:CONS5078 (CDR #:CONS5076))) (DECLARE (IGNORABLE #:CONS5078)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5078) (LOCALLY (DECLARE (TYPE CONS #:CONS5078)) (LET ((#:CONS5079 (CDR #:CONS5078))) (DECLARE (IGNORABLE #:CONS5079)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5079) (LOCALLY (DECLARE (TYPE CONS #:CONS5079)) (LET ((#:IT5080 (CDR #:CONS5079))) (DECLARE (IGNORABLE #:IT5080)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5080) (LOCALLY (DECLARE (TYPE NULL #:IT5080)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5096 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5096 (GUARD1 (#:IT5093 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5093 'SHORT-FLOAT) #:INTERSECTION5096 (GUARD1 (#:BIND5094 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5096 (GUARD1 (#:BIND5095 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6054 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6055 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6056 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5083 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5083)) (LET ((#:CONS5081 #:INTERSECTION5083)) (DECLARE (IGNORABLE #:CONS5081)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5081) (LOCALLY (DECLARE (TYPE CONS #:CONS5081)) (LET ((#:IT5084 (CAR #:CONS5081))) (DECLARE (IGNORABLE #:IT5084)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5084 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT5084)) (LET ((#:CONS5085 (CDR #:CONS5081))) (DECLARE (IGNORABLE #:CONS5085)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5085) (LOCALLY (DECLARE (TYPE CONS #:CONS5085)) (LET ((#:IT5086 (CDR #:CONS5085))) (DECLARE (IGNORABLE #:IT5086)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5086) (LOCALLY (DECLARE (TYPE NULL #:IT5086)) (LET ((#:BIND5082 #:INTERSECTION5083)) (DECLARE (IGNORABLE #:BIND5082)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5096 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5096 (GUARD1 (#:IT5093 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5093 'SHORT-FLOAT) #:INTERSECTION5096 (GUARD1 (#:BIND5094 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5096 (GUARD1 (#:BIND5095 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6057 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6058 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6059 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5090 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5090)) (LET ((#:CONS5087 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:CONS5087)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5087) (LOCALLY (DECLARE (TYPE CONS #:CONS5087)) (LET ((#:IT5091 (CAR #:CONS5087))) (DECLARE (IGNORABLE #:IT5091)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5091 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT5091)) (LET ((#:IT5092 (CDR #:CONS5087))) (DECLARE (IGNORABLE #:IT5092)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5092) (LOCALLY (DECLARE (TYPE NULL #:IT5092)) (LET ((#:BIND5088 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:BIND5088)) (LET ((#:BIND5089 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:BIND5089)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5096 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5096 (GUARD1 (#:IT5093 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5093 'SHORT-FLOAT) #:INTERSECTION5096 (GUARD1 (#:BIND5094 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5096 (GUARD1 (#:BIND5095 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6060 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6061 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6062 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5561 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5561)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5561) (LOCALLY (DECLARE (TYPE CONS #:FUSION5561)) (LET ((#:CONS5076 #:FUSION5561)) (DECLARE (IGNORABLE #:CONS5076)) (LOCALLY (DECLARE (TYPE CONS #:CONS5076)) (LET ((#:GEN5562 (CAR #:FUSION5561))) (DECLARE (IGNORABLE #:GEN5562)) (LET ((#:GEN5563 (CDR #:FUSION5561))) (DECLARE (IGNORABLE #:GEN5563)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5564 T) (MATCH1 NIL ((GUARD1 #:IT6063 T) (MATCH2*+ (#:GEN5562 #:GEN5563 #:PAT5564) (T T T) (((GUARD1 (#:IT5077 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5077 'SHORT-FLOAT)) (GUARD1 (#:CONS5078 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5078) (CDR #:CONS5078) (GUARD1 (#:CONS5079 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5079) (CDR #:CONS5079) (GUARD1 (#:IT5080 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5080)))) (GUARD1 (#:CONS5097 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5097) (CAR #:CONS5097) (GUARD1 (#:IT5098 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5098 'SHORT-FLOAT)) (CDR #:CONS5097) (GUARD1 (#:CONS5099 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5099) (CDR #:CONS5099) (GUARD1 (#:CONS5100 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5100) (CDR #:CONS5100) (GUARD1 (#:IT5101 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5101)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5077 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5077 'SHORT-FLOAT)) (GUARD1 (#:CONS5078 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5078) (CDR #:CONS5078) (GUARD1 (#:CONS5079 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5079) (CDR #:CONS5079) (GUARD1 (#:IT5080 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5080)))) (GUARD1 (#:INTERSECTION5104 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5104 (GUARD1 (#:CONS5102 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5102) (CAR #:CONS5102) (GUARD1 (#:IT5105 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5105 'SHORT-FLOAT)) (CDR #:CONS5102) (GUARD1 (#:CONS5106 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5106) (CDR #:CONS5106) (GUARD1 (#:IT5107 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5107))) #:INTERSECTION5104 (GUARD1 (#:BIND5103 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5077 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5077 'SHORT-FLOAT)) (GUARD1 (#:CONS5078 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5078) (CDR #:CONS5078) (GUARD1 (#:CONS5079 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5079) (CDR #:CONS5079) (GUARD1 (#:IT5080 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5080)))) (GUARD1 (#:INTERSECTION5111 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5111 (GUARD1 (#:CONS5108 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5108) (CAR #:CONS5108) (GUARD1 (#:IT5112 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5112 'SHORT-FLOAT)) (CDR #:CONS5108) (GUARD1 (#:IT5113 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5113)) #:INTERSECTION5111 (GUARD1 (#:BIND5109 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5111 (GUARD1 (#:BIND5110 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6064 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6065 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5083 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5083)) (LET ((#:CONS5081 #:INTERSECTION5083)) (DECLARE (IGNORABLE #:CONS5081)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5081) (LOCALLY (DECLARE (TYPE CONS #:CONS5081)) (LET ((#:IT5084 (CAR #:CONS5081))) (DECLARE (IGNORABLE #:IT5084)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5084 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT5084)) (LET ((#:CONS5085 (CDR #:CONS5081))) (DECLARE (IGNORABLE #:CONS5085)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5085) (LOCALLY (DECLARE (TYPE CONS #:CONS5085)) (LET ((#:IT5086 (CDR #:CONS5085))) (DECLARE (IGNORABLE #:IT5086)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5086) (LOCALLY (DECLARE (TYPE NULL #:IT5086)) (LET ((#:BIND5082 #:INTERSECTION5083)) (DECLARE (IGNORABLE #:BIND5082)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:CONS5097 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5097) (CAR #:CONS5097) (GUARD1 (#:IT5098 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5098 'SHORT-FLOAT)) (CDR #:CONS5097) (GUARD1 (#:CONS5099 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5099) (CDR #:CONS5099) (GUARD1 (#:CONS5100 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5100) (CDR #:CONS5100) (GUARD1 (#:IT5101 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5101))))) (MATCH1 NIL ((GUARD1 #:IT6066 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6067 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6068 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5083 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5083)) (LET ((#:CONS5081 #:INTERSECTION5083)) (DECLARE (IGNORABLE #:CONS5081)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5081) (LOCALLY (DECLARE (TYPE CONS #:CONS5081)) (LET ((#:IT5084 (CAR #:CONS5081))) (DECLARE (IGNORABLE #:IT5084)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5084 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT5084)) (LET ((#:CONS5085 (CDR #:CONS5081))) (DECLARE (IGNORABLE #:CONS5085)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5085) (LOCALLY (DECLARE (TYPE CONS #:CONS5085)) (LET ((#:IT5086 (CDR #:CONS5085))) (DECLARE (IGNORABLE #:IT5086)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5086) (LOCALLY (DECLARE (TYPE NULL #:IT5086)) (LET ((#:BIND5082 #:INTERSECTION5083)) (DECLARE (IGNORABLE #:BIND5082)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5104 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5104 (GUARD1 (#:CONS5102 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5102) (CAR #:CONS5102) (GUARD1 (#:IT5105 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5105 'SHORT-FLOAT)) (CDR #:CONS5102) (GUARD1 (#:CONS5106 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5106) (CDR #:CONS5106) (GUARD1 (#:IT5107 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5107))) #:INTERSECTION5104 (GUARD1 (#:BIND5103 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6069 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6070 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6071 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5083 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5083)) (LET ((#:CONS5081 #:INTERSECTION5083)) (DECLARE (IGNORABLE #:CONS5081)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5081) (LOCALLY (DECLARE (TYPE CONS #:CONS5081)) (LET ((#:IT5084 (CAR #:CONS5081))) (DECLARE (IGNORABLE #:IT5084)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5084 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT5084)) (LET ((#:CONS5085 (CDR #:CONS5081))) (DECLARE (IGNORABLE #:CONS5085)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5085) (LOCALLY (DECLARE (TYPE CONS #:CONS5085)) (LET ((#:IT5086 (CDR #:CONS5085))) (DECLARE (IGNORABLE #:IT5086)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5086) (LOCALLY (DECLARE (TYPE NULL #:IT5086)) (LET ((#:BIND5082 #:INTERSECTION5083)) (DECLARE (IGNORABLE #:BIND5082)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5111 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5111 (GUARD1 (#:CONS5108 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5108) (CAR #:CONS5108) (GUARD1 (#:IT5112 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5112 'SHORT-FLOAT)) (CDR #:CONS5108) (GUARD1 (#:IT5113 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5113)) #:INTERSECTION5111 (GUARD1 (#:BIND5109 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5111 (GUARD1 (#:BIND5110 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6072 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6073 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6074 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5090 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5090)) (LET ((#:CONS5087 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:CONS5087)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5087) (LOCALLY (DECLARE (TYPE CONS #:CONS5087)) (LET ((#:IT5091 (CAR #:CONS5087))) (DECLARE (IGNORABLE #:IT5091)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5091 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT5091)) (LET ((#:IT5092 (CDR #:CONS5087))) (DECLARE (IGNORABLE #:IT5092)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5092) (LOCALLY (DECLARE (TYPE NULL #:IT5092)) (LET ((#:BIND5088 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:BIND5088)) (LET ((#:BIND5089 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:BIND5089)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:CONS5097 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5097) (CAR #:CONS5097) (GUARD1 (#:IT5098 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5098 'SHORT-FLOAT)) (CDR #:CONS5097) (GUARD1 (#:CONS5099 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5099) (CDR #:CONS5099) (GUARD1 (#:CONS5100 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5100) (CDR #:CONS5100) (GUARD1 (#:IT5101 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5101))))) (MATCH1 NIL ((GUARD1 #:IT6075 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6076 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6077 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5090 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5090)) (LET ((#:CONS5087 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:CONS5087)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5087) (LOCALLY (DECLARE (TYPE CONS #:CONS5087)) (LET ((#:IT5091 (CAR #:CONS5087))) (DECLARE (IGNORABLE #:IT5091)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5091 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT5091)) (LET ((#:IT5092 (CDR #:CONS5087))) (DECLARE (IGNORABLE #:IT5092)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5092) (LOCALLY (DECLARE (TYPE NULL #:IT5092)) (LET ((#:BIND5088 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:BIND5088)) (LET ((#:BIND5089 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:BIND5089)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5104 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5104 (GUARD1 (#:CONS5102 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5102) (CAR #:CONS5102) (GUARD1 (#:IT5105 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5105 'SHORT-FLOAT)) (CDR #:CONS5102) (GUARD1 (#:CONS5106 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5106) (CDR #:CONS5106) (GUARD1 (#:IT5107 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5107))) #:INTERSECTION5104 (GUARD1 (#:BIND5103 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6078 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6079 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6080 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5090 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5090)) (LET ((#:CONS5087 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:CONS5087)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5087) (LOCALLY (DECLARE (TYPE CONS #:CONS5087)) (LET ((#:IT5091 (CAR #:CONS5087))) (DECLARE (IGNORABLE #:IT5091)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5091 'SHORT-FLOAT) (LOCALLY (DECLARE (TYPE (EQL SHORT-FLOAT) #:IT5091)) (LET ((#:IT5092 (CDR #:CONS5087))) (DECLARE (IGNORABLE #:IT5092)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5092) (LOCALLY (DECLARE (TYPE NULL #:IT5092)) (LET ((#:BIND5088 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:BIND5088)) (LET ((#:BIND5089 #:INTERSECTION5090)) (DECLARE (IGNORABLE #:BIND5089)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5111 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5111 (GUARD1 (#:CONS5108 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5108) (CAR #:CONS5108) (GUARD1 (#:IT5112 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5112 'SHORT-FLOAT)) (CDR #:CONS5108) (GUARD1 (#:IT5113 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5113)) #:INTERSECTION5111 (GUARD1 (#:BIND5109 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5111 (GUARD1 (#:BIND5110 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6081 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6082 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6083 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5117 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5117)) (LET ((#:IT5114 #:INTERSECTION5117)) (DECLARE (IGNORABLE #:IT5114)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5114 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5114)) (LET ((#:BIND5115 #:INTERSECTION5117)) (DECLARE (IGNORABLE #:BIND5115)) (LET ((#:BIND5116 #:INTERSECTION5117)) (DECLARE (IGNORABLE #:BIND5116)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5138 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5138 (GUARD1 (#:IT5137 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5137 'FLOAT) #:INTERSECTION5138 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5138 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5140 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5140 (GUARD1 (#:IT5139 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5139 'SHORT-FLOAT) #:INTERSECTION5140 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5140 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5142 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5142 (GUARD1 (#:IT5141 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5141 'SINGLE-FLOAT) #:INTERSECTION5142 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5142 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5144 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5144 (GUARD1 (#:IT5143 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5143 'DOUBLE-FLOAT) #:INTERSECTION5144 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5144 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5146 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5146 (GUARD1 (#:IT5145 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5145 'LONG-FLOAT) #:INTERSECTION5146 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5146 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6084 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6085 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6086 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5117 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5117)) (LET ((#:IT5114 #:INTERSECTION5117)) (DECLARE (IGNORABLE #:IT5114)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5114 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5114)) (LET ((#:BIND5115 #:INTERSECTION5117)) (DECLARE (IGNORABLE #:BIND5115)) (LET ((#:BIND5116 #:INTERSECTION5117)) (DECLARE (IGNORABLE #:BIND5116)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS5147 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5147) (CAR #:CONS5147) (OR1 (GUARD1 (#:IT5148 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5148 'FLOAT)) (GUARD1 (#:IT5149 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5149 'SHORT-FLOAT)) (GUARD1 (#:IT5150 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5150 'SINGLE-FLOAT)) (GUARD1 (#:IT5151 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5151 'DOUBLE-FLOAT)) (GUARD1 (#:IT5152 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5152 'LONG-FLOAT))) (CDR #:CONS5147) (GUARD1 (#:CONS5153 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5153) (CDR #:CONS5153) (GUARD1 (#:CONS5154 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5154) (CDR #:CONS5154) (GUARD1 (#:IT5155 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5155))))) (GUARD1 (#:INTERSECTION5158 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5158 (GUARD1 (#:CONS5156 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5156) (CAR #:CONS5156) (OR1 (GUARD1 (#:IT5159 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5159 'FLOAT)) (GUARD1 (#:IT5160 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5160 'SHORT-FLOAT)) (GUARD1 (#:IT5161 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5161 'SINGLE-FLOAT)) (GUARD1 (#:IT5162 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5162 'DOUBLE-FLOAT)) (GUARD1 (#:IT5163 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5163 'LONG-FLOAT))) (CDR #:CONS5156) (GUARD1 (#:CONS5164 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5164) (CDR #:CONS5164) (GUARD1 (#:IT5165 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5165))) #:INTERSECTION5158 (GUARD1 (#:BIND5157 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5169 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5169 (GUARD1 (#:CONS5166 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5166) (CAR #:CONS5166) (OR1 (GUARD1 (#:IT5170 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5170 'FLOAT)) (GUARD1 (#:IT5171 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5171 'SHORT-FLOAT)) (GUARD1 (#:IT5172 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5172 'SINGLE-FLOAT)) (GUARD1 (#:IT5173 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5173 'DOUBLE-FLOAT)) (GUARD1 (#:IT5174 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5174 'LONG-FLOAT))) (CDR #:CONS5166) (GUARD1 (#:IT5175 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5175)) #:INTERSECTION5169 (GUARD1 (#:BIND5167 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5169 (GUARD1 (#:BIND5168 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6087 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6088 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6089 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5568 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5568)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5568) (LOCALLY (DECLARE (TYPE CONS #:FUSION5568)) (LET ((#:CONS5118 #:FUSION5568)) (DECLARE (IGNORABLE #:CONS5118)) (LOCALLY (DECLARE (TYPE CONS #:CONS5118)) (LET ((#:GEN5569 (CAR #:FUSION5568))) (DECLARE (IGNORABLE #:GEN5569)) (LET ((#:GEN5570 (CDR #:FUSION5568))) (DECLARE (IGNORABLE #:GEN5570)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5571 T) (MATCH1 NIL ((GUARD1 #:IT6090 T) (MATCH2*+ (#:GEN5569 #:GEN5570 #:PAT5571) (T T T) (((GUARD1 (#:IT5119 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5119 'FLOAT)) (GUARD1 (#:CONS5120 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5120) (CDR #:CONS5120) (GUARD1 (#:CONS5121 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5121) (CDR #:CONS5121) (GUARD1 (#:IT5122 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5122)))) (GUARD1 (#:INTERSECTION5138 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5138 (GUARD1 (#:IT5137 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5137 'FLOAT) #:INTERSECTION5138 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5138 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5119 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5119 'FLOAT)) (GUARD1 (#:CONS5120 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5120) (CDR #:CONS5120) (GUARD1 (#:CONS5121 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5121) (CDR #:CONS5121) (GUARD1 (#:IT5122 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5122)))) (GUARD1 (#:INTERSECTION5140 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5140 (GUARD1 (#:IT5139 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5139 'SHORT-FLOAT) #:INTERSECTION5140 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5140 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5119 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5119 'FLOAT)) (GUARD1 (#:CONS5120 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5120) (CDR #:CONS5120) (GUARD1 (#:CONS5121 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5121) (CDR #:CONS5121) (GUARD1 (#:IT5122 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5122)))) (GUARD1 (#:INTERSECTION5142 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5142 (GUARD1 (#:IT5141 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5141 'SINGLE-FLOAT) #:INTERSECTION5142 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5142 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5119 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5119 'FLOAT)) (GUARD1 (#:CONS5120 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5120) (CDR #:CONS5120) (GUARD1 (#:CONS5121 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5121) (CDR #:CONS5121) (GUARD1 (#:IT5122 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5122)))) (GUARD1 (#:INTERSECTION5144 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5144 (GUARD1 (#:IT5143 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5143 'DOUBLE-FLOAT) #:INTERSECTION5144 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5144 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5119 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5119 'FLOAT)) (GUARD1 (#:CONS5120 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5120) (CDR #:CONS5120) (GUARD1 (#:CONS5121 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5121) (CDR #:CONS5121) (GUARD1 (#:IT5122 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5122)))) (GUARD1 (#:INTERSECTION5146 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5146 (GUARD1 (#:IT5145 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5145 'LONG-FLOAT) #:INTERSECTION5146 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5146 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6091 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6092 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5125 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5125)) (LET ((#:CONS5123 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:CONS5123)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5123) (LOCALLY (DECLARE (TYPE CONS #:CONS5123)) (LET ((#:IT5126 (CAR #:CONS5123))) (DECLARE (IGNORABLE #:IT5126)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5126 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5126)) (LET ((#:CONS5127 (CDR #:CONS5123))) (DECLARE (IGNORABLE #:CONS5127)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5127) (LOCALLY (DECLARE (TYPE CONS #:CONS5127)) (LET ((#:IT5128 (CDR #:CONS5127))) (DECLARE (IGNORABLE #:IT5128)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5128) (LOCALLY (DECLARE (TYPE NULL #:IT5128)) (LET ((#:BIND5124 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:BIND5124)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5138 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5138 (GUARD1 (#:IT5137 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5137 'FLOAT) #:INTERSECTION5138 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5138 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6093 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6094 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6095 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5125 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5125)) (LET ((#:CONS5123 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:CONS5123)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5123) (LOCALLY (DECLARE (TYPE CONS #:CONS5123)) (LET ((#:IT5126 (CAR #:CONS5123))) (DECLARE (IGNORABLE #:IT5126)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5126 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5126)) (LET ((#:CONS5127 (CDR #:CONS5123))) (DECLARE (IGNORABLE #:CONS5127)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5127) (LOCALLY (DECLARE (TYPE CONS #:CONS5127)) (LET ((#:IT5128 (CDR #:CONS5127))) (DECLARE (IGNORABLE #:IT5128)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5128) (LOCALLY (DECLARE (TYPE NULL #:IT5128)) (LET ((#:BIND5124 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:BIND5124)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5140 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5140 (GUARD1 (#:IT5139 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5139 'SHORT-FLOAT) #:INTERSECTION5140 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5140 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6096 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6097 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6098 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5125 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5125)) (LET ((#:CONS5123 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:CONS5123)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5123) (LOCALLY (DECLARE (TYPE CONS #:CONS5123)) (LET ((#:IT5126 (CAR #:CONS5123))) (DECLARE (IGNORABLE #:IT5126)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5126 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5126)) (LET ((#:CONS5127 (CDR #:CONS5123))) (DECLARE (IGNORABLE #:CONS5127)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5127) (LOCALLY (DECLARE (TYPE CONS #:CONS5127)) (LET ((#:IT5128 (CDR #:CONS5127))) (DECLARE (IGNORABLE #:IT5128)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5128) (LOCALLY (DECLARE (TYPE NULL #:IT5128)) (LET ((#:BIND5124 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:BIND5124)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5142 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5142 (GUARD1 (#:IT5141 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5141 'SINGLE-FLOAT) #:INTERSECTION5142 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5142 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6099 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6100 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6101 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5125 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5125)) (LET ((#:CONS5123 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:CONS5123)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5123) (LOCALLY (DECLARE (TYPE CONS #:CONS5123)) (LET ((#:IT5126 (CAR #:CONS5123))) (DECLARE (IGNORABLE #:IT5126)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5126 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5126)) (LET ((#:CONS5127 (CDR #:CONS5123))) (DECLARE (IGNORABLE #:CONS5127)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5127) (LOCALLY (DECLARE (TYPE CONS #:CONS5127)) (LET ((#:IT5128 (CDR #:CONS5127))) (DECLARE (IGNORABLE #:IT5128)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5128) (LOCALLY (DECLARE (TYPE NULL #:IT5128)) (LET ((#:BIND5124 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:BIND5124)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5144 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5144 (GUARD1 (#:IT5143 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5143 'DOUBLE-FLOAT) #:INTERSECTION5144 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5144 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6102 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6103 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6104 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5125 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5125)) (LET ((#:CONS5123 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:CONS5123)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5123) (LOCALLY (DECLARE (TYPE CONS #:CONS5123)) (LET ((#:IT5126 (CAR #:CONS5123))) (DECLARE (IGNORABLE #:IT5126)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5126 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5126)) (LET ((#:CONS5127 (CDR #:CONS5123))) (DECLARE (IGNORABLE #:CONS5127)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5127) (LOCALLY (DECLARE (TYPE CONS #:CONS5127)) (LET ((#:IT5128 (CDR #:CONS5127))) (DECLARE (IGNORABLE #:IT5128)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5128) (LOCALLY (DECLARE (TYPE NULL #:IT5128)) (LET ((#:BIND5124 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:BIND5124)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5146 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5146 (GUARD1 (#:IT5145 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5145 'LONG-FLOAT) #:INTERSECTION5146 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5146 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6105 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6106 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6107 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5132 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5132)) (LET ((#:CONS5129 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:CONS5129)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5129) (LOCALLY (DECLARE (TYPE CONS #:CONS5129)) (LET ((#:IT5133 (CAR #:CONS5129))) (DECLARE (IGNORABLE #:IT5133)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5133 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5133)) (LET ((#:IT5134 (CDR #:CONS5129))) (DECLARE (IGNORABLE #:IT5134)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5134) (LOCALLY (DECLARE (TYPE NULL #:IT5134)) (LET ((#:BIND5130 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5130)) (LET ((#:BIND5131 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5131)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5138 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5138 (GUARD1 (#:IT5137 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5137 'FLOAT) #:INTERSECTION5138 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5138 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6108 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6109 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6110 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5132 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5132)) (LET ((#:CONS5129 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:CONS5129)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5129) (LOCALLY (DECLARE (TYPE CONS #:CONS5129)) (LET ((#:IT5133 (CAR #:CONS5129))) (DECLARE (IGNORABLE #:IT5133)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5133 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5133)) (LET ((#:IT5134 (CDR #:CONS5129))) (DECLARE (IGNORABLE #:IT5134)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5134) (LOCALLY (DECLARE (TYPE NULL #:IT5134)) (LET ((#:BIND5130 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5130)) (LET ((#:BIND5131 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5131)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5140 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5140 (GUARD1 (#:IT5139 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5139 'SHORT-FLOAT) #:INTERSECTION5140 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5140 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6111 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6112 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6113 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5132 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5132)) (LET ((#:CONS5129 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:CONS5129)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5129) (LOCALLY (DECLARE (TYPE CONS #:CONS5129)) (LET ((#:IT5133 (CAR #:CONS5129))) (DECLARE (IGNORABLE #:IT5133)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5133 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5133)) (LET ((#:IT5134 (CDR #:CONS5129))) (DECLARE (IGNORABLE #:IT5134)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5134) (LOCALLY (DECLARE (TYPE NULL #:IT5134)) (LET ((#:BIND5130 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5130)) (LET ((#:BIND5131 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5131)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5142 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5142 (GUARD1 (#:IT5141 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5141 'SINGLE-FLOAT) #:INTERSECTION5142 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5142 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6114 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6115 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6116 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5132 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5132)) (LET ((#:CONS5129 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:CONS5129)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5129) (LOCALLY (DECLARE (TYPE CONS #:CONS5129)) (LET ((#:IT5133 (CAR #:CONS5129))) (DECLARE (IGNORABLE #:IT5133)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5133 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5133)) (LET ((#:IT5134 (CDR #:CONS5129))) (DECLARE (IGNORABLE #:IT5134)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5134) (LOCALLY (DECLARE (TYPE NULL #:IT5134)) (LET ((#:BIND5130 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5130)) (LET ((#:BIND5131 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5131)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5144 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5144 (GUARD1 (#:IT5143 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5143 'DOUBLE-FLOAT) #:INTERSECTION5144 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5144 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6117 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6118 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6119 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5132 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5132)) (LET ((#:CONS5129 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:CONS5129)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5129) (LOCALLY (DECLARE (TYPE CONS #:CONS5129)) (LET ((#:IT5133 (CAR #:CONS5129))) (DECLARE (IGNORABLE #:IT5133)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5133 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5133)) (LET ((#:IT5134 (CDR #:CONS5129))) (DECLARE (IGNORABLE #:IT5134)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5134) (LOCALLY (DECLARE (TYPE NULL #:IT5134)) (LET ((#:BIND5130 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5130)) (LET ((#:BIND5131 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5131)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5146 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5146 (GUARD1 (#:IT5145 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5145 'LONG-FLOAT) #:INTERSECTION5146 (GUARD1 (#:BIND5135 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5146 (GUARD1 (#:BIND5136 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6120 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6121 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6122 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5575 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5575)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5575) (LOCALLY (DECLARE (TYPE CONS #:FUSION5575)) (LET ((#:CONS5118 #:FUSION5575)) (DECLARE (IGNORABLE #:CONS5118)) (LOCALLY (DECLARE (TYPE CONS #:CONS5118)) (LET ((#:GEN5576 (CAR #:FUSION5575))) (DECLARE (IGNORABLE #:GEN5576)) (LET ((#:GEN5577 (CDR #:FUSION5575))) (DECLARE (IGNORABLE #:GEN5577)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5578 T) (MATCH1 NIL ((GUARD1 #:IT6123 T) (MATCH2*+ (#:GEN5576 #:GEN5577 #:PAT5578) (T T T) (((GUARD1 (#:IT5119 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5119 'FLOAT)) (GUARD1 (#:CONS5120 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5120) (CDR #:CONS5120) (GUARD1 (#:CONS5121 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5121) (CDR #:CONS5121) (GUARD1 (#:IT5122 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5122)))) (GUARD1 (#:CONS5147 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5147) (CAR #:CONS5147) (OR1 (GUARD1 (#:IT5148 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5148 'FLOAT)) (GUARD1 (#:IT5149 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5149 'SHORT-FLOAT)) (GUARD1 (#:IT5150 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5150 'SINGLE-FLOAT)) (GUARD1 (#:IT5151 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5151 'DOUBLE-FLOAT)) (GUARD1 (#:IT5152 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5152 'LONG-FLOAT))) (CDR #:CONS5147) (GUARD1 (#:CONS5153 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5153) (CDR #:CONS5153) (GUARD1 (#:CONS5154 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5154) (CDR #:CONS5154) (GUARD1 (#:IT5155 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5155)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5119 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5119 'FLOAT)) (GUARD1 (#:CONS5120 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5120) (CDR #:CONS5120) (GUARD1 (#:CONS5121 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5121) (CDR #:CONS5121) (GUARD1 (#:IT5122 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5122)))) (GUARD1 (#:INTERSECTION5158 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5158 (GUARD1 (#:CONS5156 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5156) (CAR #:CONS5156) (OR1 (GUARD1 (#:IT5159 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5159 'FLOAT)) (GUARD1 (#:IT5160 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5160 'SHORT-FLOAT)) (GUARD1 (#:IT5161 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5161 'SINGLE-FLOAT)) (GUARD1 (#:IT5162 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5162 'DOUBLE-FLOAT)) (GUARD1 (#:IT5163 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5163 'LONG-FLOAT))) (CDR #:CONS5156) (GUARD1 (#:CONS5164 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5164) (CDR #:CONS5164) (GUARD1 (#:IT5165 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5165))) #:INTERSECTION5158 (GUARD1 (#:BIND5157 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5119 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5119 'FLOAT)) (GUARD1 (#:CONS5120 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5120) (CDR #:CONS5120) (GUARD1 (#:CONS5121 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5121) (CDR #:CONS5121) (GUARD1 (#:IT5122 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5122)))) (GUARD1 (#:INTERSECTION5169 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5169 (GUARD1 (#:CONS5166 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5166) (CAR #:CONS5166) (OR1 (GUARD1 (#:IT5170 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5170 'FLOAT)) (GUARD1 (#:IT5171 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5171 'SHORT-FLOAT)) (GUARD1 (#:IT5172 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5172 'SINGLE-FLOAT)) (GUARD1 (#:IT5173 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5173 'DOUBLE-FLOAT)) (GUARD1 (#:IT5174 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5174 'LONG-FLOAT))) (CDR #:CONS5166) (GUARD1 (#:IT5175 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5175)) #:INTERSECTION5169 (GUARD1 (#:BIND5167 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5169 (GUARD1 (#:BIND5168 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6124 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6125 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5125 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5125)) (LET ((#:CONS5123 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:CONS5123)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5123) (LOCALLY (DECLARE (TYPE CONS #:CONS5123)) (LET ((#:IT5126 (CAR #:CONS5123))) (DECLARE (IGNORABLE #:IT5126)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5126 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5126)) (LET ((#:CONS5127 (CDR #:CONS5123))) (DECLARE (IGNORABLE #:CONS5127)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5127) (LOCALLY (DECLARE (TYPE CONS #:CONS5127)) (LET ((#:IT5128 (CDR #:CONS5127))) (DECLARE (IGNORABLE #:IT5128)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5128) (LOCALLY (DECLARE (TYPE NULL #:IT5128)) (LET ((#:BIND5124 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:BIND5124)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:CONS5147 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5147) (CAR #:CONS5147) (OR1 (GUARD1 (#:IT5148 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5148 'FLOAT)) (GUARD1 (#:IT5149 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5149 'SHORT-FLOAT)) (GUARD1 (#:IT5150 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5150 'SINGLE-FLOAT)) (GUARD1 (#:IT5151 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5151 'DOUBLE-FLOAT)) (GUARD1 (#:IT5152 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5152 'LONG-FLOAT))) (CDR #:CONS5147) (GUARD1 (#:CONS5153 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5153) (CDR #:CONS5153) (GUARD1 (#:CONS5154 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5154) (CDR #:CONS5154) (GUARD1 (#:IT5155 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5155))))) (MATCH1 NIL ((GUARD1 #:IT6126 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6127 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6128 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5125 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5125)) (LET ((#:CONS5123 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:CONS5123)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5123) (LOCALLY (DECLARE (TYPE CONS #:CONS5123)) (LET ((#:IT5126 (CAR #:CONS5123))) (DECLARE (IGNORABLE #:IT5126)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5126 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5126)) (LET ((#:CONS5127 (CDR #:CONS5123))) (DECLARE (IGNORABLE #:CONS5127)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5127) (LOCALLY (DECLARE (TYPE CONS #:CONS5127)) (LET ((#:IT5128 (CDR #:CONS5127))) (DECLARE (IGNORABLE #:IT5128)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5128) (LOCALLY (DECLARE (TYPE NULL #:IT5128)) (LET ((#:BIND5124 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:BIND5124)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5158 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5158 (GUARD1 (#:CONS5156 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5156) (CAR #:CONS5156) (OR1 (GUARD1 (#:IT5159 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5159 'FLOAT)) (GUARD1 (#:IT5160 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5160 'SHORT-FLOAT)) (GUARD1 (#:IT5161 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5161 'SINGLE-FLOAT)) (GUARD1 (#:IT5162 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5162 'DOUBLE-FLOAT)) (GUARD1 (#:IT5163 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5163 'LONG-FLOAT))) (CDR #:CONS5156) (GUARD1 (#:CONS5164 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5164) (CDR #:CONS5164) (GUARD1 (#:IT5165 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5165))) #:INTERSECTION5158 (GUARD1 (#:BIND5157 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6129 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6130 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6131 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5125 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5125)) (LET ((#:CONS5123 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:CONS5123)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5123) (LOCALLY (DECLARE (TYPE CONS #:CONS5123)) (LET ((#:IT5126 (CAR #:CONS5123))) (DECLARE (IGNORABLE #:IT5126)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5126 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5126)) (LET ((#:CONS5127 (CDR #:CONS5123))) (DECLARE (IGNORABLE #:CONS5127)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5127) (LOCALLY (DECLARE (TYPE CONS #:CONS5127)) (LET ((#:IT5128 (CDR #:CONS5127))) (DECLARE (IGNORABLE #:IT5128)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5128) (LOCALLY (DECLARE (TYPE NULL #:IT5128)) (LET ((#:BIND5124 #:INTERSECTION5125)) (DECLARE (IGNORABLE #:BIND5124)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5169 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5169 (GUARD1 (#:CONS5166 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5166) (CAR #:CONS5166) (OR1 (GUARD1 (#:IT5170 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5170 'FLOAT)) (GUARD1 (#:IT5171 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5171 'SHORT-FLOAT)) (GUARD1 (#:IT5172 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5172 'SINGLE-FLOAT)) (GUARD1 (#:IT5173 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5173 'DOUBLE-FLOAT)) (GUARD1 (#:IT5174 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5174 'LONG-FLOAT))) (CDR #:CONS5166) (GUARD1 (#:IT5175 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5175)) #:INTERSECTION5169 (GUARD1 (#:BIND5167 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5169 (GUARD1 (#:BIND5168 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6132 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6133 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6134 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5132 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5132)) (LET ((#:CONS5129 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:CONS5129)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5129) (LOCALLY (DECLARE (TYPE CONS #:CONS5129)) (LET ((#:IT5133 (CAR #:CONS5129))) (DECLARE (IGNORABLE #:IT5133)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5133 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5133)) (LET ((#:IT5134 (CDR #:CONS5129))) (DECLARE (IGNORABLE #:IT5134)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5134) (LOCALLY (DECLARE (TYPE NULL #:IT5134)) (LET ((#:BIND5130 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5130)) (LET ((#:BIND5131 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5131)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:CONS5147 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5147) (CAR #:CONS5147) (OR1 (GUARD1 (#:IT5148 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5148 'FLOAT)) (GUARD1 (#:IT5149 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5149 'SHORT-FLOAT)) (GUARD1 (#:IT5150 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5150 'SINGLE-FLOAT)) (GUARD1 (#:IT5151 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5151 'DOUBLE-FLOAT)) (GUARD1 (#:IT5152 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5152 'LONG-FLOAT))) (CDR #:CONS5147) (GUARD1 (#:CONS5153 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5153) (CDR #:CONS5153) (GUARD1 (#:CONS5154 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5154) (CDR #:CONS5154) (GUARD1 (#:IT5155 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5155))))) (MATCH1 NIL ((GUARD1 #:IT6135 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6136 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6137 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5132 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5132)) (LET ((#:CONS5129 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:CONS5129)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5129) (LOCALLY (DECLARE (TYPE CONS #:CONS5129)) (LET ((#:IT5133 (CAR #:CONS5129))) (DECLARE (IGNORABLE #:IT5133)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5133 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5133)) (LET ((#:IT5134 (CDR #:CONS5129))) (DECLARE (IGNORABLE #:IT5134)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5134) (LOCALLY (DECLARE (TYPE NULL #:IT5134)) (LET ((#:BIND5130 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5130)) (LET ((#:BIND5131 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5131)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5158 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5158 (GUARD1 (#:CONS5156 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5156) (CAR #:CONS5156) (OR1 (GUARD1 (#:IT5159 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5159 'FLOAT)) (GUARD1 (#:IT5160 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5160 'SHORT-FLOAT)) (GUARD1 (#:IT5161 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5161 'SINGLE-FLOAT)) (GUARD1 (#:IT5162 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5162 'DOUBLE-FLOAT)) (GUARD1 (#:IT5163 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5163 'LONG-FLOAT))) (CDR #:CONS5156) (GUARD1 (#:CONS5164 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5164) (CDR #:CONS5164) (GUARD1 (#:IT5165 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5165))) #:INTERSECTION5158 (GUARD1 (#:BIND5157 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6138 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6139 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6140 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5132 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5132)) (LET ((#:CONS5129 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:CONS5129)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5129) (LOCALLY (DECLARE (TYPE CONS #:CONS5129)) (LET ((#:IT5133 (CAR #:CONS5129))) (DECLARE (IGNORABLE #:IT5133)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5133 'FLOAT) (LOCALLY (DECLARE (TYPE (EQL FLOAT) #:IT5133)) (LET ((#:IT5134 (CDR #:CONS5129))) (DECLARE (IGNORABLE #:IT5134)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5134) (LOCALLY (DECLARE (TYPE NULL #:IT5134)) (LET ((#:BIND5130 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5130)) (LET ((#:BIND5131 #:INTERSECTION5132)) (DECLARE (IGNORABLE #:BIND5131)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5169 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5169 (GUARD1 (#:CONS5166 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5166) (CAR #:CONS5166) (OR1 (GUARD1 (#:IT5170 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5170 'FLOAT)) (GUARD1 (#:IT5171 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5171 'SHORT-FLOAT)) (GUARD1 (#:IT5172 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5172 'SINGLE-FLOAT)) (GUARD1 (#:IT5173 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5173 'DOUBLE-FLOAT)) (GUARD1 (#:IT5174 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5174 'LONG-FLOAT))) (CDR #:CONS5166) (GUARD1 (#:IT5175 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5175)) #:INTERSECTION5169 (GUARD1 (#:BIND5167 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5169 (GUARD1 (#:BIND5168 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6141 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6142 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6143 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT5176 #:WHAT16458)) (DECLARE (IGNORABLE #:IT5176)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5176 'RATIO) (LOCALLY (DECLARE (TYPE (EQL RATIO) #:IT5176)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:IT5180 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5180 'RATIO)) (MATCH1 NIL ((GUARD1 #:IT6144 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6145 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6146 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT5176 #:WHAT16458)) (DECLARE (IGNORABLE #:IT5176)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5176 'RATIO) (LOCALLY (DECLARE (TYPE (EQL RATIO) #:IT5176)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS5181 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5181) (CAR #:CONS5181) (GUARD1 (#:IT5182 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5182 'RATIO)) (CDR #:CONS5181) (GUARD1 (#:IT5183 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5183)))) (MATCH1 NIL ((GUARD1 #:IT6147 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6148 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6149 T) (TRIVIA.NEXT:NEXT))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5582 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5582)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5582) (LOCALLY (DECLARE (TYPE CONS #:FUSION5582)) (LET ((#:CONS5177 #:FUSION5582)) (DECLARE (IGNORABLE #:CONS5177)) (LOCALLY (DECLARE (TYPE CONS #:CONS5177)) (LET ((#:GEN5583 (CAR #:FUSION5582))) (DECLARE (IGNORABLE #:GEN5583)) (LET ((#:GEN5584 (CDR #:FUSION5582))) (DECLARE (IGNORABLE #:GEN5584)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5585 T) (MATCH1 NIL ((GUARD1 #:IT6150 T) (MATCH2*+ (#:GEN5583 #:GEN5584 #:PAT5585) (T T T) (((GUARD1 (#:IT5178 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5178 'RATIO)) (GUARD1 (#:IT5179 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5179)) (GUARD1 (#:IT5180 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5180 'RATIO))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5178 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5178 'RATIO)) (GUARD1 (#:IT5179 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5179)) (GUARD1 (#:CONS5181 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5181) (CAR #:CONS5181) (GUARD1 (#:IT5182 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5182 'RATIO)) (CDR #:CONS5181) (GUARD1 (#:IT5183 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5183)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6151 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6152 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5187 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5187)) (LET ((#:IT5184 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:IT5184)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5184 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5184)) (LET ((#:BIND5185 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5185)) (LET ((#:BIND5186 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5186)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5208 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5208 (GUARD1 (#:CONS5206 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5206) (CAR #:CONS5206) (GUARD1 (#:IT5209 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT5209 'MOD)) (CDR #:CONS5206) (GUARD1 (#:CONS5210 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5210) (CAR #:CONS5210) (GUARD1 (#:N5205 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS5210) (GUARD1 (#:IT5211 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5211))) #:INTERSECTION5208 (GUARD1 (#:BIND5207 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6153 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6154 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6155 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5187 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5187)) (LET ((#:IT5184 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:IT5184)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5184 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5184)) (LET ((#:BIND5185 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5185)) (LET ((#:BIND5186 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5186)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5215 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5215 (GUARD1 (#:IT5212 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT5212 'BIT) #:INTERSECTION5215 (GUARD1 (#:BIND5213 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5215 (GUARD1 (#:BIND5214 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6156 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6157 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6158 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5187 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5187)) (LET ((#:IT5184 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:IT5184)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5184 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5184)) (LET ((#:BIND5185 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5185)) (LET ((#:BIND5186 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5186)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5219 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5219 (GUARD1 (#:CONS5218 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5218) (CAR #:CONS5218) (GUARD1 (#:IT5220 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5220 'UNSIGNED-BYTE)) (CDR #:CONS5218) (GUARD1 (#:CONS5221 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5221) (CAR #:CONS5221) (GUARD1 (#:INTERSECTION5223 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5223 (GUARD1 (#:IT5222 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT5222 'FIXNUM) #:INTERSECTION5223 (GUARD1 (#:N5216 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5221) (GUARD1 (#:IT5224 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5224))) #:INTERSECTION5219 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5226 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5226 (GUARD1 (#:CONS5225 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5225) (CAR #:CONS5225) (GUARD1 (#:IT5227 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5227 'UNSIGNED-BYTE)) (CDR #:CONS5225) (GUARD1 (#:CONS5228 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5228) (CAR #:CONS5228) (GUARD1 (#:INTERSECTION5231 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5231 (GUARD1 (#:IT5229 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT5229 '*) #:INTERSECTION5231 (GUARD1 (#:IT5230 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5228) (GUARD1 (#:IT5232 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5232))) #:INTERSECTION5226 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5236 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5236 (GUARD1 (#:INTERSECTION5235 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5235 (GUARD1 (#:CONS5233 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5233) (CAR #:CONS5233) (GUARD1 (#:IT5237 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5237 'UNSIGNED-BYTE)) (CDR #:CONS5233) (GUARD1 (#:IT5238 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5238)) #:INTERSECTION5235 (GUARD1 (#:BIND5234 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION5236 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6159 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6160 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6161 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5187 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5187)) (LET ((#:IT5184 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:IT5184)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5184 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5184)) (LET ((#:BIND5185 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5185)) (LET ((#:BIND5186 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5186)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5245 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5245 (GUARD1 (#:CONS5240 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5240) (CAR #:CONS5240) (GUARD1 (#:IT5241 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5241 'SIGNED-BYTE)) (CDR #:CONS5240) (GUARD1 (#:CONS5242 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5242) (CAR #:CONS5242) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N5239 'FIXNUM)) (CDR #:CONS5242) (GUARD1 (#:IT5243 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5243))) #:INTERSECTION5245 (GUARD1 (#:LIFT-DUMMY5244 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION5251 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5251 (GUARD1 (#:CONS5246 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5246) (CAR #:CONS5246) (GUARD1 (#:IT5247 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5247 'SIGNED-BYTE)) (CDR #:CONS5246) (GUARD1 (#:CONS5248 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5248) (CAR #:CONS5248) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N5239)) (CDR #:CONS5248) (GUARD1 (#:IT5249 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5249))) #:INTERSECTION5251 (GUARD1 (#:LIFT-DUMMY5250 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION5255 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5255 (GUARD1 (#:CONS5252 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5252) (CAR #:CONS5252) (GUARD1 (#:IT5253 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5253 'SIGNED-BYTE)) (CDR #:CONS5252) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N5239)) #:INTERSECTION5255 (GUARD1 (#:LIFT-DUMMY5254 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION5257 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5257 (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N5239) #:INTERSECTION5257 (GUARD1 (#:LIFT-DUMMY5256 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (MATCH1 NIL ((GUARD1 #:IT6162 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6163 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6164 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5187 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5187)) (LET ((#:IT5184 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:IT5184)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5184 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5184)) (LET ((#:BIND5185 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5185)) (LET ((#:BIND5186 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5186)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5261 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5261 (GUARD1 (#:IT5258 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5258 'BIGNUM) #:INTERSECTION5261 (GUARD1 (#:BIND5259 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5261 (GUARD1 (#:BIND5260 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION5265 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5265 (GUARD1 (#:CONS5262 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5262) (CAR #:CONS5262) (GUARD1 (#:IT5266 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5266 'BIGNUM)) (CDR #:CONS5262) (GUARD1 (#:IT5267 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5267)) #:INTERSECTION5265 (GUARD1 (#:BIND5263 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5265 (GUARD1 (#:BIND5264 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT6165 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6166 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6167 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5187 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5187)) (LET ((#:IT5184 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:IT5184)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5184 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5184)) (LET ((#:BIND5185 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5185)) (LET ((#:BIND5186 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5186)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5271 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5271 (GUARD1 (#:IT5268 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5268 'FIXNUM) #:INTERSECTION5271 (GUARD1 (#:BIND5269 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5271 (GUARD1 (#:BIND5270 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION5275 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5275 (GUARD1 (#:CONS5272 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5272) (CAR #:CONS5272) (GUARD1 (#:IT5276 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5276 'FIXNUM)) (CDR #:CONS5272) (GUARD1 (#:IT5277 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5277)) #:INTERSECTION5275 (GUARD1 (#:BIND5273 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5275 (GUARD1 (#:BIND5274 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT6168 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6169 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6170 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5187 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5187)) (LET ((#:IT5184 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:IT5184)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5184 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5184)) (LET ((#:BIND5185 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5185)) (LET ((#:BIND5186 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5186)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5281 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5281 (GUARD1 (#:IT5278 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5278 'RATIO) #:INTERSECTION5281 (GUARD1 (#:BIND5279 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5281 (GUARD1 (#:BIND5280 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION5285 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5285 (GUARD1 (#:CONS5282 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5282) (CAR #:CONS5282) (GUARD1 (#:IT5286 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5286 'RATIO)) (CDR #:CONS5282) (GUARD1 (#:IT5287 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5287)) #:INTERSECTION5285 (GUARD1 (#:BIND5283 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5285 (GUARD1 (#:BIND5284 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT6171 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6172 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6173 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5187 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5187)) (LET ((#:IT5184 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:IT5184)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5184 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5184)) (LET ((#:BIND5185 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5185)) (LET ((#:BIND5186 #:INTERSECTION5187)) (DECLARE (IGNORABLE #:BIND5186)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (OR1 (GUARD1 (#:INTERSECTION5291 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5291 (GUARD1 (#:IT5290 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5290 'INTEGER) #:INTERSECTION5291 (GUARD1 (#:BIND5288 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5291 (GUARD1 (#:BIND5289 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5293 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5293 (GUARD1 (#:IT5292 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5292 'RATIONAL) #:INTERSECTION5293 (GUARD1 (#:BIND5288 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5293 (GUARD1 (#:BIND5289 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (OR1 (GUARD1 (#:CONS5294 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5294) (CAR #:CONS5294) (OR1 (GUARD1 (#:IT5295 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5295 'INTEGER)) (GUARD1 (#:IT5296 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5296 'RATIONAL))) (CDR #:CONS5294) (GUARD1 (#:CONS5297 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5297) (CDR #:CONS5297) (GUARD1 (#:CONS5298 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5298) (CDR #:CONS5298) (GUARD1 (#:IT5299 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5299))))) (GUARD1 (#:INTERSECTION5302 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5302 (GUARD1 (#:CONS5300 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5300) (CAR #:CONS5300) (OR1 (GUARD1 (#:IT5303 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5303 'INTEGER)) (GUARD1 (#:IT5304 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5304 'RATIONAL))) (CDR #:CONS5300) (GUARD1 (#:CONS5305 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5305) (CDR #:CONS5305) (GUARD1 (#:IT5306 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5306))) #:INTERSECTION5302 (GUARD1 (#:BIND5301 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5310 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5310 (GUARD1 (#:CONS5307 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5307) (CAR #:CONS5307) (OR1 (GUARD1 (#:IT5311 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5311 'INTEGER)) (GUARD1 (#:IT5312 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5312 'RATIONAL))) (CDR #:CONS5307) (GUARD1 (#:IT5313 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5313)) #:INTERSECTION5310 (GUARD1 (#:BIND5308 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5310 (GUARD1 (#:BIND5309 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT6174 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6175 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6176 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS5188 #:WHAT16458)) (DECLARE (IGNORABLE #:CONS5188)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5188) (LOCALLY (DECLARE (TYPE CONS #:CONS5188)) (LET ((#:IT5189 (CAR #:CONS5188))) (DECLARE (IGNORABLE #:IT5189)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5189 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5189)) (LET ((#:CONS5190 (CDR #:CONS5188))) (DECLARE (IGNORABLE #:CONS5190)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5190) (LOCALLY (DECLARE (TYPE CONS #:CONS5190)) (LET ((#:CONS5191 (CDR #:CONS5190))) (DECLARE (IGNORABLE #:CONS5191)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5191) (LOCALLY (DECLARE (TYPE CONS #:CONS5191)) (LET ((#:IT5192 (CDR #:CONS5191))) (DECLARE (IGNORABLE #:IT5192)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5192) (LOCALLY (DECLARE (TYPE NULL #:IT5192)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5208 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5208 (GUARD1 (#:CONS5206 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5206) (CAR #:CONS5206) (GUARD1 (#:IT5209 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT5209 'MOD)) (CDR #:CONS5206) (GUARD1 (#:CONS5210 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5210) (CAR #:CONS5210) (GUARD1 (#:N5205 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS5210) (GUARD1 (#:IT5211 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5211))) #:INTERSECTION5208 (GUARD1 (#:BIND5207 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6177 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6178 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6179 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5208 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5208 (GUARD1 (#:CONS5206 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5206) (CAR #:CONS5206) (GUARD1 (#:IT5209 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT5209 'MOD)) (CDR #:CONS5206) (GUARD1 (#:CONS5210 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5210) (CAR #:CONS5210) (GUARD1 (#:N5205 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS5210) (GUARD1 (#:IT5211 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5211))) #:INTERSECTION5208 (GUARD1 (#:BIND5207 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6180 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6181 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6182 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5208 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5208 (GUARD1 (#:CONS5206 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5206) (CAR #:CONS5206) (GUARD1 (#:IT5209 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT5209 'MOD)) (CDR #:CONS5206) (GUARD1 (#:CONS5210 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5210) (CAR #:CONS5210) (GUARD1 (#:N5205 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS5210) (GUARD1 (#:IT5211 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5211))) #:INTERSECTION5208 (GUARD1 (#:BIND5207 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6183 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6184 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6185 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS5188 #:WHAT16458)) (DECLARE (IGNORABLE #:CONS5188)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5188) (LOCALLY (DECLARE (TYPE CONS #:CONS5188)) (LET ((#:IT5189 (CAR #:CONS5188))) (DECLARE (IGNORABLE #:IT5189)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5189 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5189)) (LET ((#:CONS5190 (CDR #:CONS5188))) (DECLARE (IGNORABLE #:CONS5190)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5190) (LOCALLY (DECLARE (TYPE CONS #:CONS5190)) (LET ((#:CONS5191 (CDR #:CONS5190))) (DECLARE (IGNORABLE #:CONS5191)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5191) (LOCALLY (DECLARE (TYPE CONS #:CONS5191)) (LET ((#:IT5192 (CDR #:CONS5191))) (DECLARE (IGNORABLE #:IT5192)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5192) (LOCALLY (DECLARE (TYPE NULL #:IT5192)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5215 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5215 (GUARD1 (#:IT5212 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT5212 'BIT) #:INTERSECTION5215 (GUARD1 (#:BIND5213 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5215 (GUARD1 (#:BIND5214 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6186 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6187 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6188 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5215 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5215 (GUARD1 (#:IT5212 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT5212 'BIT) #:INTERSECTION5215 (GUARD1 (#:BIND5213 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5215 (GUARD1 (#:BIND5214 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6189 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6190 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6191 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5215 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5215 (GUARD1 (#:IT5212 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT5212 'BIT) #:INTERSECTION5215 (GUARD1 (#:BIND5213 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5215 (GUARD1 (#:BIND5214 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6192 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6193 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6194 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5595 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5595)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5595) (LOCALLY (DECLARE (TYPE CONS #:FUSION5595)) (LET ((#:CONS5188 #:FUSION5595)) (DECLARE (IGNORABLE #:CONS5188)) (LOCALLY (DECLARE (TYPE CONS #:CONS5188)) (LET ((#:GEN5596 (CAR #:FUSION5595))) (DECLARE (IGNORABLE #:GEN5596)) (LET ((#:GEN5597 (CDR #:FUSION5595))) (DECLARE (IGNORABLE #:GEN5597)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5598 T) (MATCH1 NIL ((GUARD1 #:IT6195 T) (MATCH2*+ (#:GEN5596 #:GEN5597 #:PAT5598) (T T T) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (GUARD1 (#:INTERSECTION5219 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5219 (GUARD1 (#:CONS5218 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5218) (CAR #:CONS5218) (GUARD1 (#:IT5220 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5220 'UNSIGNED-BYTE)) (CDR #:CONS5218) (GUARD1 (#:CONS5221 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5221) (CAR #:CONS5221) (GUARD1 (#:INTERSECTION5223 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5223 (GUARD1 (#:IT5222 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT5222 'FIXNUM) #:INTERSECTION5223 (GUARD1 (#:N5216 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5221) (GUARD1 (#:IT5224 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5224))) #:INTERSECTION5219 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (GUARD1 (#:INTERSECTION5226 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5226 (GUARD1 (#:CONS5225 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5225) (CAR #:CONS5225) (GUARD1 (#:IT5227 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5227 'UNSIGNED-BYTE)) (CDR #:CONS5225) (GUARD1 (#:CONS5228 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5228) (CAR #:CONS5228) (GUARD1 (#:INTERSECTION5231 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5231 (GUARD1 (#:IT5229 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT5229 '*) #:INTERSECTION5231 (GUARD1 (#:IT5230 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5228) (GUARD1 (#:IT5232 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5232))) #:INTERSECTION5226 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (GUARD1 (#:INTERSECTION5236 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5236 (GUARD1 (#:INTERSECTION5235 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5235 (GUARD1 (#:CONS5233 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5233) (CAR #:CONS5233) (GUARD1 (#:IT5237 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5237 'UNSIGNED-BYTE)) (CDR #:CONS5233) (GUARD1 (#:IT5238 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5238)) #:INTERSECTION5235 (GUARD1 (#:BIND5234 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION5236 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6196 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6197 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5219 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5219 (GUARD1 (#:CONS5218 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5218) (CAR #:CONS5218) (GUARD1 (#:IT5220 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5220 'UNSIGNED-BYTE)) (CDR #:CONS5218) (GUARD1 (#:CONS5221 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5221) (CAR #:CONS5221) (GUARD1 (#:INTERSECTION5223 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5223 (GUARD1 (#:IT5222 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT5222 'FIXNUM) #:INTERSECTION5223 (GUARD1 (#:N5216 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5221) (GUARD1 (#:IT5224 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5224))) #:INTERSECTION5219 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6198 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6199 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6200 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5226 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5226 (GUARD1 (#:CONS5225 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5225) (CAR #:CONS5225) (GUARD1 (#:IT5227 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5227 'UNSIGNED-BYTE)) (CDR #:CONS5225) (GUARD1 (#:CONS5228 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5228) (CAR #:CONS5228) (GUARD1 (#:INTERSECTION5231 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5231 (GUARD1 (#:IT5229 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT5229 '*) #:INTERSECTION5231 (GUARD1 (#:IT5230 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5228) (GUARD1 (#:IT5232 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5232))) #:INTERSECTION5226 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6201 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6202 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6203 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5236 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5236 (GUARD1 (#:INTERSECTION5235 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5235 (GUARD1 (#:CONS5233 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5233) (CAR #:CONS5233) (GUARD1 (#:IT5237 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5237 'UNSIGNED-BYTE)) (CDR #:CONS5233) (GUARD1 (#:IT5238 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5238)) #:INTERSECTION5235 (GUARD1 (#:BIND5234 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION5236 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6204 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6205 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6206 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5219 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5219 (GUARD1 (#:CONS5218 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5218) (CAR #:CONS5218) (GUARD1 (#:IT5220 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5220 'UNSIGNED-BYTE)) (CDR #:CONS5218) (GUARD1 (#:CONS5221 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5221) (CAR #:CONS5221) (GUARD1 (#:INTERSECTION5223 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5223 (GUARD1 (#:IT5222 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT5222 'FIXNUM) #:INTERSECTION5223 (GUARD1 (#:N5216 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5221) (GUARD1 (#:IT5224 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5224))) #:INTERSECTION5219 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6207 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6208 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6209 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5226 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5226 (GUARD1 (#:CONS5225 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5225) (CAR #:CONS5225) (GUARD1 (#:IT5227 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5227 'UNSIGNED-BYTE)) (CDR #:CONS5225) (GUARD1 (#:CONS5228 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5228) (CAR #:CONS5228) (GUARD1 (#:INTERSECTION5231 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5231 (GUARD1 (#:IT5229 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT5229 '*) #:INTERSECTION5231 (GUARD1 (#:IT5230 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5228) (GUARD1 (#:IT5232 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5232))) #:INTERSECTION5226 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6210 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6211 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6212 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5236 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5236 (GUARD1 (#:INTERSECTION5235 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5235 (GUARD1 (#:CONS5233 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5233) (CAR #:CONS5233) (GUARD1 (#:IT5237 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5237 'UNSIGNED-BYTE)) (CDR #:CONS5233) (GUARD1 (#:IT5238 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5238)) #:INTERSECTION5235 (GUARD1 (#:BIND5234 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION5236 (GUARD1 (#:BIND5217 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6213 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6214 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6215 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5602 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5602)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5602) (LOCALLY (DECLARE (TYPE CONS #:FUSION5602)) (LET ((#:CONS5188 #:FUSION5602)) (DECLARE (IGNORABLE #:CONS5188)) (LOCALLY (DECLARE (TYPE CONS #:CONS5188)) (LET ((#:GEN5603 (CAR #:FUSION5602))) (DECLARE (IGNORABLE #:GEN5603)) (LET ((#:GEN5604 (CDR #:FUSION5602))) (DECLARE (IGNORABLE #:GEN5604)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5605 T) (MATCH1 NIL ((GUARD1 #:IT6216 T) (MATCH2*+ (#:GEN5603 #:GEN5604 #:PAT5605) (T T T) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (GUARD1 (#:INTERSECTION5245 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5245 (GUARD1 (#:CONS5240 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5240) (CAR #:CONS5240) (GUARD1 (#:IT5241 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5241 'SIGNED-BYTE)) (CDR #:CONS5240) (GUARD1 (#:CONS5242 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5242) (CAR #:CONS5242) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N5239 'FIXNUM)) (CDR #:CONS5242) (GUARD1 (#:IT5243 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5243))) #:INTERSECTION5245 (GUARD1 (#:LIFT-DUMMY5244 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (GUARD1 (#:INTERSECTION5251 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5251 (GUARD1 (#:CONS5246 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5246) (CAR #:CONS5246) (GUARD1 (#:IT5247 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5247 'SIGNED-BYTE)) (CDR #:CONS5246) (GUARD1 (#:CONS5248 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5248) (CAR #:CONS5248) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N5239)) (CDR #:CONS5248) (GUARD1 (#:IT5249 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5249))) #:INTERSECTION5251 (GUARD1 (#:LIFT-DUMMY5250 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (GUARD1 (#:INTERSECTION5255 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5255 (GUARD1 (#:CONS5252 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5252) (CAR #:CONS5252) (GUARD1 (#:IT5253 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5253 'SIGNED-BYTE)) (CDR #:CONS5252) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N5239)) #:INTERSECTION5255 (GUARD1 (#:LIFT-DUMMY5254 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (GUARD1 (#:INTERSECTION5257 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5257 (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N5239) #:INTERSECTION5257 (GUARD1 (#:LIFT-DUMMY5256 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6217 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6218 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5245 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5245 (GUARD1 (#:CONS5240 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5240) (CAR #:CONS5240) (GUARD1 (#:IT5241 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5241 'SIGNED-BYTE)) (CDR #:CONS5240) (GUARD1 (#:CONS5242 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5242) (CAR #:CONS5242) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N5239 'FIXNUM)) (CDR #:CONS5242) (GUARD1 (#:IT5243 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5243))) #:INTERSECTION5245 (GUARD1 (#:LIFT-DUMMY5244 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6219 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6220 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6221 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5251 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5251 (GUARD1 (#:CONS5246 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5246) (CAR #:CONS5246) (GUARD1 (#:IT5247 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5247 'SIGNED-BYTE)) (CDR #:CONS5246) (GUARD1 (#:CONS5248 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5248) (CAR #:CONS5248) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N5239)) (CDR #:CONS5248) (GUARD1 (#:IT5249 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5249))) #:INTERSECTION5251 (GUARD1 (#:LIFT-DUMMY5250 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6222 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6223 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6224 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5255 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5255 (GUARD1 (#:CONS5252 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5252) (CAR #:CONS5252) (GUARD1 (#:IT5253 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5253 'SIGNED-BYTE)) (CDR #:CONS5252) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N5239)) #:INTERSECTION5255 (GUARD1 (#:LIFT-DUMMY5254 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6225 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6226 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6227 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5257 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5257 (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N5239) #:INTERSECTION5257 (GUARD1 (#:LIFT-DUMMY5256 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6228 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6229 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6230 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5245 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5245 (GUARD1 (#:CONS5240 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5240) (CAR #:CONS5240) (GUARD1 (#:IT5241 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5241 'SIGNED-BYTE)) (CDR #:CONS5240) (GUARD1 (#:CONS5242 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5242) (CAR #:CONS5242) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N5239 'FIXNUM)) (CDR #:CONS5242) (GUARD1 (#:IT5243 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5243))) #:INTERSECTION5245 (GUARD1 (#:LIFT-DUMMY5244 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6231 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6232 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6233 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5251 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5251 (GUARD1 (#:CONS5246 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5246) (CAR #:CONS5246) (GUARD1 (#:IT5247 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5247 'SIGNED-BYTE)) (CDR #:CONS5246) (GUARD1 (#:CONS5248 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5248) (CAR #:CONS5248) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N5239)) (CDR #:CONS5248) (GUARD1 (#:IT5249 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5249))) #:INTERSECTION5251 (GUARD1 (#:LIFT-DUMMY5250 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6234 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6235 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6236 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5255 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5255 (GUARD1 (#:CONS5252 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5252) (CAR #:CONS5252) (GUARD1 (#:IT5253 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5253 'SIGNED-BYTE)) (CDR #:CONS5252) (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N5239)) #:INTERSECTION5255 (GUARD1 (#:LIFT-DUMMY5254 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6237 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6238 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6239 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5257 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5257 (GUARD1 (#:N5239 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N5239) #:INTERSECTION5257 (GUARD1 (#:LIFT-DUMMY5256 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6240 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6241 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6242 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5609 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5609)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5609) (LOCALLY (DECLARE (TYPE CONS #:FUSION5609)) (LET ((#:CONS5188 #:FUSION5609)) (DECLARE (IGNORABLE #:CONS5188)) (LOCALLY (DECLARE (TYPE CONS #:CONS5188)) (LET ((#:GEN5610 (CAR #:FUSION5609))) (DECLARE (IGNORABLE #:GEN5610)) (LET ((#:GEN5611 (CDR #:FUSION5609))) (DECLARE (IGNORABLE #:GEN5611)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5612 T) (MATCH1 NIL ((GUARD1 #:IT6243 T) (MATCH2*+ (#:GEN5610 #:GEN5611 #:PAT5612) (T T T) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (GUARD1 (#:INTERSECTION5261 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5261 (GUARD1 (#:IT5258 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5258 'BIGNUM) #:INTERSECTION5261 (GUARD1 (#:BIND5259 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5261 (GUARD1 (#:BIND5260 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (OR1 (GUARD1 (#:INTERSECTION5265 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5265 (GUARD1 (#:CONS5262 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5262) (CAR #:CONS5262) (GUARD1 (#:IT5266 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5266 'BIGNUM)) (CDR #:CONS5262) (GUARD1 (#:IT5267 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5267)) #:INTERSECTION5265 (GUARD1 (#:BIND5263 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5265 (GUARD1 (#:BIND5264 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6244 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6245 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5261 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5261 (GUARD1 (#:IT5258 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5258 'BIGNUM) #:INTERSECTION5261 (GUARD1 (#:BIND5259 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5261 (GUARD1 (#:BIND5260 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6246 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6247 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6248 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5265 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5265 (GUARD1 (#:CONS5262 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5262) (CAR #:CONS5262) (GUARD1 (#:IT5266 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5266 'BIGNUM)) (CDR #:CONS5262) (GUARD1 (#:IT5267 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5267)) #:INTERSECTION5265 (GUARD1 (#:BIND5263 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5265 (GUARD1 (#:BIND5264 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6249 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6250 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6251 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5261 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5261 (GUARD1 (#:IT5258 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5258 'BIGNUM) #:INTERSECTION5261 (GUARD1 (#:BIND5259 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5261 (GUARD1 (#:BIND5260 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6252 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6253 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6254 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5265 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5265 (GUARD1 (#:CONS5262 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5262) (CAR #:CONS5262) (GUARD1 (#:IT5266 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5266 'BIGNUM)) (CDR #:CONS5262) (GUARD1 (#:IT5267 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5267)) #:INTERSECTION5265 (GUARD1 (#:BIND5263 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5265 (GUARD1 (#:BIND5264 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6255 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6256 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6257 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5616 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5616)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5616) (LOCALLY (DECLARE (TYPE CONS #:FUSION5616)) (LET ((#:CONS5188 #:FUSION5616)) (DECLARE (IGNORABLE #:CONS5188)) (LOCALLY (DECLARE (TYPE CONS #:CONS5188)) (LET ((#:GEN5617 (CAR #:FUSION5616))) (DECLARE (IGNORABLE #:GEN5617)) (LET ((#:GEN5618 (CDR #:FUSION5616))) (DECLARE (IGNORABLE #:GEN5618)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5619 T) (MATCH1 NIL ((GUARD1 #:IT6258 T) (MATCH2*+ (#:GEN5617 #:GEN5618 #:PAT5619) (T T T) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (GUARD1 (#:INTERSECTION5271 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5271 (GUARD1 (#:IT5268 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5268 'FIXNUM) #:INTERSECTION5271 (GUARD1 (#:BIND5269 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5271 (GUARD1 (#:BIND5270 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (OR1 (GUARD1 (#:INTERSECTION5275 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5275 (GUARD1 (#:CONS5272 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5272) (CAR #:CONS5272) (GUARD1 (#:IT5276 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5276 'FIXNUM)) (CDR #:CONS5272) (GUARD1 (#:IT5277 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5277)) #:INTERSECTION5275 (GUARD1 (#:BIND5273 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5275 (GUARD1 (#:BIND5274 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6259 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6260 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5271 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5271 (GUARD1 (#:IT5268 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5268 'FIXNUM) #:INTERSECTION5271 (GUARD1 (#:BIND5269 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5271 (GUARD1 (#:BIND5270 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6261 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6262 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6263 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5275 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5275 (GUARD1 (#:CONS5272 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5272) (CAR #:CONS5272) (GUARD1 (#:IT5276 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5276 'FIXNUM)) (CDR #:CONS5272) (GUARD1 (#:IT5277 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5277)) #:INTERSECTION5275 (GUARD1 (#:BIND5273 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5275 (GUARD1 (#:BIND5274 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6264 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6265 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6266 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5271 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5271 (GUARD1 (#:IT5268 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5268 'FIXNUM) #:INTERSECTION5271 (GUARD1 (#:BIND5269 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5271 (GUARD1 (#:BIND5270 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6267 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6268 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6269 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5275 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5275 (GUARD1 (#:CONS5272 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5272) (CAR #:CONS5272) (GUARD1 (#:IT5276 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5276 'FIXNUM)) (CDR #:CONS5272) (GUARD1 (#:IT5277 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5277)) #:INTERSECTION5275 (GUARD1 (#:BIND5273 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5275 (GUARD1 (#:BIND5274 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6270 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6271 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6272 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5623 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5623)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5623) (LOCALLY (DECLARE (TYPE CONS #:FUSION5623)) (LET ((#:CONS5188 #:FUSION5623)) (DECLARE (IGNORABLE #:CONS5188)) (LOCALLY (DECLARE (TYPE CONS #:CONS5188)) (LET ((#:GEN5624 (CAR #:FUSION5623))) (DECLARE (IGNORABLE #:GEN5624)) (LET ((#:GEN5625 (CDR #:FUSION5623))) (DECLARE (IGNORABLE #:GEN5625)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5626 T) (MATCH1 NIL ((GUARD1 #:IT6273 T) (MATCH2*+ (#:GEN5624 #:GEN5625 #:PAT5626) (T T T) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (GUARD1 (#:INTERSECTION5281 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5281 (GUARD1 (#:IT5278 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5278 'RATIO) #:INTERSECTION5281 (GUARD1 (#:BIND5279 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5281 (GUARD1 (#:BIND5280 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (OR1 (GUARD1 (#:INTERSECTION5285 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5285 (GUARD1 (#:CONS5282 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5282) (CAR #:CONS5282) (GUARD1 (#:IT5286 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5286 'RATIO)) (CDR #:CONS5282) (GUARD1 (#:IT5287 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5287)) #:INTERSECTION5285 (GUARD1 (#:BIND5283 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5285 (GUARD1 (#:BIND5284 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6274 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6275 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5281 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5281 (GUARD1 (#:IT5278 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5278 'RATIO) #:INTERSECTION5281 (GUARD1 (#:BIND5279 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5281 (GUARD1 (#:BIND5280 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6276 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6277 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6278 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5285 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5285 (GUARD1 (#:CONS5282 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5282) (CAR #:CONS5282) (GUARD1 (#:IT5286 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5286 'RATIO)) (CDR #:CONS5282) (GUARD1 (#:IT5287 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5287)) #:INTERSECTION5285 (GUARD1 (#:BIND5283 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5285 (GUARD1 (#:BIND5284 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6279 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6280 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6281 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5281 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5281 (GUARD1 (#:IT5278 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5278 'RATIO) #:INTERSECTION5281 (GUARD1 (#:BIND5279 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5281 (GUARD1 (#:BIND5280 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6282 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6283 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6284 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5285 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5285 (GUARD1 (#:CONS5282 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5282) (CAR #:CONS5282) (GUARD1 (#:IT5286 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5286 'RATIO)) (CDR #:CONS5282) (GUARD1 (#:IT5287 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5287)) #:INTERSECTION5285 (GUARD1 (#:BIND5283 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5285 (GUARD1 (#:BIND5284 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6285 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6286 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6287 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5630 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5630)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5630) (LOCALLY (DECLARE (TYPE CONS #:FUSION5630)) (LET ((#:CONS5188 #:FUSION5630)) (DECLARE (IGNORABLE #:CONS5188)) (LOCALLY (DECLARE (TYPE CONS #:CONS5188)) (LET ((#:GEN5631 (CAR #:FUSION5630))) (DECLARE (IGNORABLE #:GEN5631)) (LET ((#:GEN5632 (CDR #:FUSION5630))) (DECLARE (IGNORABLE #:GEN5632)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5633 T) (MATCH1 NIL ((GUARD1 #:IT6288 T) (MATCH2*+ (#:GEN5631 #:GEN5632 #:PAT5633) (T T T) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (OR1 (GUARD1 (#:INTERSECTION5291 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5291 (GUARD1 (#:IT5290 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5290 'INTEGER) #:INTERSECTION5291 (GUARD1 (#:BIND5288 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5291 (GUARD1 (#:BIND5289 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5293 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5293 (GUARD1 (#:IT5292 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5292 'RATIONAL) #:INTERSECTION5293 (GUARD1 (#:BIND5288 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5293 (GUARD1 (#:BIND5289 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5189 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5189 'RATIONAL)) (GUARD1 (#:CONS5190 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5190) (CDR #:CONS5190) (GUARD1 (#:CONS5191 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5191) (CDR #:CONS5191) (GUARD1 (#:IT5192 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5192)))) (OR1 (GUARD1 (#:CONS5294 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5294) (CAR #:CONS5294) (OR1 (GUARD1 (#:IT5295 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5295 'INTEGER)) (GUARD1 (#:IT5296 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5296 'RATIONAL))) (CDR #:CONS5294) (GUARD1 (#:CONS5297 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5297) (CDR #:CONS5297) (GUARD1 (#:CONS5298 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5298) (CDR #:CONS5298) (GUARD1 (#:IT5299 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5299))))) (GUARD1 (#:INTERSECTION5302 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5302 (GUARD1 (#:CONS5300 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5300) (CAR #:CONS5300) (OR1 (GUARD1 (#:IT5303 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5303 'INTEGER)) (GUARD1 (#:IT5304 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5304 'RATIONAL))) (CDR #:CONS5300) (GUARD1 (#:CONS5305 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5305) (CDR #:CONS5305) (GUARD1 (#:IT5306 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5306))) #:INTERSECTION5302 (GUARD1 (#:BIND5301 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5310 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5310 (GUARD1 (#:CONS5307 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5307) (CAR #:CONS5307) (OR1 (GUARD1 (#:IT5311 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5311 'INTEGER)) (GUARD1 (#:IT5312 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5312 'RATIONAL))) (CDR #:CONS5307) (GUARD1 (#:IT5313 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5313)) #:INTERSECTION5310 (GUARD1 (#:BIND5308 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5310 (GUARD1 (#:BIND5309 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6289 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6290 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5291 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5291 (GUARD1 (#:IT5290 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5290 'INTEGER) #:INTERSECTION5291 (GUARD1 (#:BIND5288 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5291 (GUARD1 (#:BIND5289 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5293 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5293 (GUARD1 (#:IT5292 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5292 'RATIONAL) #:INTERSECTION5293 (GUARD1 (#:BIND5288 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5293 (GUARD1 (#:BIND5289 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6291 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6292 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6293 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5195 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5195)) (LET ((#:CONS5193 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:CONS5193)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5193) (LOCALLY (DECLARE (TYPE CONS #:CONS5193)) (LET ((#:IT5196 (CAR #:CONS5193))) (DECLARE (IGNORABLE #:IT5196)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5196 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5196)) (LET ((#:CONS5197 (CDR #:CONS5193))) (DECLARE (IGNORABLE #:CONS5197)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5197) (LOCALLY (DECLARE (TYPE CONS #:CONS5197)) (LET ((#:IT5198 (CDR #:CONS5197))) (DECLARE (IGNORABLE #:IT5198)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5198) (LOCALLY (DECLARE (TYPE NULL #:IT5198)) (LET ((#:BIND5194 #:INTERSECTION5195)) (DECLARE (IGNORABLE #:BIND5194)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS5294 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5294) (CAR #:CONS5294) (OR1 (GUARD1 (#:IT5295 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5295 'INTEGER)) (GUARD1 (#:IT5296 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5296 'RATIONAL))) (CDR #:CONS5294) (GUARD1 (#:CONS5297 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5297) (CDR #:CONS5297) (GUARD1 (#:CONS5298 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5298) (CDR #:CONS5298) (GUARD1 (#:IT5299 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5299))))) (GUARD1 (#:INTERSECTION5302 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5302 (GUARD1 (#:CONS5300 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5300) (CAR #:CONS5300) (OR1 (GUARD1 (#:IT5303 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5303 'INTEGER)) (GUARD1 (#:IT5304 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5304 'RATIONAL))) (CDR #:CONS5300) (GUARD1 (#:CONS5305 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5305) (CDR #:CONS5305) (GUARD1 (#:IT5306 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5306))) #:INTERSECTION5302 (GUARD1 (#:BIND5301 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5310 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5310 (GUARD1 (#:CONS5307 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5307) (CAR #:CONS5307) (OR1 (GUARD1 (#:IT5311 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5311 'INTEGER)) (GUARD1 (#:IT5312 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5312 'RATIONAL))) (CDR #:CONS5307) (GUARD1 (#:IT5313 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5313)) #:INTERSECTION5310 (GUARD1 (#:BIND5308 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5310 (GUARD1 (#:BIND5309 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6294 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6295 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6296 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5291 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5291 (GUARD1 (#:IT5290 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5290 'INTEGER) #:INTERSECTION5291 (GUARD1 (#:BIND5288 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5291 (GUARD1 (#:BIND5289 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5293 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5293 (GUARD1 (#:IT5292 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5292 'RATIONAL) #:INTERSECTION5293 (GUARD1 (#:BIND5288 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5293 (GUARD1 (#:BIND5289 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6297 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6298 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6299 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5202 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5202)) (LET ((#:CONS5199 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:CONS5199)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5199) (LOCALLY (DECLARE (TYPE CONS #:CONS5199)) (LET ((#:IT5203 (CAR #:CONS5199))) (DECLARE (IGNORABLE #:IT5203)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5203 'RATIONAL) (LOCALLY (DECLARE (TYPE (EQL RATIONAL) #:IT5203)) (LET ((#:IT5204 (CDR #:CONS5199))) (DECLARE (IGNORABLE #:IT5204)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5204) (LOCALLY (DECLARE (TYPE NULL #:IT5204)) (LET ((#:BIND5200 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5200)) (LET ((#:BIND5201 #:INTERSECTION5202)) (DECLARE (IGNORABLE #:BIND5201)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS5294 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5294) (CAR #:CONS5294) (OR1 (GUARD1 (#:IT5295 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5295 'INTEGER)) (GUARD1 (#:IT5296 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5296 'RATIONAL))) (CDR #:CONS5294) (GUARD1 (#:CONS5297 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5297) (CDR #:CONS5297) (GUARD1 (#:CONS5298 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5298) (CDR #:CONS5298) (GUARD1 (#:IT5299 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5299))))) (GUARD1 (#:INTERSECTION5302 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5302 (GUARD1 (#:CONS5300 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5300) (CAR #:CONS5300) (OR1 (GUARD1 (#:IT5303 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5303 'INTEGER)) (GUARD1 (#:IT5304 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5304 'RATIONAL))) (CDR #:CONS5300) (GUARD1 (#:CONS5305 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5305) (CDR #:CONS5305) (GUARD1 (#:IT5306 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5306))) #:INTERSECTION5302 (GUARD1 (#:BIND5301 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5310 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5310 (GUARD1 (#:CONS5307 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5307) (CAR #:CONS5307) (OR1 (GUARD1 (#:IT5311 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5311 'INTEGER)) (GUARD1 (#:IT5312 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5312 'RATIONAL))) (CDR #:CONS5307) (GUARD1 (#:IT5313 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5313)) #:INTERSECTION5310 (GUARD1 (#:BIND5308 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5310 (GUARD1 (#:BIND5309 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6300 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6301 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6302 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5317 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5317)) (LET ((#:IT5314 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:IT5314)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5314 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5314)) (LET ((#:BIND5315 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5315)) (LET ((#:BIND5316 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5316)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5338 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5338 (GUARD1 (#:CONS5336 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5336) (CAR #:CONS5336) (GUARD1 (#:IT5339 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT5339 'MOD)) (CDR #:CONS5336) (GUARD1 (#:CONS5340 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5340) (CAR #:CONS5340) (GUARD1 (#:N5335 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS5340) (GUARD1 (#:IT5341 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5341))) #:INTERSECTION5338 (GUARD1 (#:BIND5337 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6303 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6304 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6305 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5317 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5317)) (LET ((#:IT5314 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:IT5314)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5314 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5314)) (LET ((#:BIND5315 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5315)) (LET ((#:BIND5316 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5316)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5345 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5345 (GUARD1 (#:IT5342 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT5342 'BIT) #:INTERSECTION5345 (GUARD1 (#:BIND5343 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5345 (GUARD1 (#:BIND5344 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6306 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6307 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6308 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5317 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5317)) (LET ((#:IT5314 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:IT5314)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5314 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5314)) (LET ((#:BIND5315 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5315)) (LET ((#:BIND5316 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5316)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5349 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5349 (GUARD1 (#:CONS5348 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5348) (CAR #:CONS5348) (GUARD1 (#:IT5350 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5350 'UNSIGNED-BYTE)) (CDR #:CONS5348) (GUARD1 (#:CONS5351 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5351) (CAR #:CONS5351) (GUARD1 (#:INTERSECTION5353 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5353 (GUARD1 (#:IT5352 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT5352 'FIXNUM) #:INTERSECTION5353 (GUARD1 (#:N5346 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5351) (GUARD1 (#:IT5354 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5354))) #:INTERSECTION5349 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5356 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5356 (GUARD1 (#:CONS5355 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5355) (CAR #:CONS5355) (GUARD1 (#:IT5357 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5357 'UNSIGNED-BYTE)) (CDR #:CONS5355) (GUARD1 (#:CONS5358 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5358) (CAR #:CONS5358) (GUARD1 (#:INTERSECTION5361 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5361 (GUARD1 (#:IT5359 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT5359 '*) #:INTERSECTION5361 (GUARD1 (#:IT5360 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5358) (GUARD1 (#:IT5362 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5362))) #:INTERSECTION5356 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5366 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5366 (GUARD1 (#:INTERSECTION5365 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5365 (GUARD1 (#:CONS5363 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5363) (CAR #:CONS5363) (GUARD1 (#:IT5367 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5367 'UNSIGNED-BYTE)) (CDR #:CONS5363) (GUARD1 (#:IT5368 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5368)) #:INTERSECTION5365 (GUARD1 (#:BIND5364 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION5366 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6309 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6310 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6311 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5317 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5317)) (LET ((#:IT5314 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:IT5314)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5314 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5314)) (LET ((#:BIND5315 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5315)) (LET ((#:BIND5316 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5316)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5375 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5375 (GUARD1 (#:CONS5370 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5370) (CAR #:CONS5370) (GUARD1 (#:IT5371 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5371 'SIGNED-BYTE)) (CDR #:CONS5370) (GUARD1 (#:CONS5372 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5372) (CAR #:CONS5372) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N5369 'FIXNUM)) (CDR #:CONS5372) (GUARD1 (#:IT5373 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5373))) #:INTERSECTION5375 (GUARD1 (#:LIFT-DUMMY5374 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION5381 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5381 (GUARD1 (#:CONS5376 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5376) (CAR #:CONS5376) (GUARD1 (#:IT5377 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5377 'SIGNED-BYTE)) (CDR #:CONS5376) (GUARD1 (#:CONS5378 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5378) (CAR #:CONS5378) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N5369)) (CDR #:CONS5378) (GUARD1 (#:IT5379 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5379))) #:INTERSECTION5381 (GUARD1 (#:LIFT-DUMMY5380 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION5385 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5385 (GUARD1 (#:CONS5382 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5382) (CAR #:CONS5382) (GUARD1 (#:IT5383 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5383 'SIGNED-BYTE)) (CDR #:CONS5382) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N5369)) #:INTERSECTION5385 (GUARD1 (#:LIFT-DUMMY5384 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (GUARD1 (#:INTERSECTION5387 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5387 (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N5369) #:INTERSECTION5387 (GUARD1 (#:LIFT-DUMMY5386 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (MATCH1 NIL ((GUARD1 #:IT6312 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6313 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6314 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5317 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5317)) (LET ((#:IT5314 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:IT5314)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5314 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5314)) (LET ((#:BIND5315 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5315)) (LET ((#:BIND5316 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5316)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5391 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5391 (GUARD1 (#:IT5388 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5388 'BIGNUM) #:INTERSECTION5391 (GUARD1 (#:BIND5389 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5391 (GUARD1 (#:BIND5390 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION5395 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5395 (GUARD1 (#:CONS5392 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5392) (CAR #:CONS5392) (GUARD1 (#:IT5396 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5396 'BIGNUM)) (CDR #:CONS5392) (GUARD1 (#:IT5397 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5397)) #:INTERSECTION5395 (GUARD1 (#:BIND5393 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5395 (GUARD1 (#:BIND5394 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT6315 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6316 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6317 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5317 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5317)) (LET ((#:IT5314 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:IT5314)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5314 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5314)) (LET ((#:BIND5315 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5315)) (LET ((#:BIND5316 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5316)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5401 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5401 (GUARD1 (#:IT5398 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5398 'FIXNUM) #:INTERSECTION5401 (GUARD1 (#:BIND5399 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5401 (GUARD1 (#:BIND5400 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION5405 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5405 (GUARD1 (#:CONS5402 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5402) (CAR #:CONS5402) (GUARD1 (#:IT5406 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5406 'FIXNUM)) (CDR #:CONS5402) (GUARD1 (#:IT5407 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5407)) #:INTERSECTION5405 (GUARD1 (#:BIND5403 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5405 (GUARD1 (#:BIND5404 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT6318 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6319 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6320 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5317 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5317)) (LET ((#:IT5314 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:IT5314)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5314 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5314)) (LET ((#:BIND5315 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5315)) (LET ((#:BIND5316 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5316)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5411 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5411 (GUARD1 (#:IT5408 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5408 'RATIO) #:INTERSECTION5411 (GUARD1 (#:BIND5409 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5411 (GUARD1 (#:BIND5410 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (OR1 (GUARD1 (#:INTERSECTION5415 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5415 (GUARD1 (#:CONS5412 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5412) (CAR #:CONS5412) (GUARD1 (#:IT5416 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5416 'RATIO)) (CDR #:CONS5412) (GUARD1 (#:IT5417 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5417)) #:INTERSECTION5415 (GUARD1 (#:BIND5413 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5415 (GUARD1 (#:BIND5414 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT6321 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6322 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6323 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5317 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5317)) (LET ((#:IT5314 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:IT5314)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5314 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5314)) (LET ((#:BIND5315 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5315)) (LET ((#:BIND5316 #:INTERSECTION5317)) (DECLARE (IGNORABLE #:BIND5316)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (OR1 (GUARD1 (#:INTERSECTION5421 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5421 (GUARD1 (#:IT5420 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5420 'FLOAT) #:INTERSECTION5421 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5421 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5423 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5423 (GUARD1 (#:IT5422 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5422 'SHORT-FLOAT) #:INTERSECTION5423 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5423 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5425 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5425 (GUARD1 (#:IT5424 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5424 'SINGLE-FLOAT) #:INTERSECTION5425 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5425 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5427 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5427 (GUARD1 (#:IT5426 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5426 'DOUBLE-FLOAT) #:INTERSECTION5427 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5427 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5429 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5429 (GUARD1 (#:IT5428 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5428 'LONG-FLOAT) #:INTERSECTION5429 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5429 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5431 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5431 (GUARD1 (#:IT5430 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5430 'INTEGER) #:INTERSECTION5431 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5431 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5433 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5433 (GUARD1 (#:IT5432 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5432 'RATIONAL) #:INTERSECTION5433 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5433 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5435 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5435 (GUARD1 (#:IT5434 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5434 'REAL) #:INTERSECTION5435 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5435 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (OR1 (GUARD1 (#:CONS5436 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5436) (CAR #:CONS5436) (OR1 (GUARD1 (#:IT5437 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5437 'FLOAT)) (GUARD1 (#:IT5438 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5438 'SHORT-FLOAT)) (GUARD1 (#:IT5439 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5439 'SINGLE-FLOAT)) (GUARD1 (#:IT5440 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5440 'DOUBLE-FLOAT)) (GUARD1 (#:IT5441 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5441 'LONG-FLOAT)) (GUARD1 (#:IT5442 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5442 'INTEGER)) (GUARD1 (#:IT5443 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5443 'RATIONAL)) (GUARD1 (#:IT5444 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5444 'REAL))) (CDR #:CONS5436) (GUARD1 (#:CONS5445 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5445) (CDR #:CONS5445) (GUARD1 (#:CONS5446 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5446) (CDR #:CONS5446) (GUARD1 (#:IT5447 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5447))))) (GUARD1 (#:INTERSECTION5450 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5450 (GUARD1 (#:CONS5448 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5448) (CAR #:CONS5448) (OR1 (GUARD1 (#:IT5451 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5451 'FLOAT)) (GUARD1 (#:IT5452 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5452 'SHORT-FLOAT)) (GUARD1 (#:IT5453 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5453 'SINGLE-FLOAT)) (GUARD1 (#:IT5454 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5454 'DOUBLE-FLOAT)) (GUARD1 (#:IT5455 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5455 'LONG-FLOAT)) (GUARD1 (#:IT5456 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5456 'INTEGER)) (GUARD1 (#:IT5457 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5457 'RATIONAL)) (GUARD1 (#:IT5458 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5458 'REAL))) (CDR #:CONS5448) (GUARD1 (#:CONS5459 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5459) (CDR #:CONS5459) (GUARD1 (#:IT5460 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5460))) #:INTERSECTION5450 (GUARD1 (#:BIND5449 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5464 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5464 (GUARD1 (#:CONS5461 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5461) (CAR #:CONS5461) (OR1 (GUARD1 (#:IT5465 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5465 'FLOAT)) (GUARD1 (#:IT5466 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5466 'SHORT-FLOAT)) (GUARD1 (#:IT5467 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5467 'SINGLE-FLOAT)) (GUARD1 (#:IT5468 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5468 'DOUBLE-FLOAT)) (GUARD1 (#:IT5469 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5469 'LONG-FLOAT)) (GUARD1 (#:IT5470 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5470 'INTEGER)) (GUARD1 (#:IT5471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5471 'RATIONAL)) (GUARD1 (#:IT5472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5472 'REAL))) (CDR #:CONS5461) (GUARD1 (#:IT5473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5473)) #:INTERSECTION5464 (GUARD1 (#:BIND5462 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5464 (GUARD1 (#:BIND5463 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (MATCH1 NIL ((GUARD1 #:IT6324 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6325 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6326 T) (TRIVIA.NEXT:NEXT)))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS5318 #:WHAT16458)) (DECLARE (IGNORABLE #:CONS5318)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5318) (LOCALLY (DECLARE (TYPE CONS #:CONS5318)) (LET ((#:IT5319 (CAR #:CONS5318))) (DECLARE (IGNORABLE #:IT5319)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5319 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5319)) (LET ((#:CONS5320 (CDR #:CONS5318))) (DECLARE (IGNORABLE #:CONS5320)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5320) (LOCALLY (DECLARE (TYPE CONS #:CONS5320)) (LET ((#:CONS5321 (CDR #:CONS5320))) (DECLARE (IGNORABLE #:CONS5321)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5321) (LOCALLY (DECLARE (TYPE CONS #:CONS5321)) (LET ((#:IT5322 (CDR #:CONS5321))) (DECLARE (IGNORABLE #:IT5322)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5322) (LOCALLY (DECLARE (TYPE NULL #:IT5322)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5338 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5338 (GUARD1 (#:CONS5336 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5336) (CAR #:CONS5336) (GUARD1 (#:IT5339 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT5339 'MOD)) (CDR #:CONS5336) (GUARD1 (#:CONS5340 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5340) (CAR #:CONS5340) (GUARD1 (#:N5335 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS5340) (GUARD1 (#:IT5341 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5341))) #:INTERSECTION5338 (GUARD1 (#:BIND5337 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6327 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6328 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6329 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5338 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5338 (GUARD1 (#:CONS5336 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5336) (CAR #:CONS5336) (GUARD1 (#:IT5339 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT5339 'MOD)) (CDR #:CONS5336) (GUARD1 (#:CONS5340 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5340) (CAR #:CONS5340) (GUARD1 (#:N5335 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS5340) (GUARD1 (#:IT5341 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5341))) #:INTERSECTION5338 (GUARD1 (#:BIND5337 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6330 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6331 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6332 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5338 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5338 (GUARD1 (#:CONS5336 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5336) (CAR #:CONS5336) (GUARD1 (#:IT5339 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL MOD)) (EQ #:IT5339 'MOD)) (CDR #:CONS5336) (GUARD1 (#:CONS5340 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5340) (CAR #:CONS5340) (GUARD1 (#:N5335 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (CDR #:CONS5340) (GUARD1 (#:IT5341 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5341))) #:INTERSECTION5338 (GUARD1 (#:BIND5337 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6333 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6334 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6335 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS5318 #:WHAT16458)) (DECLARE (IGNORABLE #:CONS5318)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5318) (LOCALLY (DECLARE (TYPE CONS #:CONS5318)) (LET ((#:IT5319 (CAR #:CONS5318))) (DECLARE (IGNORABLE #:IT5319)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5319 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5319)) (LET ((#:CONS5320 (CDR #:CONS5318))) (DECLARE (IGNORABLE #:CONS5320)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5320) (LOCALLY (DECLARE (TYPE CONS #:CONS5320)) (LET ((#:CONS5321 (CDR #:CONS5320))) (DECLARE (IGNORABLE #:CONS5321)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5321) (LOCALLY (DECLARE (TYPE CONS #:CONS5321)) (LET ((#:IT5322 (CDR #:CONS5321))) (DECLARE (IGNORABLE #:IT5322)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5322) (LOCALLY (DECLARE (TYPE NULL #:IT5322)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5345 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5345 (GUARD1 (#:IT5342 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT5342 'BIT) #:INTERSECTION5345 (GUARD1 (#:BIND5343 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5345 (GUARD1 (#:BIND5344 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6336 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6337 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6338 T) (TRIVIA.NEXT:NEXT))))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5345 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5345 (GUARD1 (#:IT5342 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT5342 'BIT) #:INTERSECTION5345 (GUARD1 (#:BIND5343 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5345 (GUARD1 (#:BIND5344 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6339 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6340 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6341 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5345 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5345 (GUARD1 (#:IT5342 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIT)) (EQ #:IT5342 'BIT) #:INTERSECTION5345 (GUARD1 (#:BIND5343 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5345 (GUARD1 (#:BIND5344 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6342 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6343 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6344 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5643 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5643)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5643) (LOCALLY (DECLARE (TYPE CONS #:FUSION5643)) (LET ((#:CONS5318 #:FUSION5643)) (DECLARE (IGNORABLE #:CONS5318)) (LOCALLY (DECLARE (TYPE CONS #:CONS5318)) (LET ((#:GEN5644 (CAR #:FUSION5643))) (DECLARE (IGNORABLE #:GEN5644)) (LET ((#:GEN5645 (CDR #:FUSION5643))) (DECLARE (IGNORABLE #:GEN5645)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5646 T) (MATCH1 NIL ((GUARD1 #:IT6345 T) (MATCH2*+ (#:GEN5644 #:GEN5645 #:PAT5646) (T T T) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (GUARD1 (#:INTERSECTION5349 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5349 (GUARD1 (#:CONS5348 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5348) (CAR #:CONS5348) (GUARD1 (#:IT5350 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5350 'UNSIGNED-BYTE)) (CDR #:CONS5348) (GUARD1 (#:CONS5351 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5351) (CAR #:CONS5351) (GUARD1 (#:INTERSECTION5353 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5353 (GUARD1 (#:IT5352 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT5352 'FIXNUM) #:INTERSECTION5353 (GUARD1 (#:N5346 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5351) (GUARD1 (#:IT5354 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5354))) #:INTERSECTION5349 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (GUARD1 (#:INTERSECTION5356 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5356 (GUARD1 (#:CONS5355 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5355) (CAR #:CONS5355) (GUARD1 (#:IT5357 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5357 'UNSIGNED-BYTE)) (CDR #:CONS5355) (GUARD1 (#:CONS5358 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5358) (CAR #:CONS5358) (GUARD1 (#:INTERSECTION5361 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5361 (GUARD1 (#:IT5359 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT5359 '*) #:INTERSECTION5361 (GUARD1 (#:IT5360 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5358) (GUARD1 (#:IT5362 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5362))) #:INTERSECTION5356 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (GUARD1 (#:INTERSECTION5366 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5366 (GUARD1 (#:INTERSECTION5365 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5365 (GUARD1 (#:CONS5363 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5363) (CAR #:CONS5363) (GUARD1 (#:IT5367 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5367 'UNSIGNED-BYTE)) (CDR #:CONS5363) (GUARD1 (#:IT5368 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5368)) #:INTERSECTION5365 (GUARD1 (#:BIND5364 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION5366 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6346 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6347 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5349 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5349 (GUARD1 (#:CONS5348 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5348) (CAR #:CONS5348) (GUARD1 (#:IT5350 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5350 'UNSIGNED-BYTE)) (CDR #:CONS5348) (GUARD1 (#:CONS5351 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5351) (CAR #:CONS5351) (GUARD1 (#:INTERSECTION5353 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5353 (GUARD1 (#:IT5352 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT5352 'FIXNUM) #:INTERSECTION5353 (GUARD1 (#:N5346 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5351) (GUARD1 (#:IT5354 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5354))) #:INTERSECTION5349 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6348 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6349 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6350 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5356 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5356 (GUARD1 (#:CONS5355 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5355) (CAR #:CONS5355) (GUARD1 (#:IT5357 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5357 'UNSIGNED-BYTE)) (CDR #:CONS5355) (GUARD1 (#:CONS5358 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5358) (CAR #:CONS5358) (GUARD1 (#:INTERSECTION5361 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5361 (GUARD1 (#:IT5359 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT5359 '*) #:INTERSECTION5361 (GUARD1 (#:IT5360 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5358) (GUARD1 (#:IT5362 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5362))) #:INTERSECTION5356 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6351 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6352 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6353 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5366 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5366 (GUARD1 (#:INTERSECTION5365 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5365 (GUARD1 (#:CONS5363 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5363) (CAR #:CONS5363) (GUARD1 (#:IT5367 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5367 'UNSIGNED-BYTE)) (CDR #:CONS5363) (GUARD1 (#:IT5368 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5368)) #:INTERSECTION5365 (GUARD1 (#:BIND5364 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION5366 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6354 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6355 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6356 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5349 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5349 (GUARD1 (#:CONS5348 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5348) (CAR #:CONS5348) (GUARD1 (#:IT5350 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5350 'UNSIGNED-BYTE)) (CDR #:CONS5348) (GUARD1 (#:CONS5351 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5351) (CAR #:CONS5351) (GUARD1 (#:INTERSECTION5353 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5353 (GUARD1 (#:IT5352 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:IT5352 'FIXNUM) #:INTERSECTION5353 (GUARD1 (#:N5346 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5351) (GUARD1 (#:IT5354 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5354))) #:INTERSECTION5349 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6357 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6358 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6359 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5356 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5356 (GUARD1 (#:CONS5355 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5355) (CAR #:CONS5355) (GUARD1 (#:IT5357 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5357 'UNSIGNED-BYTE)) (CDR #:CONS5355) (GUARD1 (#:CONS5358 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5358) (CAR #:CONS5358) (GUARD1 (#:INTERSECTION5361 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5361 (GUARD1 (#:IT5359 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL *)) (EQ #:IT5359 '*) #:INTERSECTION5361 (GUARD1 (#:IT5360 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (CDR #:CONS5358) (GUARD1 (#:IT5362 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5362))) #:INTERSECTION5356 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6360 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6361 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6362 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5366 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5366 (GUARD1 (#:INTERSECTION5365 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5365 (GUARD1 (#:CONS5363 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5363) (CAR #:CONS5363) (GUARD1 (#:IT5367 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL UNSIGNED-BYTE)) (EQ #:IT5367 'UNSIGNED-BYTE)) (CDR #:CONS5363) (GUARD1 (#:IT5368 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5368)) #:INTERSECTION5365 (GUARD1 (#:BIND5364 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)) #:INTERSECTION5366 (GUARD1 (#:BIND5347 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (MATCH1 NIL ((GUARD1 #:IT6363 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6364 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6365 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5650 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5650)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5650) (LOCALLY (DECLARE (TYPE CONS #:FUSION5650)) (LET ((#:CONS5318 #:FUSION5650)) (DECLARE (IGNORABLE #:CONS5318)) (LOCALLY (DECLARE (TYPE CONS #:CONS5318)) (LET ((#:GEN5651 (CAR #:FUSION5650))) (DECLARE (IGNORABLE #:GEN5651)) (LET ((#:GEN5652 (CDR #:FUSION5650))) (DECLARE (IGNORABLE #:GEN5652)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5653 T) (MATCH1 NIL ((GUARD1 #:IT6366 T) (MATCH2*+ (#:GEN5651 #:GEN5652 #:PAT5653) (T T T) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (GUARD1 (#:INTERSECTION5375 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5375 (GUARD1 (#:CONS5370 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5370) (CAR #:CONS5370) (GUARD1 (#:IT5371 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5371 'SIGNED-BYTE)) (CDR #:CONS5370) (GUARD1 (#:CONS5372 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5372) (CAR #:CONS5372) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N5369 'FIXNUM)) (CDR #:CONS5372) (GUARD1 (#:IT5373 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5373))) #:INTERSECTION5375 (GUARD1 (#:LIFT-DUMMY5374 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (GUARD1 (#:INTERSECTION5381 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5381 (GUARD1 (#:CONS5376 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5376) (CAR #:CONS5376) (GUARD1 (#:IT5377 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5377 'SIGNED-BYTE)) (CDR #:CONS5376) (GUARD1 (#:CONS5378 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5378) (CAR #:CONS5378) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N5369)) (CDR #:CONS5378) (GUARD1 (#:IT5379 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5379))) #:INTERSECTION5381 (GUARD1 (#:LIFT-DUMMY5380 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (GUARD1 (#:INTERSECTION5385 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5385 (GUARD1 (#:CONS5382 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5382) (CAR #:CONS5382) (GUARD1 (#:IT5383 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5383 'SIGNED-BYTE)) (CDR #:CONS5382) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N5369)) #:INTERSECTION5385 (GUARD1 (#:LIFT-DUMMY5384 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (GUARD1 (#:INTERSECTION5387 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5387 (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N5369) #:INTERSECTION5387 (GUARD1 (#:LIFT-DUMMY5386 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6367 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6368 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5375 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5375 (GUARD1 (#:CONS5370 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5370) (CAR #:CONS5370) (GUARD1 (#:IT5371 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5371 'SIGNED-BYTE)) (CDR #:CONS5370) (GUARD1 (#:CONS5372 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5372) (CAR #:CONS5372) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N5369 'FIXNUM)) (CDR #:CONS5372) (GUARD1 (#:IT5373 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5373))) #:INTERSECTION5375 (GUARD1 (#:LIFT-DUMMY5374 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6369 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6370 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6371 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5381 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5381 (GUARD1 (#:CONS5376 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5376) (CAR #:CONS5376) (GUARD1 (#:IT5377 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5377 'SIGNED-BYTE)) (CDR #:CONS5376) (GUARD1 (#:CONS5378 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5378) (CAR #:CONS5378) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N5369)) (CDR #:CONS5378) (GUARD1 (#:IT5379 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5379))) #:INTERSECTION5381 (GUARD1 (#:LIFT-DUMMY5380 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6372 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6373 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6374 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5385 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5385 (GUARD1 (#:CONS5382 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5382) (CAR #:CONS5382) (GUARD1 (#:IT5383 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5383 'SIGNED-BYTE)) (CDR #:CONS5382) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N5369)) #:INTERSECTION5385 (GUARD1 (#:LIFT-DUMMY5384 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6375 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6376 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6377 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5387 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5387 (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N5369) #:INTERSECTION5387 (GUARD1 (#:LIFT-DUMMY5386 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6378 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6379 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6380 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5375 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5375 (GUARD1 (#:CONS5370 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5370) (CAR #:CONS5370) (GUARD1 (#:IT5371 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5371 'SIGNED-BYTE)) (CDR #:CONS5370) (GUARD1 (#:CONS5372 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5372) (CAR #:CONS5372) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE FIXNUM) (TYPEP #:N5369 'FIXNUM)) (CDR #:CONS5372) (GUARD1 (#:IT5373 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5373))) #:INTERSECTION5375 (GUARD1 (#:LIFT-DUMMY5374 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6381 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6382 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6383 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5381 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5381 (GUARD1 (#:CONS5376 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5376) (CAR #:CONS5376) (GUARD1 (#:IT5377 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5377 'SIGNED-BYTE)) (CDR #:CONS5376) (GUARD1 (#:CONS5378 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5378) (CAR #:CONS5378) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE SYMBOL) (EQ '* #:N5369)) (CDR #:CONS5378) (GUARD1 (#:IT5379 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5379))) #:INTERSECTION5381 (GUARD1 (#:LIFT-DUMMY5380 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6384 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6385 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6386 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5385 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5385 (GUARD1 (#:CONS5382 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5382) (CAR #:CONS5382) (GUARD1 (#:IT5383 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SIGNED-BYTE)) (EQ #:IT5383 'SIGNED-BYTE)) (CDR #:CONS5382) (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (NULL #:N5369)) #:INTERSECTION5385 (GUARD1 (#:LIFT-DUMMY5384 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6387 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6388 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6389 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5387 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5387 (GUARD1 (#:N5369 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (EQ 'SIGNED-BYTE #:N5369) #:INTERSECTION5387 (GUARD1 (#:LIFT-DUMMY5386 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) (AND T T)))) (MATCH1 NIL ((GUARD1 #:IT6390 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6391 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6392 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5657 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5657)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5657) (LOCALLY (DECLARE (TYPE CONS #:FUSION5657)) (LET ((#:CONS5318 #:FUSION5657)) (DECLARE (IGNORABLE #:CONS5318)) (LOCALLY (DECLARE (TYPE CONS #:CONS5318)) (LET ((#:GEN5658 (CAR #:FUSION5657))) (DECLARE (IGNORABLE #:GEN5658)) (LET ((#:GEN5659 (CDR #:FUSION5657))) (DECLARE (IGNORABLE #:GEN5659)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5660 T) (MATCH1 NIL ((GUARD1 #:IT6393 T) (MATCH2*+ (#:GEN5658 #:GEN5659 #:PAT5660) (T T T) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (GUARD1 (#:INTERSECTION5391 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5391 (GUARD1 (#:IT5388 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5388 'BIGNUM) #:INTERSECTION5391 (GUARD1 (#:BIND5389 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5391 (GUARD1 (#:BIND5390 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (OR1 (GUARD1 (#:INTERSECTION5395 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5395 (GUARD1 (#:CONS5392 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5392) (CAR #:CONS5392) (GUARD1 (#:IT5396 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5396 'BIGNUM)) (CDR #:CONS5392) (GUARD1 (#:IT5397 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5397)) #:INTERSECTION5395 (GUARD1 (#:BIND5393 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5395 (GUARD1 (#:BIND5394 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6394 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6395 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5391 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5391 (GUARD1 (#:IT5388 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5388 'BIGNUM) #:INTERSECTION5391 (GUARD1 (#:BIND5389 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5391 (GUARD1 (#:BIND5390 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6396 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6397 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6398 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5395 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5395 (GUARD1 (#:CONS5392 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5392) (CAR #:CONS5392) (GUARD1 (#:IT5396 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5396 'BIGNUM)) (CDR #:CONS5392) (GUARD1 (#:IT5397 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5397)) #:INTERSECTION5395 (GUARD1 (#:BIND5393 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5395 (GUARD1 (#:BIND5394 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6399 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6400 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6401 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5391 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5391 (GUARD1 (#:IT5388 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5388 'BIGNUM) #:INTERSECTION5391 (GUARD1 (#:BIND5389 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5391 (GUARD1 (#:BIND5390 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6402 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6403 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6404 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5395 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5395 (GUARD1 (#:CONS5392 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5392) (CAR #:CONS5392) (GUARD1 (#:IT5396 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL BIGNUM)) (EQ #:IT5396 'BIGNUM)) (CDR #:CONS5392) (GUARD1 (#:IT5397 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5397)) #:INTERSECTION5395 (GUARD1 (#:BIND5393 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5395 (GUARD1 (#:BIND5394 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6405 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6406 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6407 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5664 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5664)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5664) (LOCALLY (DECLARE (TYPE CONS #:FUSION5664)) (LET ((#:CONS5318 #:FUSION5664)) (DECLARE (IGNORABLE #:CONS5318)) (LOCALLY (DECLARE (TYPE CONS #:CONS5318)) (LET ((#:GEN5665 (CAR #:FUSION5664))) (DECLARE (IGNORABLE #:GEN5665)) (LET ((#:GEN5666 (CDR #:FUSION5664))) (DECLARE (IGNORABLE #:GEN5666)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5667 T) (MATCH1 NIL ((GUARD1 #:IT6408 T) (MATCH2*+ (#:GEN5665 #:GEN5666 #:PAT5667) (T T T) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (GUARD1 (#:INTERSECTION5401 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5401 (GUARD1 (#:IT5398 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5398 'FIXNUM) #:INTERSECTION5401 (GUARD1 (#:BIND5399 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5401 (GUARD1 (#:BIND5400 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (OR1 (GUARD1 (#:INTERSECTION5405 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5405 (GUARD1 (#:CONS5402 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5402) (CAR #:CONS5402) (GUARD1 (#:IT5406 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5406 'FIXNUM)) (CDR #:CONS5402) (GUARD1 (#:IT5407 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5407)) #:INTERSECTION5405 (GUARD1 (#:BIND5403 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5405 (GUARD1 (#:BIND5404 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6409 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6410 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5401 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5401 (GUARD1 (#:IT5398 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5398 'FIXNUM) #:INTERSECTION5401 (GUARD1 (#:BIND5399 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5401 (GUARD1 (#:BIND5400 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6411 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6412 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6413 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5405 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5405 (GUARD1 (#:CONS5402 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5402) (CAR #:CONS5402) (GUARD1 (#:IT5406 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5406 'FIXNUM)) (CDR #:CONS5402) (GUARD1 (#:IT5407 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5407)) #:INTERSECTION5405 (GUARD1 (#:BIND5403 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5405 (GUARD1 (#:BIND5404 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6414 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6415 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6416 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5401 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5401 (GUARD1 (#:IT5398 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5398 'FIXNUM) #:INTERSECTION5401 (GUARD1 (#:BIND5399 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5401 (GUARD1 (#:BIND5400 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6417 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6418 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6419 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5405 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5405 (GUARD1 (#:CONS5402 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5402) (CAR #:CONS5402) (GUARD1 (#:IT5406 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FIXNUM)) (EQ #:IT5406 'FIXNUM)) (CDR #:CONS5402) (GUARD1 (#:IT5407 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5407)) #:INTERSECTION5405 (GUARD1 (#:BIND5403 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5405 (GUARD1 (#:BIND5404 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6420 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6421 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6422 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5671 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5671)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5671) (LOCALLY (DECLARE (TYPE CONS #:FUSION5671)) (LET ((#:CONS5318 #:FUSION5671)) (DECLARE (IGNORABLE #:CONS5318)) (LOCALLY (DECLARE (TYPE CONS #:CONS5318)) (LET ((#:GEN5672 (CAR #:FUSION5671))) (DECLARE (IGNORABLE #:GEN5672)) (LET ((#:GEN5673 (CDR #:FUSION5671))) (DECLARE (IGNORABLE #:GEN5673)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5674 T) (MATCH1 NIL ((GUARD1 #:IT6423 T) (MATCH2*+ (#:GEN5672 #:GEN5673 #:PAT5674) (T T T) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (GUARD1 (#:INTERSECTION5411 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5411 (GUARD1 (#:IT5408 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5408 'RATIO) #:INTERSECTION5411 (GUARD1 (#:BIND5409 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5411 (GUARD1 (#:BIND5410 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (OR1 (GUARD1 (#:INTERSECTION5415 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5415 (GUARD1 (#:CONS5412 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5412) (CAR #:CONS5412) (GUARD1 (#:IT5416 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5416 'RATIO)) (CDR #:CONS5412) (GUARD1 (#:IT5417 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5417)) #:INTERSECTION5415 (GUARD1 (#:BIND5413 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5415 (GUARD1 (#:BIND5414 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6424 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6425 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5411 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5411 (GUARD1 (#:IT5408 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5408 'RATIO) #:INTERSECTION5411 (GUARD1 (#:BIND5409 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5411 (GUARD1 (#:BIND5410 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6426 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6427 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6428 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5415 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5415 (GUARD1 (#:CONS5412 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5412) (CAR #:CONS5412) (GUARD1 (#:IT5416 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5416 'RATIO)) (CDR #:CONS5412) (GUARD1 (#:IT5417 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5417)) #:INTERSECTION5415 (GUARD1 (#:BIND5413 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5415 (GUARD1 (#:BIND5414 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6429 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6430 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6431 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:INTERSECTION5411 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5411 (GUARD1 (#:IT5408 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5408 'RATIO) #:INTERSECTION5411 (GUARD1 (#:BIND5409 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5411 (GUARD1 (#:BIND5410 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (MATCH1 NIL ((GUARD1 #:IT6432 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6433 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6434 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5415 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5415 (GUARD1 (#:CONS5412 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5412) (CAR #:CONS5412) (GUARD1 (#:IT5416 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIO)) (EQ #:IT5416 'RATIO)) (CDR #:CONS5412) (GUARD1 (#:IT5417 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5417)) #:INTERSECTION5415 (GUARD1 (#:BIND5413 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5415 (GUARD1 (#:BIND5414 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6435 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6436 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6437 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:FUSION5678 #:WHAT16458)) (DECLARE (IGNORABLE #:FUSION5678)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:FUSION5678) (LOCALLY (DECLARE (TYPE CONS #:FUSION5678)) (LET ((#:CONS5318 #:FUSION5678)) (DECLARE (IGNORABLE #:CONS5318)) (LOCALLY (DECLARE (TYPE CONS #:CONS5318)) (LET ((#:GEN5679 (CAR #:FUSION5678))) (DECLARE (IGNORABLE #:GEN5679)) (LET ((#:GEN5680 (CDR #:FUSION5678))) (DECLARE (IGNORABLE #:GEN5680)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 #:PAT5681 T) (MATCH1 NIL ((GUARD1 #:IT6438 T) (MATCH2*+ (#:GEN5679 #:GEN5680 #:PAT5681) (T T T) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (OR1 (GUARD1 (#:INTERSECTION5421 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5421 (GUARD1 (#:IT5420 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5420 'FLOAT) #:INTERSECTION5421 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5421 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5423 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5423 (GUARD1 (#:IT5422 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5422 'SHORT-FLOAT) #:INTERSECTION5423 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5423 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5425 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5425 (GUARD1 (#:IT5424 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5424 'SINGLE-FLOAT) #:INTERSECTION5425 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5425 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5427 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5427 (GUARD1 (#:IT5426 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5426 'DOUBLE-FLOAT) #:INTERSECTION5427 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5427 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5429 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5429 (GUARD1 (#:IT5428 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5428 'LONG-FLOAT) #:INTERSECTION5429 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5429 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5431 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5431 (GUARD1 (#:IT5430 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5430 'INTEGER) #:INTERSECTION5431 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5431 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5433 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5433 (GUARD1 (#:IT5432 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5432 'RATIONAL) #:INTERSECTION5433 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5433 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5435 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5435 (GUARD1 (#:IT5434 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5434 'REAL) #:INTERSECTION5435 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5435 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (((GUARD1 (#:IT5319 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5319 'REAL)) (GUARD1 (#:CONS5320 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5320) (CDR #:CONS5320) (GUARD1 (#:CONS5321 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5321) (CDR #:CONS5321) (GUARD1 (#:IT5322 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5322)))) (OR1 (GUARD1 (#:CONS5436 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5436) (CAR #:CONS5436) (OR1 (GUARD1 (#:IT5437 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5437 'FLOAT)) (GUARD1 (#:IT5438 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5438 'SHORT-FLOAT)) (GUARD1 (#:IT5439 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5439 'SINGLE-FLOAT)) (GUARD1 (#:IT5440 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5440 'DOUBLE-FLOAT)) (GUARD1 (#:IT5441 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5441 'LONG-FLOAT)) (GUARD1 (#:IT5442 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5442 'INTEGER)) (GUARD1 (#:IT5443 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5443 'RATIONAL)) (GUARD1 (#:IT5444 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5444 'REAL))) (CDR #:CONS5436) (GUARD1 (#:CONS5445 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5445) (CDR #:CONS5445) (GUARD1 (#:CONS5446 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5446) (CDR #:CONS5446) (GUARD1 (#:IT5447 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5447))))) (GUARD1 (#:INTERSECTION5450 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5450 (GUARD1 (#:CONS5448 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5448) (CAR #:CONS5448) (OR1 (GUARD1 (#:IT5451 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5451 'FLOAT)) (GUARD1 (#:IT5452 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5452 'SHORT-FLOAT)) (GUARD1 (#:IT5453 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5453 'SINGLE-FLOAT)) (GUARD1 (#:IT5454 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5454 'DOUBLE-FLOAT)) (GUARD1 (#:IT5455 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5455 'LONG-FLOAT)) (GUARD1 (#:IT5456 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5456 'INTEGER)) (GUARD1 (#:IT5457 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5457 'RATIONAL)) (GUARD1 (#:IT5458 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5458 'REAL))) (CDR #:CONS5448) (GUARD1 (#:CONS5459 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5459) (CDR #:CONS5459) (GUARD1 (#:IT5460 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5460))) #:INTERSECTION5450 (GUARD1 (#:BIND5449 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5464 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5464 (GUARD1 (#:CONS5461 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5461) (CAR #:CONS5461) (OR1 (GUARD1 (#:IT5465 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5465 'FLOAT)) (GUARD1 (#:IT5466 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5466 'SHORT-FLOAT)) (GUARD1 (#:IT5467 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5467 'SINGLE-FLOAT)) (GUARD1 (#:IT5468 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5468 'DOUBLE-FLOAT)) (GUARD1 (#:IT5469 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5469 'LONG-FLOAT)) (GUARD1 (#:IT5470 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5470 'INTEGER)) (GUARD1 (#:IT5471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5471 'RATIONAL)) (GUARD1 (#:IT5472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5472 'REAL))) (CDR #:CONS5461) (GUARD1 (#:IT5473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5473)) #:INTERSECTION5464 (GUARD1 (#:BIND5462 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5464 (GUARD1 (#:BIND5463 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))))) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) (TRIVIA.BALLAND2006::_ (TRIVIA.SKIP:SKIP)))) ((GUARD1 #:IT6439 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6440 T) (TRIVIA.NEXT:NEXT))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5421 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5421 (GUARD1 (#:IT5420 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5420 'FLOAT) #:INTERSECTION5421 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5421 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5423 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5423 (GUARD1 (#:IT5422 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5422 'SHORT-FLOAT) #:INTERSECTION5423 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5423 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5425 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5425 (GUARD1 (#:IT5424 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5424 'SINGLE-FLOAT) #:INTERSECTION5425 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5425 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5427 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5427 (GUARD1 (#:IT5426 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5426 'DOUBLE-FLOAT) #:INTERSECTION5427 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5427 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5429 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5429 (GUARD1 (#:IT5428 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5428 'LONG-FLOAT) #:INTERSECTION5429 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5429 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5431 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5431 (GUARD1 (#:IT5430 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5430 'INTEGER) #:INTERSECTION5431 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5431 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5433 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5433 (GUARD1 (#:IT5432 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5432 'RATIONAL) #:INTERSECTION5433 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5433 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5435 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5435 (GUARD1 (#:IT5434 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5434 'REAL) #:INTERSECTION5435 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5435 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6441 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6442 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6443 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5325 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5325)) (LET ((#:CONS5323 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:CONS5323)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5323) (LOCALLY (DECLARE (TYPE CONS #:CONS5323)) (LET ((#:IT5326 (CAR #:CONS5323))) (DECLARE (IGNORABLE #:IT5326)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5326 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5326)) (LET ((#:CONS5327 (CDR #:CONS5323))) (DECLARE (IGNORABLE #:CONS5327)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5327) (LOCALLY (DECLARE (TYPE CONS #:CONS5327)) (LET ((#:IT5328 (CDR #:CONS5327))) (DECLARE (IGNORABLE #:IT5328)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5328) (LOCALLY (DECLARE (TYPE NULL #:IT5328)) (LET ((#:BIND5324 #:INTERSECTION5325)) (DECLARE (IGNORABLE #:BIND5324)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS5436 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5436) (CAR #:CONS5436) (OR1 (GUARD1 (#:IT5437 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5437 'FLOAT)) (GUARD1 (#:IT5438 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5438 'SHORT-FLOAT)) (GUARD1 (#:IT5439 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5439 'SINGLE-FLOAT)) (GUARD1 (#:IT5440 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5440 'DOUBLE-FLOAT)) (GUARD1 (#:IT5441 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5441 'LONG-FLOAT)) (GUARD1 (#:IT5442 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5442 'INTEGER)) (GUARD1 (#:IT5443 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5443 'RATIONAL)) (GUARD1 (#:IT5444 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5444 'REAL))) (CDR #:CONS5436) (GUARD1 (#:CONS5445 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5445) (CDR #:CONS5445) (GUARD1 (#:CONS5446 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5446) (CDR #:CONS5446) (GUARD1 (#:IT5447 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5447))))) (GUARD1 (#:INTERSECTION5450 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5450 (GUARD1 (#:CONS5448 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5448) (CAR #:CONS5448) (OR1 (GUARD1 (#:IT5451 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5451 'FLOAT)) (GUARD1 (#:IT5452 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5452 'SHORT-FLOAT)) (GUARD1 (#:IT5453 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5453 'SINGLE-FLOAT)) (GUARD1 (#:IT5454 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5454 'DOUBLE-FLOAT)) (GUARD1 (#:IT5455 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5455 'LONG-FLOAT)) (GUARD1 (#:IT5456 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5456 'INTEGER)) (GUARD1 (#:IT5457 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5457 'RATIONAL)) (GUARD1 (#:IT5458 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5458 'REAL))) (CDR #:CONS5448) (GUARD1 (#:CONS5459 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5459) (CDR #:CONS5459) (GUARD1 (#:IT5460 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5460))) #:INTERSECTION5450 (GUARD1 (#:BIND5449 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5464 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5464 (GUARD1 (#:CONS5461 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5461) (CAR #:CONS5461) (OR1 (GUARD1 (#:IT5465 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5465 'FLOAT)) (GUARD1 (#:IT5466 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5466 'SHORT-FLOAT)) (GUARD1 (#:IT5467 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5467 'SINGLE-FLOAT)) (GUARD1 (#:IT5468 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5468 'DOUBLE-FLOAT)) (GUARD1 (#:IT5469 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5469 'LONG-FLOAT)) (GUARD1 (#:IT5470 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5470 'INTEGER)) (GUARD1 (#:IT5471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5471 'RATIONAL)) (GUARD1 (#:IT5472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5472 'REAL))) (CDR #:CONS5461) (GUARD1 (#:IT5473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5473)) #:INTERSECTION5464 (GUARD1 (#:BIND5462 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5464 (GUARD1 (#:BIND5463 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6444 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6445 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6446 T) (TRIVIA.NEXT:NEXT)))))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:INTERSECTION5421 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5421 (GUARD1 (#:IT5420 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5420 'FLOAT) #:INTERSECTION5421 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5421 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5423 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5423 (GUARD1 (#:IT5422 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5422 'SHORT-FLOAT) #:INTERSECTION5423 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5423 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5425 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5425 (GUARD1 (#:IT5424 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5424 'SINGLE-FLOAT) #:INTERSECTION5425 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5425 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5427 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5427 (GUARD1 (#:IT5426 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5426 'DOUBLE-FLOAT) #:INTERSECTION5427 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5427 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5429 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5429 (GUARD1 (#:IT5428 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5428 'LONG-FLOAT) #:INTERSECTION5429 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5429 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5431 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5431 (GUARD1 (#:IT5430 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5430 'INTEGER) #:INTERSECTION5431 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5431 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5433 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5433 (GUARD1 (#:IT5432 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5432 'RATIONAL) #:INTERSECTION5433 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5433 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T)))) (GUARD1 (#:INTERSECTION5435 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5435 (GUARD1 (#:IT5434 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5434 'REAL) #:INTERSECTION5435 (GUARD1 (#:BIND5418 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5435 (GUARD1 (#:BIND5419 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6447 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6448 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6449 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:INTERSECTION5332 #:WHAT16458)) (DECLARE (IGNORABLE #:INTERSECTION5332)) (LET ((#:CONS5329 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:CONS5329)) (TRIVIA.LEVEL1:TRACE-WHEN (CONSP #:CONS5329) (LOCALLY (DECLARE (TYPE CONS #:CONS5329)) (LET ((#:IT5333 (CAR #:CONS5329))) (DECLARE (IGNORABLE #:IT5333)) (TRIVIA.LEVEL1:TRACE-WHEN (EQ #:IT5333 'REAL) (LOCALLY (DECLARE (TYPE (EQL REAL) #:IT5333)) (LET ((#:IT5334 (CDR #:CONS5329))) (DECLARE (IGNORABLE #:IT5334)) (TRIVIA.LEVEL1:TRACE-WHEN (NULL #:IT5334) (LOCALLY (DECLARE (TYPE NULL #:IT5334)) (LET ((#:BIND5330 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5330)) (LET ((#:BIND5331 #:INTERSECTION5332)) (DECLARE (IGNORABLE #:BIND5331)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((OR1 (GUARD1 (#:CONS5436 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5436) (CAR #:CONS5436) (OR1 (GUARD1 (#:IT5437 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5437 'FLOAT)) (GUARD1 (#:IT5438 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5438 'SHORT-FLOAT)) (GUARD1 (#:IT5439 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5439 'SINGLE-FLOAT)) (GUARD1 (#:IT5440 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5440 'DOUBLE-FLOAT)) (GUARD1 (#:IT5441 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5441 'LONG-FLOAT)) (GUARD1 (#:IT5442 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5442 'INTEGER)) (GUARD1 (#:IT5443 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5443 'RATIONAL)) (GUARD1 (#:IT5444 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5444 'REAL))) (CDR #:CONS5436) (GUARD1 (#:CONS5445 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5445) (CDR #:CONS5445) (GUARD1 (#:CONS5446 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5446) (CDR #:CONS5446) (GUARD1 (#:IT5447 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5447))))) (GUARD1 (#:INTERSECTION5450 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5450 (GUARD1 (#:CONS5448 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5448) (CAR #:CONS5448) (OR1 (GUARD1 (#:IT5451 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5451 'FLOAT)) (GUARD1 (#:IT5452 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5452 'SHORT-FLOAT)) (GUARD1 (#:IT5453 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5453 'SINGLE-FLOAT)) (GUARD1 (#:IT5454 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5454 'DOUBLE-FLOAT)) (GUARD1 (#:IT5455 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5455 'LONG-FLOAT)) (GUARD1 (#:IT5456 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5456 'INTEGER)) (GUARD1 (#:IT5457 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5457 'RATIONAL)) (GUARD1 (#:IT5458 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5458 'REAL))) (CDR #:CONS5448) (GUARD1 (#:CONS5459 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5459) (CDR #:CONS5459) (GUARD1 (#:IT5460 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5460))) #:INTERSECTION5450 (GUARD1 (#:BIND5449 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))) (GUARD1 (#:INTERSECTION5464 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5464 (GUARD1 (#:CONS5461 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE CONS) (CONSP #:CONS5461) (CAR #:CONS5461) (OR1 (GUARD1 (#:IT5465 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL FLOAT)) (EQ #:IT5465 'FLOAT)) (GUARD1 (#:IT5466 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SHORT-FLOAT)) (EQ #:IT5466 'SHORT-FLOAT)) (GUARD1 (#:IT5467 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL SINGLE-FLOAT)) (EQ #:IT5467 'SINGLE-FLOAT)) (GUARD1 (#:IT5468 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL DOUBLE-FLOAT)) (EQ #:IT5468 'DOUBLE-FLOAT)) (GUARD1 (#:IT5469 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL LONG-FLOAT)) (EQ #:IT5469 'LONG-FLOAT)) (GUARD1 (#:IT5470 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL INTEGER)) (EQ #:IT5470 'INTEGER)) (GUARD1 (#:IT5471 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL RATIONAL)) (EQ #:IT5471 'RATIONAL)) (GUARD1 (#:IT5472 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE (EQL REAL)) (EQ #:IT5472 'REAL))) (CDR #:CONS5461) (GUARD1 (#:IT5473 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE NULL) (NULL #:IT5473)) #:INTERSECTION5464 (GUARD1 (#:BIND5462 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T #:INTERSECTION5464 (GUARD1 (#:BIND5463 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T))))) (MATCH1 NIL ((GUARD1 #:IT6450 T) (%UNIFY-NUMEROID TYPEVARS TEMPLATE TYPE)) ((GUARD1 #:IT6451 T) (TRIVIA.NEXT:NEXT)))) ((GUARD1 #:IT6452 T) (TRIVIA.NEXT:NEXT)))))))))))))))))) (LET ((#:IT5474 #:WHAT16458)) (DECLARE (IGNORABLE #:IT5474)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (MATCH1 #:ARG4814 ((GUARD1 (#:IT5475 :SPECIAL NIL :DYNAMIC-EXTENT NIL :IGNORABLE T :BINDER LET :TYPE T) T) (MATCH1 NIL ((GUARD1 #:IT6453 T) NIL)))))))) Too large jump
ecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD trivialib.type-unify CRASH)
(LOAD trivialib.type-unify.test CRASH)
(LOAD trivialib.type-unify FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<cl-source-file "trivialib.type-unify" "src" "package">
(LOAD trivialib.type-unify.test FAIL) UIOP/LISP-BUILD:COMPILE-FILE-ERROR : COMPILE-FILE-ERROR while compiling #<cl-source-file "trivialib.type-unify" "src" "package">
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD trivialib.type-unify FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD trivialib.type-unify.test FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD trivialib.type-unify TIMEOUT)
(LOAD trivialib.type-unify.test TIMEOUT)
type-iabcl-1.2.1-fasl42-linux-x86
(LOAD type-i FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-i OK)
type-iabcl-1.3.0-fasl42-linux-x86
(LOAD type-i FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-i.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-i OK)
(LOAD type-i.test TIMEOUT)
type-iabcl-1.3.1-fasl42-linux-x86
(LOAD type-i FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-i.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-i OK)
(LOAD type-i.test TIMEOUT)
type-iabcl-1.3.2-fasl42-linux-x86
(LOAD type-i FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-i.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-i OK)
(LOAD type-i.test TIMEOUT)
type-iabcl-1.4.0-fasl42-linux-x86
(LOAD type-i FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-i.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-i OK)
(LOAD type-i.test TIMEOUT)
type-iabcl-1.5.0-fasl43-bsd-x64
(LOAD type-i FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-i.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-i OK)
(LOAD type-i.test TIMEOUT)
type-iabcl-1.5.0-fasl43-linux-x86
(LOAD type-i FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-i.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-i OK)
(LOAD type-i.test TIMEOUT)
type-iecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD type-i.test CRASH)
(LOAD type-i.test TIMEOUT)
type-iecl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD type-i.test CRASH)
(LOAD type-i.test TIMEOUT)
type-iecl-16.1.2-unknown-linux-x86-bytecode
(LOAD type-i.test CRASH)
(LOAD type-i.test TIMEOUT)
type-iecl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD type-i.test CRASH)
(LOAD type-i.test TIMEOUT)
type-iecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD type-i.test OK)
(LOAD type-i.test TIMEOUT)
type-rabcl-1.2.1-fasl42-linux-x86
(LOAD type-r FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-r OK)
type-rabcl-1.3.0-fasl42-linux-x86
(LOAD type-r FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-r.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-r OK)
(LOAD type-r.test OK)
type-rabcl-1.3.1-fasl42-linux-x86
(LOAD type-r FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-r.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-r OK)
(LOAD type-r.test OK)
type-rabcl-1.3.2-fasl42-linux-x86
(LOAD type-r FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-r.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-r OK)
(LOAD type-r.test OK)
type-rabcl-1.4.0-fasl42-linux-x86
(LOAD type-r FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-r.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-r OK)
(LOAD type-r.test OK)
type-rabcl-1.5.0-fasl43-bsd-x64
(LOAD type-r FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-r.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-r OK)
(LOAD type-r.test OK)
type-rabcl-1.5.0-fasl43-linux-x86
(LOAD type-r FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-r.test FAIL) COMMON-LISP:UNBOUND-VARIABLE : The variable OPTIMIZER is unbound.
(LOAD type-r OK)
(LOAD type-r.test OK)
type-recl-13.5.1-unknown-linux-i686-bytecode
(LOAD type-r FAIL) EXT:STACK-OVERFLOW : FRAME-STACK overflow at size 2304. Stack can probably be resized.
(LOAD type-r OK)
type-recl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD type-r CRASH)
(LOAD type-r.test CRASH)
(LOAD type-r OK)
(LOAD type-r.test OK)
type-recl-16.0.0-98fc12d3-linux-i686-lisp-to-c
(LOAD type-r CRASH)
(LOAD type-r.test CRASH)
(LOAD type-r OK)
(LOAD type-r.test OK)
type-recl-16.1.2-unknown-linux-x86-bytecode
(LOAD type-r CRASH)
(LOAD type-r.test CRASH)
(LOAD type-r OK)
(LOAD type-r.test OK)
type-recl-16.1.2-unknown-linux-x86-lisp-to-c
(LOAD type-r CRASH)
(LOAD type-r.test CRASH)
(LOAD type-r OK)
(LOAD type-r.test OK)
type-recl-16.1.3-unknown-bsd-x64-bytecode
(LOAD type-r FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD type-r.test FAIL) EXT:STACK-OVERFLOW : C-STACK overflow at size 1048576. Stack can probably be resized. Proceed with caution.
(LOAD type-r TIMEOUT)
(LOAD type-r.test TIMEOUT)
uuidecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD uuid FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD uuid OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD uuid FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD uuid OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD uuid FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD uuid OK)
vernacularecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD vernacular CRASH)
(LOAD vernacular FAIL) SI:SIMPLE-PROGRAM-ERROR : In form (INCF (ENSURE2 (TARGET-TABLE-REF TABLE (KEY TARGET)) 0)) Wrong number of arguments passed to function ENSURE2.
weblocksecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD weblocks FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-demo-popover FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-util FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-yarek FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-yui FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks OK)
(LOAD weblocks-demo-popover OK)
(LOAD weblocks-util OK)
(LOAD weblocks-yarek OK)
(LOAD weblocks-yui OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD weblocks FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-demo-popover FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-util FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-yarek FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-yui FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks OK)
(LOAD weblocks-demo-popover OK)
(LOAD weblocks-util OK)
(LOAD weblocks-yarek OK)
(LOAD weblocks-yui OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD weblocks FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-demo-popover FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-util FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-yarek FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-yui FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks OK)
(LOAD weblocks-demo-popover OK)
(LOAD weblocks-util OK)
(LOAD weblocks-yarek OK)
(LOAD weblocks-yui OK)
weblocks-examplesecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD simple-blog FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-demo FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD simple-blog OK)
(LOAD weblocks-demo OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD simple-blog FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-demo FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD simple-blog OK)
(LOAD weblocks-demo OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD simple-blog FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-demo FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD simple-blog OK)
(LOAD weblocks-demo OK)
weblocks-storesecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD weblocks-custom FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-memory FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-montezuma FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-postmodern FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-prevalence FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-stores FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-custom OK)
(LOAD weblocks-memory OK)
(LOAD weblocks-montezuma OK)
(LOAD weblocks-postmodern OK)
(LOAD weblocks-prevalence OK)
(LOAD weblocks-stores OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD weblocks-custom FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-memory FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-montezuma FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-postmodern FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-prevalence FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-stores FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-custom OK)
(LOAD weblocks-memory OK)
(LOAD weblocks-montezuma OK)
(LOAD weblocks-postmodern OK)
(LOAD weblocks-prevalence OK)
(LOAD weblocks-stores OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD weblocks-custom FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-memory FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-montezuma FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-postmodern FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-prevalence FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-stores FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-custom OK)
(LOAD weblocks-memory OK)
(LOAD weblocks-montezuma OK)
(LOAD weblocks-postmodern OK)
(LOAD weblocks-prevalence OK)
(LOAD weblocks-stores OK)
weblocks-tree-widgetecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD weblocks-tree-widget FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-tree-widget OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD weblocks-tree-widget FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-tree-widget OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD weblocks-tree-widget FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD weblocks-tree-widget OK)
zawsecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD zaws FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD zaws OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD zaws FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD zaws OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD zaws FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD zaws OK)
zs3ecl-16.0.0-98fc12d3-linux-i686-bytecode
(LOAD zs3 FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD zs3 OK)
ecl-16.1.2-unknown-linux-x86-bytecode
(LOAD zs3 FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD zs3 OK)
ecl-16.1.3-unknown-bsd-x64-bytecode
(LOAD zs3 FAIL) COMMON-LISP:SIMPLE-ERROR : The special form clines cannot be used in the interpreter: ( #define ROTL32(v, c) \ (((v) << (c)) | ((v) >> (32 - (c)))) #define CHACHA_QUARTER_ROUND(a, b, c, d) \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 16); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 12); \ x[a] += x[b]; x[d] = ROTL32(x[d] ^ x[a], 8); \ x[c] += x[d]; x[b] = ROTL32(x[b] ^ x[c], 7); #define SALSA_QUARTER_ROUND(a, b, c, d) \ x[a] ^= ROTL32(x[d] + x[c], 7); \ x[b] ^= ROTL32(x[a] + x[d], 9); \ x[c] ^= ROTL32(x[b] + x[a], 13); \ x[d] ^= ROTL32(x[c] + x[b], 18); )
(LOAD zs3 OK)

To reports overview

Generated at: 2019-11-26 03:35:53 GMT.