problem in plotlisp
- Subject: problem in plotlisp
- From: Piet van Oostrum
- Date: 12 Mar 2004 18:09:33 +0100
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
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://mail.gnu.org/mailman/listinfo/emacs-devel