Diff of /maxima/src/matrun.lisp [cb09b4] .. [7d15ab] Maximize Restore

  Switch to side-by-side view

--- a/maxima/src/matrun.lisp
+++ b/maxima/src/matrun.lisp
@@ -154,7 +154,7 @@
 	    (setq p (reverse p))
 	    (setq p (nthkdr p (f- (length p) (length preds))))
 	    (setq p (nreverse p))))
-     (setq e ($ratexpand e))
+     (setq e (copy-tree e)) ; PREVIOUSLY: (setq e ($ratexpand e))
      (setq e (cond ((not (mplusp e)) (ncons e)) (t (cdr e))))
      a    (cond ((null p) (cond ((null e) (return t)) (t (matcherr))))
 		((and (cdr preds) (memq (car (caddar preds)) '(msetq setq)))
@@ -182,7 +182,7 @@
 	    (setq p (reverse p))
 	    (setq p (nthkdr p (f- (length p) (length preds))))
 	    (setq p (nreverse p))))
-     (setq e ($factor e))
+     (setq e (copy-tree e)) ; PREVIOUSLY: (setq e ($factor e))
      (setq e (cond ((not (mtimesp e)) (ncons e)) (t (cdr e))))
      a    (cond ((null p) (cond ((null e) (return t)) (t (matcherr))))
 		((and (cdr preds) (memq (car (caddar preds)) '(msetq setq)))