home *** CD-ROM | disk | FTP | other *** search
/ Enter 2004 January / enter-2004-01.iso / files / maxima-5.9.0.exe / {app} / share / maxima / 5.9.0 / src / lmdcls.lisp < prev    next >
Encoding:
Text File  |  2003-02-09  |  27.9 KB  |  507 lines
  1. ;;; -*-  Mode: Lisp; Package: Maxima; Syntax: Common-Lisp; Base: 8 -*- ;;;;;
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;;;     The data in this file contains enhancments.                    ;;;;;
  4. ;;;                                                                    ;;;;;
  5. ;;;  Copyright (c) 1984,1987 by William Schelter,University of Texas   ;;;;;
  6. ;;;     All rights reserved                                            ;;;;;
  7. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  8.  
  9. (in-package "MAXIMA")
  10. ;;to do add for other cl implementations.
  11. (defun remove-type ( l)
  12.   (sloop for v in l
  13.      when (consp v) do (setq v (car v))
  14.      when (symbolp v)
  15.      do (remprop v
  16.              #+ti 'compiler::variable-type
  17.              #+kcl 'compiler::cmp-type
  18.              #-(or ti kcl) nil
  19.              )))
  20.  
  21. (defvar *macro-file* nil)
  22.  
  23. #+gcl
  24. (progn 
  25. (clines "#define MAKE_UNSPECIAL(x) (check_type_symbol(&(x)),(x)->s.s_stype = stp_ordinary, Cnil)")
  26. (defentry make-unspecial (object) (object "MAKE_UNSPECIAL"))
  27. )
  28.  
  29. (defmacro declare-top (&rest decl-specs)
  30.   `(eval-when ,(cond (*macro-file*  '(compile eval load))
  31.              (t'(eval compile)))
  32.      ,@ (sloop for v in decl-specs
  33.            ;;only accept these declares for the moment
  34.            ;;there are type declares that hang
  35.            ;;around and cause problems
  36.            when (not (member (car v) '(special unspecial no-type))) do nil 
  37.            else
  38.            when (eql (car v) 'unspecial)
  39.            collect `(progn ,@ (sloop for w in
  40.                      (cdr v)
  41.                      collect #-gcl  `(remprop ',w
  42.                                #-excl 'special
  43.                                #+excl 'excl::.globally-special.
  44.                                )
  45.                      #+gcl `(make-unspecial ',w)
  46.                      
  47.                      ))
  48.            else when (eql (car v) 'fixnum)
  49.            collect
  50.            `(proclaim ',(sloop for w in  v when (symbolp w) collect w))
  51.            else when (eql (car v) 'notype)
  52.            collect `(remove-type ',(cdr v))
  53.            else collect `(proclaim ',v))))
  54.  
  55.  
  56. ;(DEFPROP DCL "12//7//81 0:57:08" VERSION) 
  57. ;(*EXPR CMOD CPLUS CTIMES CEXPT CRECIP CFACTOR) 
  58. ;(*FEXPR $FASMAK) 
  59. ;(*EXPR SOLVEQUARTIC) 
  60. ;(*EXPR $GETCHARN) 
  61. ;(*EXPR $FACOUT $DISTRIB) 
  62. ;(*LEXPR $SCSIMP) 
  63. ;(*FEXPR $GRAPH $PLOT) 
  64. ;(*EXPR $APPLY_NOUNS MTREE-SUBST) 
  65. ;(*EXPR DIMENSION-SUPERSCRIPT) 
  66. ;(*EXPR $COMBINE) 
  67. ;(*EXPR LOGARC $LOGARC) 
  68. ;(*EXPR GET-OUT GET-FLIST) 
  69. ;(*EXPR $SUBSETP $ELEMENTOF $ELEMENTP $CARDINAL $MAPSET $PREDSET $ELEMENTS $EMPTYP $UNIVERSE $MAKE_UNIVERSE) 
  70. ;(*LEXPR $SETDIFF $SYMDIFF $INTERSECTION $UNION $ORDINAL ${) 
  71. ;(*LEXPR $NROOTS $REALROOTS) 
  72. ;(*EXPR $POLYDECOMP) 
  73. ;(*EXPR $CLEARSCREEN) 
  74. ;(*LEXPR $PAUSE) 
  75. ;(*EXPR $TRIGEXPAND) 
  76. ;(*EXPR $XTHRU) 
  77. ;(*EXPR $TR_WARNINGS_GET) 
  78. ;(*EXPR $PFET) 
  79. ;(*EXPR $SUBLIST) 
  80. ;(*FEXPR $MAKELIST) 
  81. ;(*FEXPR $RENAMEFILE $FILELENGTH $FILELIST $QLISTFILES $LISTFILES $PRINTFILE) 
  82. ;(*EXPR $TLDEFINT) 
  83. ;(*LEXPR $TLIMIT) 
  84. ;(*EXPR $BEZOUT $DISCRIMINANT $RESULTANT) 
  85. ;(*FEXPR $OPTIONS) 
  86. ;(*EXPR MBUILDQ-SUBST) 
  87. ;(*FEXPR $BUILDQ) 
  88. ;(*EXPR MACSYMACALLP SUBRCALL$P SUBRCALLP) 
  89. ;(*LEXPR FMAPPLY) 
  90. ;(*EXPR DEFINE-SYMBOL) 
  91. ;(*EXPR OUTEX-HOOK-EXP $MAKE_INDEX_FILE) 
  92. ;(*EXPR $MAP_OVER_INDEX_FILE $READ_NTH_OBJECT $NUMBER_OF_OBJECTS_IN_INDEX_FILE $OPEN_INDEX_FILE) 
  93. ;(*EXPR OUTEX-HOOK-EXP $MAKE_INDEX_FILE) 
  94. ;(*EXPR $MAP_OVER_INDEX_FILE $READ_NTH_OBJECT $INDEX_FILE_DIM $OPEN_INDEX_FILE) 
  95. ;(*EXPR MMINUSP*) 
  96. ;(*EXPR LOWDEG) 
  97. ;(*EXPR $ZEROEQUIV) 
  98. ;(*EXPR SIMP-%SECH SIMP-%CSCH SIMP-%COTH SIMP-%TANH SIMP-%COSH SIMP-%SINH) 
  99. ;(*EXPR SIMP-%ASEC SIMP-%ACSC SIMP-%ACOT SIMP-%ACOS SIMP-%ASIN) 
  100. ;(*EXPR SIMP-%ASECH SIMP-%ACSCH SIMP-%ACOTH SIMP-%ATANH SIMP-%ACOSH SIMP-%ASINH) 
  101. ;(*EXPR TRIGEXPAND $TRIGEXPAND) 
  102. ;(*FEXPR $MULTIGRAPH $PARAMPLOT) 
  103. ;(*FEXPR $GRAPH $PLOT) 
  104. ;(*EXPR $TAG_FILE_INSERT) 
  105. ;(*FEXPR $PRIMER) 
  106. ;(*EXPR $SUBLIS) 
  107. ;(*LEXPR $SUSPEND) 
  108. ;(*EXPR ACSCH ASECH ACOTH ATANH ASINH ACOSH SECH CSCH COTH TANH COSH SINH ACSC ASEC ACOT ATAN1 ACOS ASIN CSC SEC COT TAN MMINUSP* MMINUSP EXPONENTIALIZE $EXPONENTIALIZE RREMAINDER RTIMES RDIFFERENCE RPLUS SIMP-%ATAN SIMP-%SEC SIMP-%CSC SIMP-%COT SIMP-%TAN SIMP-%COS SIMP-%SIN ARCP TRIGP SQ-SUMSQ SQRTX^2-1 SQRT1+X^2 SQRT1-X^2) 
  109. ;(*FEXPR $PRODUCT) 
  110. ;(*EXPR $LHS $RHS $PARTITION $DEMOIVRE) 
  111. ;(*EXPR *MERROR-1) 
  112. ;(*EXPR PTIMES PQUOTIENT PMOD PMINUS PMINUSP PDERIVATIVE PDIFFERENCE PPLUS POINTERGP) 
  113. ;(*EXPR MDESCRIBE) 
  114. ;(*FEXPR $DESCRIBE) 
  115. ;(*EXPR $TMINVERSE $TMLIN) 
  116. ;(*LEXPR $TMLINSOLVE $TMNEWDET) 
  117. ;(*LEXPR $PERMANENT $NEWDET) 
  118. ;(*EXPR $ALGNORM $SPLITFIELD $PFACTORALG $ALGTRACE) 
  119. ;(*LEXPR $BDISCR $ALGFAC) 
  120. ;(*EXPR FLUIDIZE ASS-EQ-SET ASSIGN-MODE-CHECK) 
  121. ;(*LEXPR CHEKVALUE ASS-EQ-REF) 
  122. ;(*LEXPR $TRANSLATE_FILE) 
  123. ;(*EXPR RATQUOTIENT RATPLUS RATEXPT RATTIMES RATREDUCE RATMINUS RATFACT RATDIF RATDERIVATIVE) 
  124. ;(*EXPR TRISPLIT CABS $CARG $CABS $POLARFORM $RECTFORM $IMAGPART $REALPART) 
  125. ;(*EXPR APPLY2HACK APPLY2 APPLY1HACK APPLY1 PART* PART+ FINDBASE FINDEXPON FINDFUN FINDBE $REMRULE) 
  126. ;(*FEXPR $APPLYB2 $APPLY2 $APPLYB1 $APPLY1 $DISPRULE) 
  127. ;(*EXPR $UNTRACE_IT $TRACE_IT) 
  128. ;(*EXPR $RESET $LISTOFVARS $UNKNOWN) 
  129. ;(*EXPR MAKE-TRAMP$) 
  130. ;(*LEXPR GET-ARRAY) 
  131. ;(*EXPR $ISIMPTEST $RSIMPTEST $ITEFFA $RTEFFA $TEFFS $IRES $RRES $NUPP $NUP $NU) 
  132. ;(*EXPR $DEBUG) 
  133. ;(*LEXPR $LISPDEBUGMODE $DEBUGPRINTMODE) 
  134. ;(*LEXPR $SORT) 
  135. ;(*EXPR $SUBLIST) 
  136. ;(*FEXPR $MAKELIST) 
  137. ;(*FEXPR $DEFRULE $TELLSIMPAFTER $TELLSIMP $DEFMATCH $MATCHDECLARE) 
  138. ;(*EXPR NEVERSET) 
  139. ;(*EXPR DEFINE-SYMBOL RBP LBP) 
  140. ;(*EXPR TOTAL-NARY RASSOCIATIVE LASSOCIATIVE NARY1 ANTISYM COMMUTATIVE1 ODDFUN EVENFUN DO%SUM DOSUM SIMPSUM SIMPGFACT SIMPFACT) 
  141. ;(*LEXPR $GENFACT) 
  142. ;(*FEXPR $SUM $DEFTAYLOR) 
  143. ;(*EXPR TRANSLATE-MACEXPR-TOPLEVEL TRANSLATE-AND-EVAL-MACSYMA-EXPRESSION) 
  144. ;(*EXPR MTELL5 MTELL4 MTELL3 MTELL2 MTELL1 DISPLAF *MFORMAT-5 *MFORMAT-4 *MFORMAT-3 *MFORMAT-2) 
  145. ;(*LEXPR MTELL MFORMAT) 
  146. ;(*EXPR TESTDIVIDE CFACTORW) 
  147. ;(*LEXPR $TRIGREDUCE) 
  148. ;(*EXPR PDEGREE $PRIMEP PGCD1 PQUOTIENTCHK) 
  149. ;(*EXPR $RATDISREP $RATEXPAND RATIONALIZE RATF RATREP* RATREP $GFACTOR $SQFR $TOTALDISREP $SHOWRATVARS $PRINTVARLIST $RATDENOM $RATNUMER) 
  150. ;(*LEXPR $CONTENT $GCD $REMAINDER $QUOTIENT $DIVIDE $MOD FACTOR $FACTOR $RATSIMP $RAT $FULLRATSIMP $RATVARS $TELLRAT $UNTELLRAT) 
  151. ;(*EXPR MEMALIKE ASSOLIKE ASSOL) 
  152. ;(*EXPR $POISINT $POISSQUARE $POISEXPT $POISTIMES $POISDIFF $PRINTPOIS $OUTOFPOIS $POISCTIMES $INTOPOIS $POISMAP $POISPLUS $POISSIMP) 
  153. ;(*LEXPR $POISSUBST) 
  154. ;(*EXPR $POISINT $POISSQUARE $POISEXPT $POISTIMES $POISDIFF $PRINTPOIS $OUTOFPOIS $POISCTIMES $INTOPOIS $POISMAP $POISPLUS $POISSIMP) 
  155. ;(*LEXPR $POISSUBST) 
  156. ;(*EXPR $ILT $LAPLACE) 
  157. ;(*EXPR $FASTTIMES) 
  158. ;(*LEXPR $RATWEIGHT) 
  159. ;(*LEXPR $HORNER) 
  160. ;(*EXPR $PARTFRAC) 
  161. ;(*EXPR $RATDIFF) 
  162. ;(*EXPR $PFET) 
  163. ;(*EXPR $RESULTANT $DISCRIMINANT) 
  164. ;(*EXPR $BEZOUT) 
  165. ;(*EXPR $PADE) 
  166. ;(*FEXPR $HELP) 
  167. ;(*FEXPR $SCANMAP) 
  168. ;(*LEXPR $NOFIX $MATCHFIX $NARY $INFIX $POSTFIX $PREFIX) 
  169. ;(*FEXPR $PRINTPROPS $PROPVARS $PROPERTIES) 
  170. ;(*EXPR DISPLINE MAKE-PARAM) 
  171. ;(*EXPR PABS $NTHROOT $INRT $ISQRT) 
  172. ;(*EXPR SIMPPLOG) 
  173. ;(*EXPR BINOCOMP SIMPBINOCOEF) 
  174. ;(*EXPR SIMPGAMMA SIMPBETA) 
  175. ;(*EXPR ERF SIMPERF) 
  176. ;(*EXPR $EMATRIX $ZEROMATRIX) 
  177. ;(*EXPR $AUGCOEFMATRIX $COEFMATRIX) 
  178. ;(*EXPR $ENTERMATRIX) 
  179. ;(*EXPR $XTHRU) 
  180. ;(*FEXPR $APROPOS) 
  181. ;(*EXPR $MAP_FLOAT_ARRAY $INIT_FLOAT_ARRAY) 
  182. ;(*EXPR ASCII-NUMBERP ALPHABETP CPUT A-ATOM DOT2L FSET LOG2 ASSQR FIRSTN RECONC AMONGL AMONG XOR ANDMAPCAR ORMAPC ANDMAPC MAP2C) 
  183. ;(*LEXPR CONCAT *MAKE-LIST) 
  184. ;(*EXPR META-FSET META-MPUTPROP META-PUTPROP META-ADD2LNC) 
  185. ;(*EXPR $CHANGENAME $INDICES2 $COMPONENTS $INDEXED $REMCOMPS $FLUSHND $INDICES $LC $SHOW $KDELTA $UNDIFF $CONTRACT $RIEMANN $CHR2 $CHR1 $METRIC $DUMMY) 
  186. ;(*LEXPR $REMCOORD $COORD $ENTERTENSOR $RENAME $FLUSHD $FLUSH $LORENTZ $COVDIFF $DEFCON) 
  187. ;(*FEXPR $REMCON $DISPCON) 
  188. ;(*LEXPR $FORTMX) 
  189. ;(*LEXPR $DOVER_FILE $DOVARD_FILE) 
  190. ;(*EXPR $PLOTRESET $PLOTINIT) 
  191. ;(*EXPR KILLC CONTEXTMARK KCNTXT CNTXT KILLFRAME REMOV UNKIND KILL UNTRUE DOUTERN DINTERN DINTERNP REMF ADDF DATUM PAR KIND FACT TRUE* KINDP ISP FALSEP TRUEP CLEAR VISIBLEP UNMRK MARKP MARK) 
  192. ;(*LEXPR CONTEXT DEACTIVATE ACTIVATE) 
  193. ;(*EXPR CHECK-OUT-OF-CORE-STRING ALLOCATE-MESSAGE-INDEX) 
  194. ;(*EXPR $SPECINT $LAPINT) 
  195. ;(*EXPR $GCFACTOR $JACOBI $TOTIENT $PRIME) 
  196. ;(*LEXPR $DIVSUM) 
  197. ;(*EXPR SIMPMDEFMACRO MMACRO-APPLY) 
  198. ;(*EXPR HGFSIMP-EXEC $HGFRED) 
  199. ;(*EXPR $SPECINT) 
  200. ;(*EXPR $LDEFINT) 
  201. ;(*LEXPR $LIMIT) 
  202. ;(*EXPR $ERRORMSG RATCOEFF) 
  203. ;(*EXPR STOTALDIFF DIFFNCEXPT DIFFLAPLACE DIFFSUM DIFFINT) 
  204. ;(*EXPR $AT $ATVALUE) 
  205. ;(*EXPR $LOGCONTRACT) 
  206. ;(*EXPR $NTERMS) 
  207. ;(*EXPR $FIBTOPHI) 
  208. ;(*EXPR $DERIVDEGREE) 
  209. ;(*EXPR BOX) 
  210. ;(*LEXPR $REMBOX $BOX $LPART $DPART) 
  211. ;(*EXPR $COPYLIST $COPYMATRIX) 
  212. ;(*LEXPR $GENMATRIX) 
  213. ;(*LEXPR $ADDCOL $ADDROW) 
  214. ;(*EXPR $ARRAYMAKE) 
  215. ;(*EXPR $UNORDER) 
  216. ;(*EXPR $GETCHAR) 
  217. ;(*LEXPR $CONCAT) 
  218. ;(*EXPR CG-IMAGE-TYO-N CG-TYO-N CG-IMAGE-TYO CG-TYO DIMENSION-SUPERSCRIPT DIMENSION-NOFIX DIMENSION-POSTFIX DIMENSION-NARY DIMENSION-INFIX DIMENSION-PREFIX MAKESTRING DIMENSION-STRING DIMENSION-ATOM DISPLA) 
  219. ;(*EXPR NFORMAT-ALL NFORMAT) 
  220. ;(*EXPR MSTRING) 
  221. ;(*EXPR $LOPOW $HIPOW COEFF $FLOAT $ENTIER $FIX $DENOM $NUM $SYMBOLP $ATOM $LENGTH $REVERSE $ARGS $LAST $FIRST FORMAT1 ATOMCHK $MEMBER $ENDCONS $CONS $LISTP LISTERCHK GETOPR GETOP MPART PART1 $DISPTERMS ELABEL $TRUNC REMSIMP DELSIMP NTHELEM UNION* SUBSTITUTEL NOTLOREQ ATVARSCHK SDIFF $DEL I-$DEPENDENCIES RECUR-APPLY SUBST0 SUBSTITUTE) 
  222. ;(*LEXPR $COEFF $DELETE $REST $APPEND $INPART $PART $DISPFORM $DISP $LDISP $DIFF $DEPENDS $SUBSTITUTE) 
  223. ;(*EXPR $TRANSPOSE $SETELMX $ROW $MINOR $COL $TRIANGULARIZE $RANK ONEN $ECHELON $INVERTMX $DIAGMATRIX $IDENT $DETERMINANT $CHARPOLY $MATRIXP) 
  224. ;(*LEXPR $SUBMATRIX) 
  225. ;(*EXPR $RADCAN FREEOF ARGSFREEOF $BOTHCOEF $RATSUBST RATCOEFF) 
  226. ;(*LEXPR $FREEOF $RATCOEF) 
  227. ;(*EXPR SIMPLIFY MORP PORM ROOT NCPOWER POWER* POWER NCMULN NCMUL2 DIV* DIV MULN MUL3 MUL2* MUL2 SUB* SUB NEG ADDN ADD2* ADD2) 
  228. ;(*EXPR NTHKDR *KAR SIMPARGS1 KDR KAR MATCHERR BPROG RATDENOMINATOR RATNUMERATOR SIMPNRT EXPAND1 ALIKE ALIKE1 GREAT SIMPMQAPPLY $ORDERGREATP $ORDERLESSP SIMPMATRIX SIMPEXPT EXPTRL SIMPSIGNUM SIGNUM1 SIMPDERIV INFSIMP SIMPMDEF SIMPLAMBDA SIMPEXP SIMPBIGFLOAT SIMPINTEG SIMP-LIMIT SIMPTIMES SIMPABS SIMPQUOT SIMPSQRT SIMPLN SIMPLUS FPCOFRAT TIMESK ADDK SIMPARGS SSIMPLIFYA EQTEST SIMPLIFYA FREEARGS FREEL FREE ISINOP CONSTFUN MXORLISTP MEQUALP MBAGP $NONSCALARP $SCALARP $CONSTANTP $NUMFACTOR SUBFUNARGS SUBFUNSUBS SUBFUNNAME SUBFUNMAKE SUBFUNMAKES SUBARGCHECK IMPROPER-ARG-ERR WNA-ERR TWOARGCHECK ONEARGCHECK $POLYSIGN SPECDISREP SPECREPP $RATP $RATNUMP $FLOATNUMP $EVENP $ODDP $INTEGERP $NUMBERP MRATCHECK SIMPCHECK SRATSIMP RATDISREP MQAPPLYP MNEGP MMMINUSP MLOGP MNCEXPTP MNCTIMESP MEXPTP MTIMESP MPLUSP RATNUMP EVEN MNUMP $BFLOATP ZEROP1 ONEP1 ONEP) 
  229. ;(*LEXPR $INTEGRATE $EXPAND $MULTTHRU) 
  230. ;(*FEXPR RETLIST MATCOEF) 
  231. ;(*EXPR $POWERSERIES) 
  232. ;(*EXPR MYCABS $ALGSYS) 
  233. ;(*EXPR MFILENAME-ONLYP $FILE_TYPE $LOAD $BATCHLOAD CALL-BATCH1 OPEN-IN-DSK OPEN-OUT-DSK LOAD-AND-TELL $LISTP_CHECK) 
  234. ;(*LEXPR $FILENAME_MERGE $FILE_SEARCH) 
  235. ;(*EXPR I-$STORE I-$UNSTORE) 
  236. ;(*EXPR RATINT) 
  237. ;(*EXPR $OPTIMIZE) 
  238. ;(*EXPR ARRSTORE-EXTEND MEVAL1-EXTEND $ARRAY_DIMENSION_N $ARRAY_NUMBER_OF_DIMENSIONS DIMENSION-ARRAY-OBJECT) 
  239. ;(*LEXPR $MAKE_ARRAY) 
  240. ;(*LEXPR $COMPILE_LISP_FILE) 
  241. ;(*EXPR $TIMEDATE $WHO) 
  242. ;(*EXPR $REVEAL $PICKAPART $ISOLATE) 
  243. ;(*EXPR $CHANGEVAR) 
  244. ;(*EXPR $GFACTORSUM $FACTORSUM) 
  245. ;(*EXPR $COMBINE) 
  246. ;(*LEXPR $FACTOROUT) 
  247. ;(*EXPR $CLEARSCREEN) 
  248. ;(*LEXPR $PAUSE) 
  249. ;(*EXPR $FACTCOMB $MINFACTORIAL $MAKEGAMMA $MAKEFACT) 
  250. ;(*EXPR $BERNPOLY SIMPBERN $BERN SIMPEULER $EULER) 
  251. ;(*EXPR $FIB $ZETA) 
  252. ;(*EXPR $CFEXPAND $QUNIT $CFDISREP) 
  253. ;(*EXPR $TAYTORAT) 
  254. ;(*EXPR $POLYDECOMP) 
  255. ;(*EXPR $LINSOLVE) 
  256. ;(*LEXPR $SOLVE) 
  257. ;(*LEXPR $EZGCD) 
  258. ;(*EXPR $NICEINDICES $BASHINDICES $INTOSUM $SUMCONTRACT) 
  259. ;(*EXPR APPLICATION-OPERATOR IS-BOOLE-CHECK ASSIGN-CHECK MAPPLY-TR INSURE-ARRAY-PROPS $ARRAYSETAPPLY $ARRAYAPPLY INTERVAL-ERROR) 
  260. ;(*LEXPR DISPLAY-FOR-TR MARRAYSET MARRAYREF MFUNCALL) 
  261. ;(*EXPR $TAYLORINFO) 
  262. ;(*LEXPR $TAYLOR) 
  263. ;(*EXPR $RISCH) 
  264. ;(*EXPR $SCALARP) 
  265. ;(*EXPR $RESIDUE) 
  266. ;(*EXPR DECLAREKIND RGRP $FEATUREP SIGN MNQP MGQP MGRP MEQP LIKE $SIGN ASKSIGN-P-OR-N $ASKSIGN MAXIMIN MINIMUM MAXIMUM $COMPARE RESTORE-FACTS FORGET LEARN ASSUME PRED-REVERSE PRE-ERR MEVALP2 MEVALP IS $KILLCONTEXT $NEWCONTEXT) 
  267. ;(*LEXPR $MIN $MAX $FACTS $DEACTIVATE $ACTIVATE $CONTEXT) 
  268. ;(*EXPR $GMARK $GVPRINT $GHPRINT $GTERPRI $EXITGRAPH $ENTERGRAPH $CLEAR $DRAWSYMBOL3 $LINE3 $VECTOR3 $POINT3 $SETPOINT3 $SIZE $SCREENSIZE1 $SCREENSIZE $DEFINESYMBOL $DRAWSYMBOL $LINE $VECTOR $POPDASH $PUSHDASH $CHANGEDASH $DEFINEDASH $POINT $SETPOINT) 
  269. ;(*EXPR MACHERRFUN IOLFUN TTYRETFUN TTYINTFUN TTYINTFUNSETUP $DSKGC I-$ALLOC $PAGEPAUSE MORE-FUN MTERPRI MFILE-OUT FILEPRINT FILESTRIP $DDT $LOGOUT $QUIT $TO_LISP COMPUTIME TIMEORG $THROW $UUO GETLABCHARN GETLABELS* GETLABELS $%TH $POISLIM $FPPREC CASIFY-EXPLODEN STRMEVAL MAKSTRING DOLLARIFY-NAME AMPERCHK $VERBIFY $NOUNIFY FULLSTRIP1 FULLSTRIP STRIPDOLLAR REMALIAS ALIAS RETRIEVE PRINL NONVARCHK NONSYMCHK FEXPRCHECK ERRBREAK $DEBUGMODE RULEOF REMVALUE REMLABELS KILL1 BATCH1 CARFILE MTRUENAME TRUEFNAME LOADFILE FILENAMEL MFBOUNDP DOLLARIFY LOAD-FILE FIND0 LOAD-FUNCTION FIND-FUNCTION REPRINT RUBOUT* FORMFEED $BOTHCASES TYI* ADDLABEL MEXPLODEN PRINTLABEL MAKELABEL MEVAL*) 
  270. ;(*LEXPR $FILEDEFAULTS $BREAK $RANDOM $READONLY $READ $PRINT) 
  271. ;(*EXPR MDESCRIBE) 
  272. ;(*EXPR ASK-INTEGER) 
  273. ;(*LEXPR $ASKINTEGER) 
  274. ;(*EXPR *ERRRJF-1 *MERROR-5 *MERROR-4 *MERROR-3 *MERROR-2 *MERROR-1 FSTRINGC READ-ONLY-ASSIGN $ERRORMSG) 
  275. ;(*LEXPR ERRRJF MERROR $ERROR) 
  276. ;(*EXPR FPENTIER *FPATAN ATANBIGFLOAT RATBIGFLOAT ADDBIGFLOAT $BFLOAT FP2FLO) 
  277. ;(*EXPR $ALLROOTS) 
  278. ;(*EXPR $BINOMIAL $GAMMA $ACSCH $ASECH $ACOTH $ATANH $ACOSH $ASINH $ACSC $ASEC $ACOT $ATAN $ACOS $ASIN $CSCH $SECH $COTH $TANH $COSH $SINH $CSC $SEC $COT $TAN $COS $SIN $LOG |''MAKE-FUN| DSKRAT MFILEP BIGFLOATM* ADD2LNC $SQRT $EXP RAT MRETURN OPTIONP MCONS-OP-ARGS $FUNMAKE MOPP1 MOPP ARRSTORE MGETL MREMPROP MPUTPROP MGET REMALIAS1 REMRULE REMARRELEM I-$REMVALUE REMPROPCHK REMOVE1 I-$REMOVE $PUT $REM $GET FUNCER $MAPATOM MMAPEV NEVERSET NUMERSET MSETCHK MSETERR $SUBVARP MQUOTEP MSETQP MEVALATOMS MSET MUNBIND MBIND MARGS MOP MEVAL2 MEVAL1 MEVAL MEVALN MAPPLY) 
  279. ;(*LEXPR $ALLBUT $MATRIX OUTERMAP1 FMAPL1 MCALL) 
  280. ;(*FEXPR DSKSETQ MDEFPROP) 
  281. ;;Surely we don't need to declare exprs on lispm
  282. ;;I have tried to eliminate anything other than plain functions and macros
  283. ;;with one or two defsubsts ;;which I should get rid of  --wfs
  284. ;; Definitions needed to use lmdcls.lisp
  285. #+gcl (defmacro fixnum (&rest ign)ign nil)
  286. (defmacro flonum (&rest ign)ign nil)
  287. ;
  288. ;(proclaim '(special RULEFCNL $use_fast_arrays ))
  289. ;(proclaim '(special integerl nonintegerl))
  290. ; ;referenced in askp,declared in defint.
  291. ;(proclaim '(SPECIAL $USER_MESFILE DUMPING USER-MESFILE MASTER-MESFILE)) 
  292. ;(proclaim '(SPECIAL $UNIVERSE $DISPLAYSET)) 
  293. ;(proclaim '(SPECIAL $TR_WARN_BAD_FUNCTION_CALLS)) 
  294. ;(proclaim '(SPECIAL $RESULTANT)) 
  295. ;(proclaim '(SPECIAL $ROMBERGIT_USED $ROMBERGABS $ROMBERGTOL $ROMBERGMIN $ROMBERGIT)) 
  296. ;(proclaim '(SPECIAL $TRACE_MAX_INDENT $TRACE_BREAK_ARG $TRACE)) 
  297. ;(proclaim '(SPECIAL $TR_FLOAT_CAN_BRANCH_COMPLEX)) 
  298. ;(proclaim '(SPECIAL $SUBLIS_APPLY_LAMBDA)) 
  299. ;(proclaim '(SPECIAL $SUSPEND)) 
  300. ;(proclaim '(SPECIAL -SQRT3//2 SQRT3//2 -SQRT2//2 SQRT2//2 %PI//2 %PI//4 -1//2 1//2 $HALFANGLES $LOGARC $EXPONENTIALIZE $TRIGSIGN $TRIGEXPANDTIMES $TRIGEXPANDPLUS $TRIGEXPAND $TRIGINVERSES $%IARGS $%PIARGS)) 
  301. ;(proclaim '(SPECIAL $GAMMALIM $SUMSPLITFACT HALF%PI3 %PI2 HALF%PI FOURTH%PI %P%I)) 
  302. ;(proclaim '(SPECIAL ERRRJFFLAG HMODULUS MODULUS)) 
  303. ;(proclaim '(SPECIAL $POINTBOUND)) 
  304. ;(proclaim '(SPECIAL $MODE_CHECK_ERRORP $MODE_CHECK_WARNP $MODE_CHECKP)) 
  305. ;(proclaim '(SPECIAL $TR_GEN_TAGS $TR_STATE_VARS $TR_TRUE_NAME_OF_FILE_BEING_TRANSLATED $COMPGRIND TRANSL-FILE $TR_WINDY $TR_FILE_TTY_MESSAGESP $TR_OUTPUT_FILE_DEFAULT *TRANSL-FILE-DEBUG*)) 
  306. ;(proclaim '(SPECIAL $RATALGDENOM $RATWTLVL)) 
  307. ;(proclaim '(SPECIAL GENERATE-ATAN2 IMPLICIT-REAL)) 
  308. ;(proclaim '(SPECIAL $MAXAPPLYHEIGHT $MAXAPPLYDEPTH)) 
  309. ;(proclaim '(SPECIAL $TIMER_DEVALUE $TIMER $TRACE_MAX_INDENT $TRACE_BREAK_ARG $TRACE_SAFETY $TRACE)) 
  310. ;(FIXNUM $TRACE_MAX_INDENT) 
  311. ;(proclaim '(SPECIAL $LISTCONSTVARS)) 
  312. ;(proclaim '(SPECIAL TRAMP3$ TRAMP2$ TRAMP1$)) 
  313. ;(proclaim '(SPECIAL $PARSEWINDOW)) 
  314. ;(FIXNUM $PARSEWINDOW) 
  315. ;(proclaim '(SPECIAL $PRODHACK $SUMHACK $SIMPSUM $ZEROBERN $GENINDEX $GENSUMNUM $CAUCHYSUM)) 
  316. ;(proclaim '(SPECIAL $TR_BOUND_FUNCTION_APPLYP $TR_OPTIMIZE_MAX_LOOP *$ANY-MODES* *TR-WARN-BREAK* $TR_PREDICATE_BRAIN_DAMAGE $TR_NUMER $TR_ARRAY_AS_REF $TR_FUNCTION_CALL_DEFAULT *WARNED-MODE-VARS* *WARNED-FEXPRS* *WARNED-UN-DECLARED-VARS* $TR_WARN_UNDEFINED_VARIABLE $TR_WARN_MODE $TR_WARN_FEXPR $TR_WARN_MEVAL $TR_WARN_UNDECLARED TR-UNIQUE TR-ABORT *TRANSL-DEBUG* *TRANSL-BACKTRACE* TRANSLATE-TIME-EVALABLES SPECIALS ASSIGNS NEED-PROG? RETURN-MODE RETURNS INSIDE-MPROG TR-PROGRET FEXPRS EXPRS LEXPRS ARRAYS LOCAL TSTACK $SPECIAL $TRANSCOMPILE $TR_SEMICOMPILE $TRANSBIND)) 
  317. ;(proclaim '(special defined_variables forms-to-compile-queue typel *in-compile* declares))
  318. ;(proclaim '(SPECIAL $NEWFAC $NALGFAC SMALLPRIMES ALPHA MM* MPLC* MINPOLY* *MX* *MIN* GAUSS)) 
  319. ;(proclaim '(SPECIAL *ALPHA BIGPRIMES $GCD *GCDL*)) 
  320. ;(proclaim '(SPECIAL $RATDENOMDIVIDE $RATEXPAND $RATEPSILON $RATPRINT FR-FACTOR ADN* INRATSIMP TELLRATLIST $FACEXPAND $RATVARS $ALGEBRAIC $RATFAC $RATWEIGHTS $NOREPEAT $DONTFACTOR $FACTORFLAG $KEEPFLOAT *RATWEIGHTS *FNEWVARSW VARLIST GENPAIRS GENVAR)) 
  321. ;(proclaim '(SPECIAL $RESULTANT)) 
  322. ;(proclaim '(SPECIAL $LINSOLVE_PARAMS $%RNUM $BACKSUBST $SPARSE $GLOBALSOLVE)) 
  323. ;(proclaim '(SPECIAL $HOMOG_HACK $SAVEFACTORS $BERLEFACT $INTFACLIM LOW* ALGFAC* *IRREDS)) 
  324. ;(proclaim '(SPECIAL $BETA_ARGS_SUM_TO_INTEGER)) 
  325. ;(proclaim '(SPECIAL META-PROP-L META-PROP-P)) 
  326. ;(proclaim '(SPECIAL $FORTFLOAT $FORTINDENT $FORTSPACES)) 
  327. ;(FIXNUM $FORTINDENT) 
  328. ;(proclaim '(SPECIAL $MAXPRIME)) 
  329. ;(proclaim '(SPECIAL $MACROEXPANSION)) 
  330. ;(proclaim '(SPECIAL PRESERVE-DIRECTION LIMIT-ANSWERS SIMPLIMPLUS-PROBLEMS RD* INFINITESIMALS REAL-INFINITIES INFINITIES)) 
  331. ;(proclaim '(SPECIAL $SUPERLOGCON $LOGCONCOEFFP)) 
  332. ;(proclaim '(SPECIAL $ROOTSCONMODE)) 
  333. ;(proclaim '(SPECIAL $DISPLAY_FORMAT_INTERNAL $RMXCHAR $LMXCHAR $ABSBOXCHAR $BOXCHAR DISPLAYP STRINGDISP $FPTRUNC $NOUNDISP $DERIVABBREV $LINEDISP $LISPDISP $DISPLAY2D $LEFTJUST $STARDISP $CURSORDISP LINE-GRAPHICS-TTY CHARACTER-GRAPHICS-TTY)) 
  334. ;(proclaim '(SPECIAL $NEGSUMDISPFLAG $SQRTDISPFLAG $EXPTDISPFLAG $%EDISPFLAG $PFEFORMAT $POWERDISP)) 
  335. ;(proclaim '(SPECIAL $VECT_CROSS)) 
  336. ;(proclaim '(SPECIAL $MATRIX_ELEMENT_TRANSPOSE $MATRIX_ELEMENT_ADD $MATRIX_ELEMENT_MULT $RATMX)) 
  337. ;(proclaim '(SPECIAL DERIVSIMP ERRORSW DOSIMP $MAXNEGEX $MAXPOSEX $EXPON $EXPOP $MX0SIMP $DOMXTIMES $DOMXPLUS $DOMXEXPT $DOSCMXPLUS $NUMER_PBRANCH $SUMEXPAND $SIMP $NUMER $NEGDISTRIB $FLOAT)) 
  338. ;(FIXNUM $MAXNEGEX $MAXPOSEX $EXPON $EXPOP) 
  339. ;(proclaim '(SPECIAL ALGNOTEXACT $ALGEXACT REALONLYRATNUM $REALONLY $%RNUM_LIST)) 
  340. ;(proclaim '(SPECIAL $FILE_TYPES $FILE_SEARCH *IN-MACSYMA-INDEXER* *IN-TRANSLATE-FILE* *IN-$BATCHLOAD*)) 
  341. ;(proclaim '(SPECIAL $LET_RULE_PACKAGES $CURRENT_LET_RULE_PACKAGE $DEFAULT_LET_RULE_PACKAGE $LETRAT $LETVARSIMP)) 
  342. ;(proclaim '(SPECIAL $INTEGRATION_CONSTANT_COUNTER)) 
  343. ;(proclaim '(SPECIAL $OPTIMPREFIX)) 
  344. ;(proclaim '(SPECIAL $TO_CALL_LISP_COMPILER)) 
  345. ;(proclaim '(SPECIAL $ISOLATE_WRT_TIMES $EXPTISOLATE)) 
  346. ;(proclaim '(SPECIAL $SOLVERADCAN $SOLVETRIGWARN $SOLVENULLWARN $SOLVEFACTORS $SOLVEEXPLICIT $SOLVEDECOMPOSES $SAVEFACTORS $PROGRAMMODE $SOLVE_INCONSISTENT_ERROR $LINSOLVEWARN $MULTIPLICITIES $BREAKUP)) 
  347. ;(proclaim '(SPECIAL $TAYLOR_LOGEXPAND $TAYLOR_TRUNCATE_POLYNOMIALS $MAXTAYORDER)) 
  348. ;(proclaim '(SPECIAL $ERFFLAG $LIFLAG)) 
  349. ;(proclaim '(SPECIAL LIMITP $ASKEXP $SIGNBFLOAT $PREDERROR SIGN-IMAG-ERRP $ACTIVECONTEXTS $CONTEXTS $CONTEXT)) 
  350. ;(proclaim '(SPECIAL $SHOWTIME $FILE_STRING_PRINT $CHANGE_FILEDEFAULTS ALIASLIST $MOREWAIT $TTYINTFUN $TTYINTNUM USER-TIMESOFAR CASEP $DIREC $LINENUM $LINECHAR $OUTCHAR $INCHAR $%)) 
  351. ;(FIXNUM $LINENUM) 
  352. ;(proclaim '(SPECIAL DEFINTDEBUG)) 
  353. ;(proclaim '(SPECIAL $ERROR_SYMS $ERROR_SIZE $ERROR)) 
  354. ;(proclaim '(SPECIAL BIGFLOAT%PI BIGFLOAT%E BFMHALF BFHALF BIGFLOATONE BIGFLOATZERO $FPPREC $FPPRINTPREC $BFTRUNC $BFTORAT $FLOAT2BF)) 
  355. ;(FIXNUM $FPPRINTPREC) 
  356. ;(proclaim '(SPECIAL $ASSUMESCALAR $DOTIDENT $SCALARMATRIXP $DOMXNCTIMES $DOSCMXOPS $DOMXMXOPS $DOALLMXOPS $DOTASSOC $DOTEXPTSIMP $DOTDISTRIB $DOTSCRULES $DOT1SIMP $DOT0NSCSIMP $DOT0SIMP $DOTCONSTRULES)) 
  357. ;(proclaim '(SPECIAL $FLOATOPTIONS $FLOATWIDTH $FLOATPREC $FLOATFRAC $FLOATINT $FLOATFORMAT)) 
  358. ;(proclaim '(SPECIAL $SETCHECK MUNBINDP)) 
  359. ;(proclaim '(special $DEBUGMODE $BOTHCASES $PAGEPAUSE $DSKGC $POISLIM $STORENUM ^DMSG-ON ^DMSG-OFF ))
  360. ;
  361. ;(proclaim '(SPECIAL
  362. ;        MSPECLIST MPROPLIST BINDLIST LOCLIST BVARS NOUNSFLAG putl
  363. ;        NOITEMS DERIVFLAG DERIVLIST MPROGP MDOP EVP AEXPRP MLOCP $LABELS
  364. ;        $VALUES $FUNCTIONS $ARRAYS $RULES $GRADEFS $DEPENDENCIES $ALIASES
  365. ;        $MYOPTIONS $PROPS GENVAR $MAXPOSEX $MAXNEGEX $EXPOP $EXPON
  366. ;        $FLOAT $NUMER ARYP MSUMP STATE-PDL EVARRP $SETVAL NOUNL
  367. ;        $SETCHECKBREAK $REFCHECK DEBUG REFCHKL BAKTRCL MAPLP
  368. ;        $NOREPEAT $DETOUT $DOALLMXOPS $DOSCMXOPS OPERS FACTLIST OPEXPRP
  369. ;        $TRANSLATE $TRANSRUN $MAPERROR OUTARGS1 OUTARGS2 FMAPLVL MOPL
  370. ;        $POWERDISP $SUBSCRMAP $DISPFLAG $OPTIONSET DSKSETP FEXPRERRP
  371. ;        $FEATURES ALPHABET $%ENUMER $INFEVAL $SAVEDEF $%% %E-VAL
  372. ;        $MAPPRINT FEATUREL OUTFILES FUNDEFSIMP MFEXPRP TRANSP
  373. ;        SFINDEX MSPECLIST2 ENVLIST $MACROS LINEL $RATFAC $RATWTLVL
  374. ;        $OPERATORS NOEVALARGS $PIECE $PARTSWITCH *GCDL*
  375. ;        SCANMAPP ))
  376. ;
  377. ;(proclaim '     (SPECIAL $EXPTSUBST $LINECHAR $NOLABELS
  378. ;              $INFLAG $PIECE $DISPFLAG
  379. ;          $GRADEFS $PROPS $DEPENDENCIES DERIVFLAG DERIVLIST
  380. ;          $LINENUM $PARTSWITCH LINELABLE NN* DN* ISLINP
  381. ;          $POWERDISP ATVARS ATP $ERREXP $DERIVSUBST $DOTDISTRIB
  382. ;          $OPSUBST $SUBNUMSIMP $TRANSRUN IN-P SUBSTP $SQRTDISPFLAG
  383. ;          $PFEFORMAT DUMMY-VARIABLE-OPERATORS))
  384. ;(proclaim '     (SPECIAL $RADEXPAND $DOMAIN RADPE))
  385. ;(proclaim '(special lnorecurse &** timesp))
  386. ;(proclaim '(special $exponentialize))
  387. ;(proclaim '(special $functions $values linel))
  388.  
  389.  
  390. ;(FIXNUM $ROMBERGIT_USED $ROMBERGMIN $ROMBERGIT) 
  391. ;(FLONUM $ROMBERGABS $ROMBERGTOL) 
  392. ;(FIXNUM $TRACE_MAX_INDENT $TRACE_MAX_INDENT) 
  393.  
  394. ;;this list should contain all specials required by runtime or more
  395. ;;than one macsyma file, except for some specials declared in the macro
  396. ;;files, eg displm
  397.  
  398. (eval-when (compile eval load)
  399. (proclaim '(special
  400.   $% $%% $%EDISPFLAG $%EMODE $%ENUMER $%E_TO_NUMLOG $%IARGS $%PIARGS
  401.     $%RNUM $%RNUM_LIST $ABSBOXCHAR $ACTIVECONTEXTS $ALGEBRAIC $ALGEXACT
  402.     $ALIASES $ARRAYS $ASKEXP $ASSUMESCALAR $BACKSUBST $BERLEFACT
  403.     $BETA_ARGS_SUM_TO_INTEGER $BFTORAT $BFTRUNC $BOTHCASES $BOXCHAR
  404.     $BREAKUP $CAUCHYSUM $CHANGE_FILEDEFAULTS $COMPGRIND $CONTEXT
  405.     $CONTEXTS $CURRENT_LET_RULE_PACKAGE $CURSORDISP $DEBUGMODE
  406.     $DEFAULT_LET_RULE_PACKAGE $DEMOIVRE $DEPENDENCIES $DERIVABBREV
  407.     $DERIVSUBST $DETOUT $DIREC $DISPFLAG $DISPLAY2D $DISPLAYSET
  408.     $DISPLAY_FORMAT_INTERNAL $DOALLMXOPS $DOMAIN $DOMXEXPT $DOMXMXOPS
  409.     $DOMXNCTIMES $DOMXPLUS $DOMXTIMES $DONTFACTOR $DOSCMXOPS
  410.     $DOSCMXPLUS $DOT0NSCSIMP $DOT0SIMP $DOT1SIMP $DOTASSOC
  411.     $DOTCONSTRULES $DOTDISTRIB $DOTEXPTSIMP $DOTIDENT $DOTSCRULES
  412.     $DSKGC $ERFFLAG $ERREXP $ERROR $ERROR_SIZE $ERROR_SYMS $EXPON
  413.     $EXPONENTIALIZE $EXPOP $EXPTDISPFLAG $EXPTISOLATE $EXPTSUBST
  414.     $FACEXPAND $FACTORFLAG $FEATURES $FILE_SEARCH $FILE_STRING_PRINT
  415.     $FILE_TYPES $FLOAT $FLOAT2BF $FLOATFORMAT $FLOATFRAC $FLOATINT
  416.     $FLOATOPTIONS $FLOATPREC $FLOATWIDTH $FORTFLOAT $FORTINDENT
  417.     $FORTSPACES $FPPREC $FPPRINTPREC $FPTRUNC $FUNCTIONS $GAMMALIM $GCD
  418.     $GENINDEX $GENSUMNUM $GLOBALSOLVE $GRADEFS $HALFANGLES $HOMOG_HACK
  419.     $INCHAR $INFEVAL $INFLAG $INTEGRATION_CONSTANT_COUNTER $INTFACLIM
  420.     $ISOLATE_WRT_TIMES $KEEPFLOAT $LABELS $LEFTJUST $LETRAT $LETVARSIMP
  421.     $LET_RULE_PACKAGES $LIFLAG $LINECHAR $LINEDISP $LINENUM $linel
  422.     $LINSOLVEWARN $LINSOLVE_PARAMS $LISPDISP $LISTARITH $LISTCONSTVARS
  423.     $LMXCHAR $LOGARC $LOGCONCOEFFP $LOGEXPAND $LOGNEGINT $LOGNUMER
  424.     $LOGSIMP $M1PBRANCH $MACROEXPANSION $MACROS $MAPERROR $MAPPRINT
  425.     $MATRIX_ELEMENT_ADD $MATRIX_ELEMENT_MULT $MATRIX_ELEMENT_TRANSPOSE
  426.     $MAXAPPLYDEPTH $MAXAPPLYHEIGHT $MAXNEGEX $MAXPOSEX $MAXPRIME
  427.     $MAXTAYORDER $MODE_CHECKP $MODE_CHECK_ERRORP $MODE_CHECK_WARNP
  428.     $MOREWAIT $MULTIPLICITIES $MX0SIMP $MYOPTIONS $NALGFAC $NEGDISTRIB
  429.     $NEGSUMDISPFLAG $NEWFAC $NOLABELS $NOREPEAT $NOUNDISP $NUMER
  430.     $NUMER_PBRANCH $OPERATORS $OPSUBST $OPTIMPREFIX $OPTIONSET $OUTCHAR
  431.     $PAGEPAUSE $PARSEWINDOW $PARTSWITCH $PFEFORMAT $PIECE $POINTBOUND
  432.     $POISLIM $POWERDISP $PREDERROR $PRODHACK $PROGRAMMODE $PROPS
  433.     $RADEXPAND $RATALGDENOM $RATDENOMDIVIDE $RATEPSILON $RATEXPAND
  434.     $RATFAC $RATMX $RATPRINT $RATSIMPEXPONS $RATVARS $RATWEIGHTS
  435.     $RATWTLVL $REALONLY $REFCHECK $RESULTANT $RMXCHAR $ROMBERGABS
  436.     $ROMBERGIT $ROMBERGIT_USED $ROMBERGMIN $ROMBERGTOL $ROOTSCONMODE
  437.     $RULES $SAVEDEF $SAVEFACTORS $SCALARMATRIXP $SETCHECK
  438.     $SETCHECKBREAK $SETVAL $SHOWTIME $SIGNBFLOAT $SIMP $SIMPSUM
  439.     $SOLVEDECOMPOSES $SOLVEEXPLICIT $SOLVEFACTORS $SOLVENULLWARN
  440.     $SOLVERADCAN $SOLVETRIGWARN $SOLVE_INCONSISTENT_ERROR $SPARSE
  441.     $SPECIAL $SQRTDISPFLAG $STARDISP $STORENUM $SUBLIS_APPLY_LAMBDA
  442.     $SUBNUMSIMP $SUBSCRMAP $SUMEXPAND $SUMHACK $SUMSPLITFACT
  443.     $SUPERLOGCON $SUSPEND $TAYLOR_LOGEXPAND
  444.     $TAYLOR_TRUNCATE_POLYNOMIALS $TIMER $TIMER_DEVALUE
  445.     $TO_CALL_LISP_COMPILER $TRACE $TRACE_BREAK_ARG $TRACE_MAX_INDENT
  446.     $TRACE_SAFETY $TRANSBIND $TRANSCOMPILE $TRANSLATE $TRANSRUN
  447.     $TRIGEXPAND $TRIGEXPANDPLUS $TRIGEXPANDTIMES $TRIGINVERSES
  448.     $TRIGSIGN $TR_ARRAY_AS_REF $TR_BOUND_FUNCTION_APPLYP
  449.     $TR_FILE_TTY_MESSAGESP $TR_FLOAT_CAN_BRANCH_COMPLEX
  450.     $TR_FUNCTION_CALL_DEFAULT $TR_GEN_TAGS $TR_NUMER
  451.     $TR_OPTIMIZE_MAX_LOOP $TR_OUTPUT_FILE_DEFAULT
  452.     $TR_PREDICATE_BRAIN_DAMAGE $TR_SEMICOMPILE $TR_STATE_VARS
  453.     $TR_TRUE_NAME_OF_FILE_BEING_TRANSLATED $TR_WARN_BAD_FUNCTION_CALLS
  454.     $TR_WARN_FEXPR $TR_WARN_MEVAL $TR_WARN_MODE $TR_WARN_UNDECLARED
  455.     $TR_WARN_UNDEFINED_VARIABLE $TR_WINDY $TTYINTFUN $TTYINTNUM
  456.     $UNIVERSE $USER_MESFILE $USE_FAST_ARRAYS $VALUES $VECT_CROSS
  457.     $ZEROBERN %E-VAL %P%I %PI-VAL %PI//2 %PI//4 %PI2 &** *$ANY-MODES*
  458.     *ALPHA *CONST* *FNEWVARSW *GCDL* *IN *IN-$BATCHLOAD* *IN-COMPILE*
  459.     *IN-MACSYMA-INDEXER* *IN-TRANSLATE-FILE* *INV* *IRREDS *MIN* *MX*
  460.     *N *OPERS-LIST *OUT *RATWEIGHTS *TR-WARN-BREAK* *TRANSL-BACKTRACE*
  461.     *TRANSL-DEBUG* *TRANSL-FILE-DEBUG* *WARNED-FEXPRS*
  462.     *WARNED-MODE-VARS* *WARNED-UN-DECLARED-VARS* *ZEXPTSIMP? |-1//2|
  463.     -SQRT2//2 -SQRT3//2 |1//2| ADN* AEXPRP ALGFAC* ALGNOTEXACT
  464.     ALIASLIST ALPHA ALPHABET ARRAYS ARYP ASSIGNS ATP ATVARS BAKTRCL
  465.     BFHALF BFMHALF BIGFLOAT%E BIGFLOAT%PI BIGFLOATONE BIGFLOATZERO
  466.     BIGPRIMES BINDLIST BVARS CASEP CHARACTER-GRAPHICS-TTY DEBUG
  467.     DECLARES DEFINED_VARIABLES DEFINTDEBUG DERIVFLAG DERIVLIST
  468.     DERIVSIMP DISPLAYP DN* DOSIMP DSKSETP DUMMY-VARIABLE-OPERATORS
  469.     DUMPING ENVLIST ERRORSW ERRRJFFLAG EVARRP EVP EXPANDFLAG EXPANDP
  470.     EXPRS EXPTRLSW FACTLIST FEATUREL FEXPRERRP FEXPRS FMAPLVL
  471.     FORMS-TO-COMPILE-QUEUE FOURTH%PI FR-FACTOR FUNDEFSIMP GAUSS
  472.     GENERATE-ATAN2 GENPAIRS GENVAR HALF%PI HALF%PI3 HMODULUS
  473.     IMPLICIT-REAL IN-P INFINITESIMALS INFINITIES INRATSIMP INSIDE-MPROG
  474.     INTEGERL ISLINP LEXPRS LIMIT-ANSWERS LIMITP LINE-GRAPHICS-TTY LINEL
  475.     LINELABLE LNORECURSE LOCAL LOCLIST LOW* MAPLP MASTER-MESFILE MDOP
  476.     META-PROP-L META-PROP-P MFEXPRP MINPOLY* MLOCP MM* MODULUS MOPL
  477.     MPLC* MPROGP MPROPLIST MSPECLIST MSPECLIST2 MSUMP MUNBINDP
  478.     NEED-PROG? NEGPRODS NEGSUMS NN* NOEVALARGS NOITEMS NONINTEGERL
  479.     NOUNL NOUNSFLAG OPERS OPERS-LIST OPEXPRP OUTARGS1 OUTARGS2 OUTFILES
  480.     PLUSFLAG PRESERVE-DIRECTION PRODS PUTL RADCANP RADPE RD*
  481.     REAL-INFINITIES REALONLYRATNUM REFCHKL RETURN-MODE RETURNS RULEFCNL
  482.     RULESW SCANMAPP SFINDEX SIGN-IMAG-ERRP SIMPLIMPLUS-PROBLEMS
  483.     SMALLPRIMES SPECIALS SQRT2//2 SQRT3//2 STATE-PDL STRINGDISP SUBSTP
  484.     SUMS TELLRATLIST TIMESINP TIMESP TR-ABORT TR-PROGRET TR-UNIQUE
  485.     TRAMP1$ TRAMP2$ TRAMP3$ TRANSL-FILE TRANSLATE-TIME-EVALABLES TRANSP
  486.     TSTACK TYPEL USER-MESFILE USER-TIMESOFAR VARLIST WFLAG ^DMSG-OFF
  487.     ^DMSG-ON
  488.     $wtlevel $cflength $weightlevels *trunclist $taylordepth
  489.     $maxtaydiff $verbose $psexpand ps-bmt-disrep
  490.     silent-taylor-flag $DEFINE_VARIABLE
  491.     ))
  492. )
  493. (proclaim '(declaration splitfile))
  494. (proclaim '(declaration unspecial))
  495. (proclaim '(declaration muzzled))
  496. (proclaim '(declaration no-type))
  497. (proclaim '(declaration genprefix))
  498. (proclaim '(declaration flonum))
  499. (proclaim '(declaration *lexpr))
  500. (proclaim '(declaration *fexpr))
  501. (proclaim '(declaration *expr))
  502. (proclaim '(declaration mapex))
  503. (proclaim '(declaration macros))
  504. (proclaim '(declaration array*))
  505. (proclaim '(declaration notype))
  506. (proclaim '(declaration object))
  507.