From: Andreas E. <ar...@us...> - 2007-02-13 18:52:47
|
Update of /cvsroot/maxima/maxima/src In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv11445 Modified Files: comm.lisp Log Message: remove stale conditionalization; replaced maclispisms by CL idioms. Index: comm.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/comm.lisp,v retrieving revision 1.14 retrieving revision 1.15 diff -u -d -r1.14 -r1.15 --- comm.lisp 20 Apr 2006 14:31:45 -0000 1.14 +++ comm.lisp 13 Feb 2007 18:52:34 -0000 1.15 @@ -7,49 +7,57 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (in-package :maxima) + ;; ** (c) Copyright 1982 Massachusetts Institute of Technology ** (macsyma-module comm) -(declare-top (genprefix c) - (special $exptsubst $linechar $nolabels $inflag $piece $dispflag +(declare-top (special $exptsubst $linechar $nolabels $inflag $piece $dispflag [...964 lines suppressed...] +(defmfun $lopow (e var) + (findpowers e nil)) (defun findpowers (e hiflg) (let (powers num flag) (findpowers1 e) (cond ((null powers) (if (null num) 0 num)) - (t (if num (setq powers (cons num powers))) + (t (when num (setq powers (cons num powers))) (maximin powers (if hiflg '$max '$min)))))) (defun findpowers1 (e) @@ -1053,7 +1079,3 @@ ((lessp pow num) (setq num pow)))) (declare-top (unspecial powers var hiflg num flag)) - - -;; Undeclarations for the file: -(declare-top (notype i n largl lvrs count tim)) |