Another example, with yet another error message. Probably the same bug.
(defun bug020 () (logbitp 20 (the (or (foo) (bar)) 1)))
==>
SB-VM::IMMEDIATE-CONSTANT fell through ECASE expression. Wanted one of (SB-VM::STACK SB-KERNEL:CONSTANT). [Condition of type SB-KERNEL:CASE-FAILURE]
Restarts: 0: [RETRY] Retry SLIME REPL evaluation request. 1: [*ABORT] Return to SLIME's top level. 2: [ABORT] abort thread (#<THREAD "new-repl-thread" RUNNING {103DDEC393}>)
Backtrace: 0: (SB-X86-64-ASM::EMIT-EA #<SB-ASSEM:SEGMENT {103DF94D53}> #<SB-C:TN '1!1 :CONSTANT> 4 :REMAINING-BYTES 0 :XMM-INDEX NIL) 1: ((FLET SB-X86-64-ASM::EMIT* :IN "SYS:SRC;COMPILER;X86-64;INSTS.LISP") #<SB-ASSEM:SEGMENT {103DF94D53}> :DWORD #<SB-C:TN '1!1 :CONSTANT> 20 NIL 4) 2: (SB-ASSEM::%ASSEMBLE #<SB-ASSEM:SEGMENT {103DF94D53}> (#<SB-ASSEM::STMT IGNORE {103DF92543}> . #<SB-ASSEM::STMT .ALIGN {103DF94F13}>))
Another example, with yet another error message. Probably the same bug.
(defun bug020 ()
(logbitp 20 (the (or (foo) (bar)) 1)))
==>
SB-VM:: IMMEDIATE- CONSTANT fell through ECASE expression. CONSTANT) . CASE-FAILURE]
Wanted one of (SB-VM::STACK SB-KERNEL:
[Condition of type SB-KERNEL:
Restarts:
0: [RETRY] Retry SLIME REPL evaluation request.
1: [*ABORT] Return to SLIME's top level.
2: [ABORT] abort thread (#<THREAD "new-repl-thread" RUNNING {103DDEC393}>)
Backtrace: 64-ASM: :EMIT-EA #<SB-ASSEM:SEGMENT {103DF94D53}> #<SB-C:TN '1!1 :CONSTANT> 4 :REMAINING-BYTES 0 :XMM-INDEX NIL) 64-ASM: :EMIT* :IN "SYS:SRC; COMPILER; X86-64; INSTS.LISP" ) #<SB-ASSEM:SEGMENT {103DF94D53}> :DWORD #<SB-C:TN '1!1 :CONSTANT> 20 NIL 4) :%ASSEMBLE #<SB-ASSEM:SEGMENT {103DF94D53}> (#<SB-ASSEM::STMT IGNORE {103DF92543}> . #<SB-ASSEM::STMT .ALIGN {103DF94F13}>))
0: (SB-X86-
1: ((FLET SB-X86-
2: (SB-ASSEM: