Slight correction to melting program for Rel 7.

["Daniel L. Weinreb" <DLW@alderaan.scrc.symbolics.com>]

There's a slight change that seems to be needed in the version of the
meltdown hack that you just mailed out.  Your mailing uses Common-Lisp
Syntax, but the program uses the Zetalisp array-dimension-n function.
To fix this, the functions array-width and array-height should be
redefined as:

(defun array-width (array)
  (array-dimension array 1))

(defun array-height (array)
  (array-dimension array 0))