The value NIL is not of type SB-KERNEL:CTYPE when binding SB-KERNEL::TYPE1

[Paul F. Dietz]

(lambda (f) (numerator (rem (funcall f) (max 1 0))))

==>

The value
  NIL
is not of type
  SB-KERNEL:CTYPE
when binding SB-KERNEL::TYPE1
   [Condition of type TYPE-ERROR]

Restarts:
 0: [RETRY] Retry SLIME REPL evaluation request.
 1: [*ABORT] Return to SLIME's top level.
 2: [ABORT] abort thread (#<THREAD tid=5579 "repl-thread" RUNNING {1000BB8003}>)

Backtrace:
  0: (SB-KERNEL:CSUBTYPEP NIL #.(SPECIFIER-TYPE 'RATIONAL)) [external]
  1: (SB-C::NUMERIC-CONTAGION-CONSTRAINT-BACK NIL #<SB-C::LVAR 1 {10079BC513}> #S(SB-C::CONSET :VECTOR #*00000000000000000100000000000000 :MIN 0 :MAX 18) #.(SPECIFIER-TYPE 'RATIONAL) #S(SB-C::CONSET :VECTO..
  2: (SB-C::ADD-TEST-CONSTRAINTS #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::GLOBAL-VAR :%SOURCE-NAME RATIONALP :TYPE #1=#.(SPECIFIER-TYPE '#) :DEFINED-TYPE #1# :WHERE-FROM :DECLARED :KIND :GLOBAL-..
  3: (SB-C::FIND-BLOCK-TYPE-CONSTRAINTS #<SB-C::CBLOCK 9 :START c4 {10079C0FB3}> T)
  4: (SB-C::FIND-AND-PROPAGATE-CONSTRAINTS #<SB-C:COMPONENT :NAME "<unknown>" {10079BA5A3}>)
  5: (SB-C::CONSTRAINT-PROPAGATE #<SB-C:COMPONENT :NAME "<unknown>" {10079BA5A3}>)
  6: (SB-C::IR1-OPTIMIZE-PHASE-1 #<SB-C:COMPONENT :NAME "<unknown>" {10079BA5A3}>)
  7: (SB-C::IR1-PHASES #<SB-C:COMPONENT :NAME "<unknown>" {10079BA5A3}>)
  8: (SB-C::COMPILE-COMPONENT #<SB-C:COMPONENT :NAME "<unknown>" {10079BA5A3}>)
[...]

x86-64, "2.5.0.66-ae46319ab"