having trouble with flet in plot.lisp -- stack overflow



Hello,

Trying make a plot such as plot2d (x, [x, 0, 1]),
I am getting a stack overflow in DRAW2D (src/plot.lisp)
in current cvs Maxima with SBCL and Clisp.
The same code is OK with GCL, however.

In SBCL a backtrace shows ((FLET FUN) 0.025d0) over and over.
I guess that's originating from line 910 in src/plot.lisp,

      (flet ((fun (x)
           (if log-x-p
           (funcall f (exp x))
           (funcall f x))))

Not sure what's going on here -- could be I'm too tired
to consider this rationally ... Any information would be great.

Plotting in 5.9.2 works OK for me -- this flet is in the main
branch, not the 5.9.2 branch.

Robert Dodier