From: Robert D. <rob...@us...> - 2009-06-22 04:42:28
|
Update of /cvsroot/maxima/maxima/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv6335/src Modified Files: inmis.lisp Log Message: Ensure that a value is found in the hashtable of reset-able values before trying to reset it. This corrects a bug reported to the mailing list. Index: inmis.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/inmis.lisp,v retrieving revision 1.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- inmis.lisp 2 Dec 2008 04:41:12 -0000 1.13 +++ inmis.lisp 22 Jun 2009 04:42:23 -0000 1.14 @@ -100,7 +100,8 @@ (if args (mapcar #'(lambda (key) - (maybe-reset key (gethash key *variable-initial-values*) actually-reset reset-verbose)) + (multiple-value-bind (val found-p) (gethash key *variable-initial-values*) + (if found-p (maybe-reset key val actually-reset reset-verbose)))) args) (maphash |