Different MAKE-ARRAY const fold bug with improper dimensions list

[Paul F. Dietz]

This is a different error message than bug 1740784

(lambda () (make-array (list 'x) :element-type 'fixnum :initial-element 12))

==>

The value
  X
is not of type
  NUMBER
when binding SB-KERNEL::X
   [Condition of type TYPE-ERROR]
[...]
  0: (SB-KERNEL:TWO-ARG-+ X 0) [external]
  1: (SB-C::TRANSFORM-MAKE-ARRAY-VECTOR #<SB-C::LVAR 1 {1005697F03}> #<SB-C::LVAR 2 {10056E7F03}> #<SB-C::LVAR 3 {1005747FB3}> NIL #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::GLOBAL-VAR :%SOURCE-NA..
  2: ((SB-C:DEFTRANSFORM MAKE-ARRAY) #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::GLOBAL-VAR :%SOURCE-NAME MAKE-ARRAY :TYPE #1=#<SB-KERNEL:FUN-TYPE #> :DEFINED-TYPE #1# :WHERE-FROM :DECLARED :KIND :..
  3: (SB-C::IR1-TRANSFORM #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::GLOBAL-VAR :%SOURCE-NAME MAKE-ARRAY :TYPE #1=#<SB-KERNEL:FUN-TYPE #> :DEFINED-TYPE #1# :WHERE-FROM :DECLARED :KIND :GLOBAL-FUNC..
[...]

[Stas Boukarev (stassats)]

In 0d50aa89ba4d8b56cdd8036af251f25345581588