From: David B. <bil...@us...> - 2006-04-09 14:12:03
|
Update of /cvsroot/maxima/maxima/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5606 Modified Files: maxmin.lisp Log Message: Simplify the result of function maximin before return. This is required when the function maxima function derivdegree is called from lisp. Index: maxmin.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/maxmin.lisp,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- maxmin.lisp 16 Nov 2005 18:36:45 -0000 1.2 +++ maxmin.lisp 9 Apr 2006 14:11:55 -0000 1.3 @@ -147,7 +147,7 @@ ;; Several functions (derivdegree for example) use the maximin function. Here is ;; a replacement that uses simp-min or simp-max. -(defun maximin (l op) `((,op) ,@l)) +(defun maximin (l op) (simplify `((,op) ,@l))) (defun $lmax (e) (simp-max `(($max) ,@(require-list-or-set e "$lmax")) nil nil)) |