can't tell the size of #<SB-C:TN '0!1 :CONSTANT>

[Paul F. Dietz]

(lambda (c)
  (loop for lv1 below 3
        count (evenp
               (logandc1
                (if (>= 85807374362022892 lv1)
                    0
                    (loop for lv2 below 3
                          count (logbitp 0 (catch 'ct4 0))))
                c))))

==>

can't tell the size of #<SB-C:TN '0!1 :CONSTANT>
   [Condition of type SIMPLE-ERROR]

Restarts:
 0: [RETRY] Retry SLIME REPL evaluation request.
 1: [*ABORT] Return to SLIME's top level.
 2: [REMOVE-FD-HANDLER] Remove #<SB-IMPL::HANDLER INPUT on descriptor 4: #<FUNCTION (LABELS SWANK/SBCL::RUN :IN SWANK/BACKEND:ADD-FD-HANDLER) {100A53C0EB}>>
 3: [ABORT] Exit debugger, returning to top level.

Backtrace:
  0: (SB-X86-64-ASM::OPERAND-SIZE #<SB-C:TN '0!1 :CONSTANT>)
  1: (SB-X86-64-ASM::MATCHING-OPERAND-SIZE R8 #<SB-C:TN '0!1 :CONSTANT>)
  2: ("MOV" #<SB-ASSEM:SEGMENT {10202E48C3}> 0 R8 #<SB-C:TN '0!1 :CONSTANT>)
  3: (SB-ASSEM::%ASSEMBLE #<SB-ASSEM:SEGMENT {10202E48C3}> (#<SB-ASSEM::STMT IGNORE {10202E2A63}> . #<SB-ASSEM::STMT .ALIGN {10202E4A03}>))
  4: (SB-ASSEM:ASSEMBLE-SECTIONS #S(SB-ASSEM::ASMSTREAM :DATA-SECTION (#<SB-ASSEM::STMT IGNORE {10202E2A63}> . #<SB-ASSEM::STMT .ALIGN {10202E4A03}>) :CODE-SECTION (#1=#<SB-ASSEM::STMT IGNORE {10202E2AA3}>..
  5: (SB-C::GENERATE-CODE #<SB-C:COMPONENT :NAME "<unknown>" {1020298743}>)
  6: (SB-C::%COMPILE-COMPONENT #<SB-C:COMPONENT :NAME "<unknown>" {1020298743}>)
[...]

x86-64, "2.2.11.128-6b02d6706"

[Paul F. Dietz (paul-f-dietz)]

Another example:

(lambda (b)
   (declare (type (integer -13 23) b))
   (isqrt
       (abs (case 0 ((9882.414) (dotimes (iv3 1 b) (ignore-errors 0)))
                              (t 0)))))