heap exhausted with matrix usage



Maxima compiled with 64 bit Clozure CL is able to finish the loop:

(%i4) for k : 1 thru 10 do block(
          h : my_work(3000),
         print(k,h));

1 3000
2 3000
3 3000
4 3000
5 3000
6 3000
7 3000
8 3000
9 3000
10 3000
(%o4) done
(%i5) build_info();

(%o5) ?%build_info("branch_5_27_base_132_g50ac673_dirty",
                   "2012-08-03 23:09:28","i686-pc-cygwin",
                   "Clozure Common Lisp",
                   "Version 1.8-r15286M  (WindowsX8664)")
--Barton