nobjects



Does anybody know something about 'nobjects'? All I know about 'nobjects'
is that reset() sets nobjects to nil -- I haven't tried to understand
the problem (yet).

The reason I ask: I've been working on code that does Fourier elimination.
After testing this code a few dozen times or more, I sometimes get (GCL) a
"Bind stack overflow" error. If I either "reset()" or set 'nobjects' to
nil,
Maxima can continue. Example:

(%i2) fourier_elim(eqs,vars)$
Error in PROGN [or a callee]: Bind stack overflow.

Fast links are on: do (use-fast-links nil) for debugging
Broken at MACSYMA-TOP-LEVEL.  Type :H for Help.
 1 (Continue) Maxima top-level
 2 (Abort) Return to top level.
dbl:MAXIMA>> (setf nobjects nil)
NIL
dbl:MAXIMA>> :q

Now, all is well

(%i3) fourier_elim(eqs,vars);
(%o3) emptyset

So far, I've only tried to cheat (it seems to work)

(defun apply-max (l)
  (setf nobjects nil)
  (opapply '$max l))

BW