[Maxima]Pb with lisp code

Hello.

I have this Lisp code. It is translated by Maxima.
And it give me an error:

Maxima encountered a Lisp error:

 Error in PROGN [or a callee]: not a valid array reference to #2A((........


(PROGN
  (DEFPROP $INITIALISATION T TRANSLATED)
  (ADD2LNC '$INITIALISATION $PROPS)
  (DEFMTRFUN ($INITIALISATION $ANY MDEFINE NIL NIL) ($NROW $NCOL)
      (DECLARE (SPECIAL $NCOL $NROW) (FIXNUM $NCOL $NROW))
      ((LAMBDA ($I $J $M $N)
         (DECLARE (SPECIAL $N $M $J $I) (FIXNUM $N $M $J $I))
         NIL
         (SETQ $ELEMENTARRAY
               (SIMPLIFY
                   (MFUNCTION-CALL $MAKE_ARRAY '$FIXNUM (F+ $NROW 1)
                       (F+ $NCOL 2))))
         (SETQ $N 0)
         (DO (($I 1 (F+ 1 $I))) ((> $I $NROW) '$DONE)
           (SETQ $M 0)
           (DO (($J 1 (F+ 1 $J))) ((> $J (F+ $NCOL 1)) '$DONE)
             (SETQ $N (F+ $N 1))
             ;; This line produce an error
             ;; I don't know wy. Can you help me please.
             ;; Thanks you.
             (MASET $M $ELEMENTARRAY $I $J)
             (SETQ $M (F+ $M $N)))))
       0 0 0 0)))

This code is in the "test_array.lisp" file.
>From xmaxima I do :

 load("test_array.lisp");
 initialisation(5,5);

and this produce the above error.

I don't know Lisp language. Can you help me please.

In advance thanks.