[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

problem in plotlisp

From: Piet van Oostrum
Subject: problem in plotlisp
Date: 12 Mar 2004 18:09:33 +0100
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3.50

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 
   ;; (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 <address@hidden>
URL: http://www.cs.uu.nl/~piet [PGP]
Private email: address@hidden

reply via email to

[Prev in Thread] Current Thread [Next in Thread]