[Maxima-commits] CVS: maxima/src mlisp.lisp,1.31,1.32

[Andreas E. <ar...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv26955/src

Modified Files:
	mlisp.lisp 
Log Message:
removed stale conditionalizations;
replaced maclispisms by cl iodioms;
removed old, no longer pertinent comments and commented out code;
corrected use of delete (the return value was not used)


Index: mlisp.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/mlisp.lisp,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- mlisp.lisp	30 Dec 2006 19:14:31 -0000	1.31
+++ mlisp.lisp	3 Feb 2007 13:56:46 -0000	1.32
@@ -7,6 +7,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (in-package :maxima)
+
 ;;	** (c) Copyright 1982 Massachusetts Institute of Technology **
 
 (macsyma-module mlisp)
@@ -19,8 +20,8 @@
     (setq *read-base* 10.))
 
 (declare-top
[...3042 lines suppressed...]
+      '($exponentialize $%emode $demoivre $logexpand $logarc $lognumer
+	$radexpand $keepfloat $listarith $float $ratsimpexpons $ratmx
+	$simp $simpsum $simpproduct $algebraic $ratalgdenom $factorflag $ratfac
+	$infeval $%enumer $programmode $lognegint $logabs $letrat
+	$halfangles $exptisolate $isolate_wrt_times $sumexpand
+	$cauchysum $numer_pbranch $m1pbranch $dotscrules $trigexpand))
 
 (mdefprop $%e     2.71828182845904523536 $numer) ; (EXP 1) [wrong in ITS-MACLISP]
 (mdefprop $%pi    3.14159265358979323846 $numer) ; (ATAN 0 -1)
@@ -2767,10 +2076,3 @@
     #-gcl (:compile-toplevel :execute)
 
     (setq  *read-base* *old-read-base*))
-
-;; Undeclarations for the file:
-;;(declare-top (NOTYPE N I J NNEED NGIVEN NCELLS NITEMS LISPSUB INDX EVFLG))
-
-
-
-