Uncaught error compiling call to COUNT with undefined function

[Paul F. Dietz]

 (compile nil '(lambda () (count #'%f '(a))))

===>

The function CL-TEST::%F is undefined.
   [Condition of type UNDEFINED-FUNCTION]
[...]
  0: (SB-IMPL::RETRY-%COERCE-NAME-TO-FUN %F NIL)
  1: (FDEFINITION %F)
  2: (SB-C::CONSTANT-FOLD-CALL #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::GLOBAL-VAR :%SOURCE-NAME COUNT :TYPE #1=#<SB-KERNEL:FUN-TYPE #> :DEFINED-TYPE #1# :WHERE-FROM :DECLARED :KIND :GLOBAL-FUNC..
  3: (SB-C::IR1-OPTIMIZE-COMBINATION #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::GLOBAL-VAR :%SOURCE-NAME COUNT :TYPE #1=#<SB-KERNEL:FUN-TYPE #> :DEFINED-TYPE #1# :WHERE-FROM :DECLARED :KIND :GLOBA..
  4: (SB-C::IR1-OPTIMIZE-BLOCK #<SB-C::CBLOCK 3 :START c1 {1005EA7E23}>)
  5: (SB-C::IR1-OPTIMIZE #<SB-C:COMPONENT :NAME (LAMBDA NIL) {1005EBBA53}> NIL)
[...]

[Stas Boukarev (stassats)]

In 9f96f7bad75c2e1110db3917cdad8c38457454d1