From: Dieter K. <cra...@us...> - 2009-11-24 23:29:40
|
Update of /cvsroot/maxima/maxima/src In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv8439/src Modified Files: inmis.lisp Log Message: Do not add boolean values to the list of vars in the function atomvars. Related bug report: Bug ID: 1646397 - listofvars includes true No problems with the testsuite. Index: inmis.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/inmis.lisp,v retrieving revision 1.14 retrieving revision 1.15 diff -u -d -r1.14 -r1.15 --- inmis.lisp 22 Jun 2009 04:42:23 -0000 1.14 +++ inmis.lisp 24 Nov 2009 23:29:28 -0000 1.15 @@ -52,8 +52,12 @@ listofvars)) (defun atomvars (e) - (cond ((and (symbolp e) (or $listconstvars (not ($constantp e)))) - (add2lnc e listofvars)) + (cond ((and (symbolp e) + (or $listconstvars + ;; Do not add constants or boolean values to list of vars. + (and (not ($constantp e)) + (not (member e '(t $true nil $false)))))) + (add2lnc e listofvars)) ((atom e)) ((specrepp e) (atomvars (specdisrep e))) ((member 'array (car e) :test #'eq) (myadd2lnc e listofvars)) |