The following qdraw code worked when I
wrote ch. 5 using ver. 5.17.1.
It also works with ver. 5.21.1.
But I get a Lisp error when I try
it with ver. 5.22.1:
-----------------------
Maxima 5.22.1 http://maxima.sourceforge.net
using Lisp GNU Common Lisp (GCL) GCL 2.6.8 (a.k.a. GCL)
Distributed under the GNU Public License. See the file COPYING.
Dedicated to the memory of William Schelter.
The function bug_report() provides bug reporting information.
2010-10-15
(%i1) load(draw);
(%o1) C:/PROGRA~1/MA81BB~1.1/share/maxima/5.22.1/share/draw/draw.lisp
(%i2) load(qdraw);
qdraw(...), qdensity(...), syntax: type qdraw();
(%o2) c:/work5/qdraw.mac
(%i3) qdraw(xr(-2.8,2.8),yr(-2,2),
line(-1.5,0,1.5,0,lw(10) ),
line(-1.5,0,-2,0.866,lw(10)),
line(1.5,0,2,0.866,lw(10) ),
ellipse(1.5,0,0.5,0.5,0,60 ),
ellipse(-1.5,0,0.5,0.5,120,60 ),
label(["{/Symbol=36 q}",2.1,0.3],
["{/Symbol=36 q}",-2.2,0.3],
["{/=36 x}",1.5,0.5],["{/=36 x}",-1.6,0.5],
["{/=36 L - 2 x}",-0.5,-0.3] ),
vector([-0.8,-0.3],[-0.7,0],hl(0.2) ),
vector([0.8,-0.3],[0.7,0],hl(0.2) ),
line(-1.5,0,-1.5,-0.7,lw(2) ),
line(1.5,0,1.5,-0.7,lw(2) ),
line(-2.5,0,-1.5,0,lw(2) ),
line( 1.5,0,2.5,0,lw(2) ),
pic(eps,"c:/work5/test3"), cut(all) );
Maxima encountered a Lisp error:
Error in APPLY [or a callee]: Lisps arglist maximum surpassed
Automatically continuing.
To enable the Lisp debugger set *debugger-hook* to nil.
----------------------------------------------------
Has the Lisp arglist maximum actually been changed??
Ted Woollett