In system 27.6, with microcode 661, on LISP Machine One: (ARGLIST 'FOOARRAY) where FOOARRAY is an array returns ("DIM-1") where perhaps a more reasonable thing is a list whose length is the number of dimensions.