MAKE-ARRAY compile failure when dimension list is improper

[Paul F. Dietz]

(lambda () (make-array '(0 . 1)))

===>

The value
  1
is not of type
  LIST
   [Condition of type TYPE-ERROR]
[...]
  0: (SB-KERNEL:%MAP-FOR-EFFECT-ARITY-1 #<CLOSURE (FLET "WRAPPER6" :IN MAKE-ARRAY) {7FFFF6996D0B}> (0 . 1))
  1: ((:SOURCE-TRANSFORM MAKE-ARRAY) (MAKE-ARRAY (QUOTE (0 . 1))) #S(SB-KERNEL:LEXENV :FUNS NIL :VARS NIL :BLOCKS NIL :TAGS NIL :TYPE-RESTRICTIONS NIL :LAMBDA #<SB-C::CLAMBDA :%SOURCE-NAME SB-C::.ANONYMOUS..
[...]

[Stas Boukarev (stassats)]

7edef9b196563d61343afd16fee1b6057a0587a6