[Maxima-commits] CVS: maxima/src plot.lisp,1.50,1.51

[Raymond T. <rt...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26962/src

Modified Files:
	plot.lisp 
Log Message:
Bug [ 1290386 ] plot2d([discrete,...]) - side effect

Apply suggested fix of doing a deep copy of the input list so we don't
destructively modify it thereby modifying the user's list.


Index: plot.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/plot.lisp,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -d -r1.50 -r1.51
--- plot.lisp	14 Sep 2005 17:39:17 -0000	1.50
+++ plot.lisp	14 Sep 2005 20:35:08 -0000	1.51
@@ -711,8 +711,9 @@
   )
 
 (defun draw2d-discrete (f)
-  (let ((x (third f))
-	(y (fourth f)))
+  (let* ((f (copy-tree f))		; Copy all of F because we destructively modify it below.
+	 (x (third f))
+	 (y (fourth f)))
     (cond 
       ((= (length f) 4)			; [discrete,x,y]
        (if (not ($listp x))