[Maxima-commits] CVS: maxima/src maxmin.lisp,1.2,1.3

[David B. <bil...@us...>]

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))