From: Barton W. <wil...@us...> - 2006-05-30 17:43:30
|
Update of /cvsroot/maxima/maxima/share/contrib In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv18369/share/contrib Modified Files: multiadditive.lisp Log Message: cons multiadditive onto opproperties Index: multiadditive.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/share/contrib/multiadditive.lisp,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- multiadditive.lisp 28 May 2006 18:17:20 -0000 1.1 +++ multiadditive.lisp 30 May 2006 17:43:21 -0000 1.2 @@ -29,6 +29,8 @@ (setq opers (cons '$multiadditive opers) *opers-list (cons '($multiadditive . multiadditive) *opers-list)) +(setq $opproperties ($cons '$multiadditive $opproperties)) + (defun multiadditive (e z) (cond ((some #'(lambda (s) (op-equalp s 'mplus)) (margs e)) (let ((op (mop e)) (args (margs e))) @@ -38,5 +40,3 @@ (t e))) - - |