Edwin Woolett wrote:
>I changed line two of scifac.lisp from
>" (declare (special $negdistrib)) "
>to
>"(declaim (special $negdistrib))"
>--------------
>package scifac.lisp now loads ok but get error first time scifac.dem calls
>gcfac:
>
>(%i1) demo(scifac)$
>batching
>#pC:/PROGRA~1/MAXIMA~3.0/share/maxima/5.14.0/share/simplification/scifac.dem
>
> At the _ prompt, type ';' followed by enter to get next demo
>(%i2) if properties(gcfac) = [] then load(scifac)
>_;
>(%i3) exp1 : a v s x + a t r + a u
>(%o3) a s v x + a u + a r t
>_;
>(%i4) gcfac(exp1)
>Maxima encountered a Lisp error:
>
> Error in COND [or a callee]: The function FIXP is undefined.
That fixp should be changed to fixnump, then it should run if you
also change add1 to 1+ in the 2 places where it occurs.
Well at least the demo runs for me now. Wether it really does
something useful I don?t know :-(
'Andreas