draw2d eps file bugs with gcl 5.22.1



On Oct. 17, 2010, Mario Rodriguez wrote:
-----------------------------------------
> The other problem (eps files were not generated) was due to a typo in
> draw.lisp, which was fixed some weeks after the 5.22 release.

> Sorry, if these bugs have caused problems to qdraw and COMA authors and
> users.

---------------------------
Hi Mario,

Thanks for the fix in cvs, which cures both problems:
  1. I get a non-empty  eps file produced.

 2. I get success with windows maxima 5.22.1 with
    GCL  with 76 element list produced by qdraw
   accepted by draw2d, as shown below:
----------------------------------------------------------

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-17


(%i1) load("draw-new.lisp");
(%o1)                            draw-new.lisp
(%i2) load(qdraw);
               qdraw(...), qdensity(...), syntax: type qdraw();

(%o2)                         c:/work5/qdraw.mac
(%i3) qdraw(xr(0,2.8),yr(0,2),
             line(0,0,2.8,0,lw(2)),
             line(0,0,2,2,lc(blue),lw(8) ),
           ellipse(0,0,1,1,0,45 ),
           arrowhead(0.707,0.707,135,0.15),
   label(["{/=36 {/Symbol q   \\254 }  The Incline Angle}",1,0.4]),
            cut(all),
           pic(eps,"c:/work5/test5" ) );


                               _len_drlist% = 44

(%o3)       [gr2d(points, points, ellipse, points, points, label)]
(%i4) 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/test6"), cut(all) );


                               _len_drlist% = 76

(%o4) [gr2d(points, points, points, ellipse, ellipse, vector, vector, 
points,
                                                points, points, points, 
label)]
--------------------------------------------------------------------------
Ted