problem in plotlisp

problem in plotlisp

[Piet van Oostrum]

plot.lisp in CVS has introduced a change where the line
        (or ($listp fun ) (setf fun `((mlist) ,fun)))
has been commented. However, this breaks things like:
        plot2d(x, [x, 0, 5], [plot_format,ps])

The following patch solves this:

Index: src/plot.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/plot.lisp,v
retrieving revision 1.34
diff -u -r1.34 plot.lisp
--- src/plot.lisp	21 Jan 2004 02:13:55 -0000	1.34
+++ src/plot.lisp	12 Mar 2004 16:38:49 -0000
@@ -942,7 +942,7 @@
   ;; IF NOT COMMENTED, plot2d(expr,range,[plot_format,ps]) GENERATES BAD POSTSCRIPT (SEE BUG REPORT #834729)
   ;; (or ($listp fun ) (setf fun `((mlist) ,fun)))	
 
-  (cond ((eq (cadr fun) '$parametric)
+  (cond ( (and ($listp fun) (eq (cadr fun) '$parametric))
 	 (or range (setq range (nth 4 fun)))
 	 (setf fun `((mlist) ,fun))))
   (cond ((eq ($get_plot_option '$PLOT_FORMAT 2) '$ps)
@@ -952,7 +952,8 @@
   (check-range range)
   (setq plot-format  ($get_plot_option '$plot_format 2))
   (setq file (format nil "maxout.~(~a~)" (stripdollar plot-format)))
-  
+  (or ($listp fun ) (setf fun `((mlist) ,fun)))
+
   (with-open-file (st file :direction :output :if-exists :supersede)  
     (dolist (v (cdr fun))
 	    (incf i)

-- 
Piet van Oostrum <piet@cs.uu.nl>
URL: http://www.cs.uu.nl/~piet [PGP]
Private email: P.van.Oostrum@hccnet.nl

Re: problem in plotlisp

[Piet van Oostrum]

>>>>> Piet van Oostrum <piet@cs.uu.nl> (PvO) wrote:

PvO> plot.lisp in CVS has introduced a change where the line

Sorry, this went to the wrong list.
-- 
Piet van Oostrum <piet@cs.uu.nl>
URL: http://www.cs.uu.nl/~piet [PGP]
Private email: P.van.Oostrum@hccnet.nl