stringout error



Dear All,

As mentioned in a thread last week, I've been making a bunch of nested
function definitions explicit with a batch script that's like (a more
complicated version of)

a : 3 ;
f(x) := ''(a*x^5) ;
stringout("keepitall.mc",functions) ;
g(x) := ''(7*x^4/f(x)) ;
stringout("keepitall.mc",functions) ;
b : 7 ;
h(x) := ''(g(x)+(f(x))^b) ;
stringout("keepitall.mc",functions) ;

and so on.  This works just fine until the stringout() after the
sixty-ninth function definition (there are seventy-three altogether),
which fails with the error message

Error in `stringout' attempt
  -- an error. To debug this try: debugmode(true);

Any ideas, please?

(Maxima 5.21.1 under CLISP 2.47)

-- 

Thanks,

Dan