From: Robert D. <rob...@us...> - 2006-04-23 18:00:54
|
Update of /cvsroot/maxima/maxima/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16449/src Modified Files: suprv1.lisp Log Message: In RULEOF, ensure pattern is not an atom before attempting CAAR. (Atomic patterns are OK for defrule and defmatch.) Index: suprv1.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/suprv1.lisp,v retrieving revision 1.34 retrieving revision 1.35 diff -u -d -r1.34 -r1.35 --- suprv1.lisp 19 Dec 2005 03:19:51 -0000 1.34 +++ suprv1.lisp 23 Apr 2006 18:00:30 -0000 1.35 @@ -588,7 +588,7 @@ (defmfun ruleof (rule) (or (mget rule 'ruleof) - (let ((op (caaadr (mget rule '$rule))) l) + (let* ((pattern (cadr (mget rule '$rule))) (op (if (atom pattern) nil (caar pattern))) l) (and (setq l (get op 'rules)) (memq rule l) op)))) (defmfun $debugmode (x) (debugmode1 nil x)) |