more build problems, STEP-FUN in LOOP must be a function



Rainer wrote:

> Maxima 5.12.0
> 
> 
> I see code like this:
> 
> 
> ratmac.lisp
> 
> (defmacro pt-red (terms) `(cddr ,terms))
> 
> 
> 
> rat3a.lisp
> 
> (defun pctimes1 (c terms)
>   (loop for (exp coef) on terms by #'pt-red
>     unless (pzerop (setq coef (ptimes c coef)))
>     nconc (list exp coef)))
> 
> 
> 
> ANSI Common Lisp defines the STEP-FUN in LOOP
> to be a function. We cannot use a macro here.

Corrected in cvs.

> Probably there are more places where macros are
> used like this?

Could very well be, so let's find them. :-)

'Andreas