[Maxima-commits] CVS: maxima/src transl.lisp,1.16,1.17

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

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

Modified Files:
	transl.lisp 
Log Message:
Revert previous change.  This breaks nusum and corresponding tests. 


Index: transl.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/transl.lisp,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- transl.lisp	6 Dec 2005 15:35:06 -0000	1.16
+++ transl.lisp	6 Dec 2005 18:18:37 -0000	1.17
@@ -1664,7 +1664,9 @@
 #+cl
 (defmacro maset ( val ar  &rest inds)
   `(progn
-    (defvar ,ar (make-equal-hash-table ,(if (cdr inds) t nil)))
+     (cond ((symbolp ,ar)
+	    (setf ,ar (make-equal-hash-table
+		       ,(if (cdr inds) t nil)))))
     (maset1 ,val  ,ar ,@  inds)))