[Maxima-commits] CVS: maxima/src mlisp.lisp,1.12,1.13

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

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

Modified Files:
	mlisp.lisp 
Log Message:
Bug 822032 fixed as suggested.


Index: mlisp.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/mlisp.lisp,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- mlisp.lisp	18 Nov 2004 15:20:30 -0000	1.12
+++ mlisp.lisp	21 Nov 2004 05:08:25 -0000	1.13
@@ -2508,7 +2508,7 @@
 
 (defmspec mdoin (form) (setq form (cdr form))
 	  (funcall #'(lambda  (mdop var set test action)
-		       (setq set (if (atom (setq set (format1 (meval (cadr form)))))
+		       (setq set (if ($atom (setq set (format1 (meval (cadr form)))))
 				     (merror "Atomic 'IN' argument to DO statement:~%~M" set)
 				     (margs set))
 			     test (list '(mor)