From: Andreas E. <ar...@us...> - 2009-05-05 19:27:12
|
Update of /cvsroot/maxima/maxima/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv27473 Modified Files: compar.lisp Log Message: corrected a typpo in minmaxp; removed unnecessary vars from declare-top; define $useminmax as special before use; rewrote a few places to silence compiler warnings; bit of cleanup everywhere; Index: compar.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/compar.lisp,v retrieving revision 1.47 retrieving revision 1.48 diff -u -d -r1.47 -r1.48 --- compar.lisp 5 Apr 2009 21:57:05 -0000 1.47 +++ compar.lisp 5 May 2009 19:26:50 -0000 1.48 @@ -14,12 +14,9 @@ (load-macsyma-macros mrgmac) -(declare-top (special $float2bf $radexpand $ratprint $ratsimpexpons $listconstvars - success $props *x* $%enumer) - ;; Variables defined in DB - (special context current dobjects dbtrace +labs)) +(declare-top (special success $props)) -(defvar *debug-compar* nil +(defvar *debug-compar* nil [...1203 lines suppressed...] @@ -2038,6 +2016,7 @@ (defun symbols (x) (let (($listconstvars %initiallearnflag)) + (declare (special $listconstvars)) (cdr ($listofvars x)))) ;; %initiallearnflag is only necessary so that %PI, %E, etc. can be LEARNed. @@ -2048,10 +2027,7 @@ (learn `((mequal) ,c ,(mget c '$numer)) t)) (setq %initiallearnflag nil)) -(eval-when - #+gcl (load eval) - #-gcl (:load-toplevel :execute) - +(eval-when (:load-toplevel :execute) (mapc #'true* '((par ($even $odd) $integer) |