more build problems, STEP-FUN in LOOP must be a function
Subject: more build problems, STEP-FUN in LOOP must be a function
From: Rainer Joswig
Date: Fri, 04 May 2007 19:02:45 +0200
In article <4186.1178297766 at staffa.eder.local>,
Andreas Eder <aeder at arcor.de> wrote:
> 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
Grep for the pattern 'by #' and I see several uses
of #'pt-red which would have to be replaced.
--
http://lispm.dyndns.org