Uncaught compiler error calling COUNT with improper list for second argument

[Paul F. Dietz]

(lambda () (count 'a '(a b c . d)))

==>

The value
  D
is not of type
  LIST
   [Condition of type TYPE-ERROR]

Restarts:
 0: [ABORT] Exit debugger, returning to top level.

Backtrace:
  0: (LENGTH (A B C . D))
  1: (SB-C::SEQUENCE-LVAR-DIMENSIONS #<SB-C::LVAR 1 {100225A083}>)
  2: (SB-C::INDEX-INTO-SEQUENCE-DERIVE-TYPE #<SB-C::LVAR 1 {100225A083}> NIL NIL :INCLUSIVE T)
  3: (SB-C::COUNT-DERIVE-TYPE-OPTIMIZER #<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 :GL..

This may be the same bug as for POSITION.

[Stas Boukarev (stassats)]

9637f2c56c088731493ab15755d54f9e838aa3b3