bugs with draw2d in cmucl, sbcl with 5.12.0



Hello,
  I have found some bugs in cmucl, sbcl with v. 5.12.0.

Notice the following output with the file "L_test.mac"

These were run from the console using 'rmaxima -l **' where ** is the
associated lisp version


/**************** begin L_test.mac ******************/

build_info();

xx: makelist([i,i^2],i,1,50);

load(draw);

draw_list(list):= apply(draw2d,append([point_size=.8],
makelist(points(list[i]),i,1,length(list))))$

draw_list([xx]);

/**************** end L_test.mac ****************/

output of 'rmaxima -l cmucl'


(%i1) load("L_test");

Maxima version: 5.12.0
Maxima build date: 20:50 5/3/2007
host type: i686-pc-linux-gnu
lisp-implementation-type: CMU Common Lisp
lisp-implementation-version: 19c Fedora Extras release 7.fc6 (19C)

;

; Warning: This function is undefined:
;   CADDADR
Maxima encountered a Lisp error:


Error in function EXTENSIONS:RUN-PROGRAM:
    No such program: "gnuplot -background white"

Automatically continuing.
To reenable the Lisp debugger set *debugger-hook* to nil.
(%i2)

/*******************/

output of 'rmaxima -l  sbcl'

(%i1) load("L_test");

Maxima version: 5.12.0
Maxima build date: 20:51 5/3/2007
host type: i686-pc-linux-gnu
lisp-implementation-type: SBCL
lisp-implementation-version: 1.0.1


; in: LAMBDA NIL
;     (MAXIMA::CADDADR (NTH MAXIMA::NOBJ MAXIMA::SCN))
;
; caught STYLE-WARNING:
;   undefined function: CADDADR

;
; caught STYLE-WARNING:
;   This function is undefined:
;     CADDADR
;
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
Maxima encountered a Lisp error:

  Error during processing of --eval option "(cl-user::run)":

   no such program: "gnuplot -background white"

Automatically continuing.
To reenable the Lisp debugger set *debugger-hook* to nil.
(%i2)

/*****************************************************/

No problem with clisp and gcl

output with 'rmaxima -l clisp'

i1) load("L_test");

Maxima version: 5.12.0
Maxima build date: 20:49 5/3/2007
host type: i686-pc-linux-gnu
lisp-implementation-type: CLISP
lisp-implementation-version: 2.41 (2006-10-13) (built 3369725944)
(memory 3387228560)

(%o1)                            ./L_test.mac
(%i2)

/****************************************************/

output with 'rmaxima -l gcl'

(%i1) load("L_test");

Maxima version: 5.12.0
Maxima build date: 19:54 5/3/2007
host type: i686-pc-linux-gnu
lisp-implementation-type: GNU Common Lisp (GCL)
lisp-implementation-version: GCL 2.6.7

(%o1)                            ./L_test.mac
(%i2)


/*************************************************************/

-sen


-- 
  ---------------------------------------------------------------------------
  | Sheldon E. Newhouse            |    e-mail: sen1 at math.msu.edu           |
  | Mathematics Department         |       				   |
  | Michigan State University      | telephone: 517-355-9684                |
  | E. Lansing, MI 48824-1027 USA  |       FAX: 517-432-1562                |
  ---------------------------------------------------------------------------