(DEFUN RESTEST ()
  (LET ((ROWS 20)
        (COLS 20)
        RESTX)
    (DEFRESOURCE 2D-ARRAY (ROWS COLS) :CONSTRUCTOR (MAKE-ARRAY (LIST ROWS COLS))) 
    (USING-RESOURCE (REST-TRY 2D-ARRAY ROWS COLS) (RESTEST2 REST-TRY))))

(DEFUN RESTEST2 (ARR)
  (COND ((TYPEP ARR 'ARRAY)
         (PRINT 'OK)
         (PRINT ARR)
	 (aset 10 arr 1 1)
	 (print (aref arr 1 1))
         (USING-RESOURCE (ARR2 2D-ARRAY rows cols)
                         (PRINT ARR2)
			 (print (aref arr2 1 1))
                         (IF (EQ ARR ARR2) (PRINT 'THE-SAME)))
         (PRINT ARR))
        (T
         (PRINT 'HUH?)
         (PRINT (TYPE-OF ARR)))))