Uncaught compiler error when first arg to MAKE-ARRAY has macro problems

[Paul F. Dietz]

(lambda () (make-array (do)))

===>

error while parsing arguments to DEFMACRO DO:
  too few elements in
    ()
  to satisfy lambda list
    (SB-IMPL::VARLIST SB-IMPL::ENDLIST &BODY SB-IMPL::BODY):
  at least 2 expected, but got 0
   [Condition of type SB-KERNEL::ARG-COUNT-ERROR]
[...]
  0: (SB-C::CHECK-DS-LIST/&REST #<unavailable argument> #<unavailable argument> #<unavailable argument> #<unavailable argument>)
  1: ((MACRO-FUNCTION DO) (DO) #<unused argument>)
  2: ((FLET SB-IMPL::PERFORM-EXPANSION :IN MACROEXPAND-1) #<FUNCTION (MACRO-FUNCTION DO) {2244C71B}> NIL)
  3: (MACROEXPAND (DO) #S(SB-KERNEL:LEXENV :FUNS NIL :VARS NIL :BLOCKS NIL :TAGS NIL :TYPE-RESTRICTIONS NIL :LAMBDA #<SB-C::CLAMBDA :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-NAME (LAMBDA NIL) :KIND NIL :TYPE..
  4: ((:SOURCE-TRANSFORM MAKE-ARRAY) (MAKE-ARRAY (DO)) #S(SB-KERNEL:LEXENV :FUNS NIL :VARS NIL :BLOCKS NIL :TAGS NIL :TYPE-RESTRICTIONS NIL :LAMBDA #<SB-C::CLAMBDA :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-N..
[...]