;; -*- Mode: Lisp; Package: Macsyma -*-
;; Declaration file for global variables known throughout Macsyma.
;; This file was generated by DEFINE version NIL.

;; Declarations for MAXSRC;MESRUN 9, compiled 10/23/80 3:47 by GJC.
(DECLARE (COMMENT MESRUN))
(DECLARE (SPECIAL $USER_MESFILE DUMPING USER-MESFILE MASTER-MESFILE))

;; Declarations for MAXSRC;SETS 10, compiled 10/28/80 23:37 by GJC.
(DECLARE (COMMENT SETS))
(DECLARE (SPECIAL $UNIVERSE $DISPLAYSET))

;; Declarations for MAXSRC;FCALL 36, compiled 11/15/80 19:08 by KMP.
(DECLARE (COMMENT FCALL))
(DECLARE (SPECIAL $TR_WARN_BAD_FUNCTION_CALLS))

;; Declarations for RAT;RESULT 20, compiled 12/9/80 21:40 by BMT.
(DECLARE (COMMENT RESULT))
(DECLARE (SPECIAL $RESULTANT))

;; Declarations for MAXSRC;NTRACE 24, compiled 1/22/81 1:13 by GJC.
(DECLARE (COMMENT NTRACE))
(DECLARE (SPECIAL $TRACE_MAX_INDENT $TRACE_BREAK_ARG $TRACE))
(DECLARE (FIXNUM $TRACE_MAX_INDENT $TRACE_MAX_INDENT))

;; Declarations for MAXSRC;TRANSF 9, compiled 2/17/81 19:27 by GJC.
(DECLARE (COMMENT TRANSF))
(DECLARE (SPECIAL $TR_FLOAT_CAN_BRANCH_COMPLEX))

;; Declarations for MAXSRC;SUSPEN 13, compiled 3/15/81 23:01 by GJC.
(DECLARE (COMMENT SUSPEN))
(DECLARE (SPECIAL $SUSPEND))

;; Declarations for MAXSRC;TRMODE 63, compiled 5/5/81 6:24 by JPG.
(DECLARE (COMMENT TRMODE))
(DECLARE (SPECIAL $MODE_CHECK_ERRORP $MODE_CHECK_WARNP $MODE_CHECKP))

;; Declarations for TRANSL;TRANSL 1145, compiled 6/26/81 18:44 by GJC.
(DECLARE (COMMENT TRANSL))
(DECLARE (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))

;; Declarations for TRANSL;TRPROP 1, compiled 7/15/81 1:48 by GJC.
(DECLARE (COMMENT TRPROP))
(DECLARE (SPECIAL META-PROP-L META-PROP-P))

;; Declarations for TRANSL;MCOMPI 145, compiled 9/21/81 10:48 by GJC.
(DECLARE (COMMENT MCOMPI))
(DECLARE (SPECIAL $TO_CALL_LISP_COMPILER))

;; Declarations for SHARE;FORMAT 13, compiled 12/3/81 2:30 by JPG.
(DECLARE (COMMENT FORMAT))
(DECLARE (SPECIAL $FLOATOPTIONS $FLOATWIDTH $FLOATPREC $FLOATFRAC $FLOATINT
                  $FLOATFORMAT))

;; Declarations for RP;DISPHK 764, compiled 12/12/81 9:57 by JPG.
(DECLARE (COMMENT DISPHK))
(DECLARE (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))

;; Declarations for TRANSL;TRANSS 79, compiled 1/22/82 6:51 by JPG.
(DECLARE (COMMENT TRANSS))
(DECLARE (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*))

;; Declarations for MAXSRC;ROMBRG 43, compiled 2/12/82 5:17 by JPG.
(DECLARE (COMMENT ROMBRG))
(DECLARE (SPECIAL $ROMBERGIT_USED $ROMBERGABS $ROMBERGTOL $ROMBERGMIN
                  $ROMBERGIT))
(DECLARE (FIXNUM $ROMBERGIT_USED $ROMBERGMIN $ROMBERGIT))
(DECLARE (FLONUM $ROMBERGABS $ROMBERGTOL))

;; Declarations for MAXSRC;NUMER 17, compiled 2/12/82 16:12 by JPG.
(DECLARE (COMMENT NUMER))
(DECLARE (SPECIAL TRAMP3$ TRAMP2$ TRAMP1$))

;; Declarations for JPG;BOPTIM 5, compiled 4/27/82 4:45 by JPG.
(DECLARE (COMMENT BOPTIM))
(DECLARE (SPECIAL $OPTIMPREFIX))

;; Declarations for JPG;AOPTIM 14, compiled 5/5/82 6:47 by JPG.
(DECLARE (COMMENT AOPTIM))
(DECLARE (SPECIAL $OPTIMWARN $OPTIMPREFIX))

;; Declarations for MAXSRC;MTRACE 42, compiled 10/28/82 7:02 by JPG.
(DECLARE (COMMENT MTRACE))
(DECLARE (SPECIAL $TIMER_DEVALUE $TIMER $TRACE_MAX_INDENT $TRACE_BREAK_ARG
                  $TRACE_SAFETY $TRACE))
(DECLARE (FIXNUM $TRACE_MAX_INDENT))

;; Declarations for JM;RISCH 436, compiled 11/16/82 6:35 by JPG.
(DECLARE (COMMENT RISCH))
(DECLARE (SPECIAL $ERFFLAG $LIFLAG))

;; Declarations for MRG;DISPLA 777, compiled 5/25/83 3:46 by JPG0.
(DECLARE (COMMENT DISPLA))
(DECLARE (SPECIAL $DISPLAY_FORMAT_INTERNAL $RMXCHAR $LMXCHAR $ABSBOXCHAR
                  $BOXCHAR DISPLAYP STRINGDISP $NOUNDISP $DERIVABBREV
                  $LINEDISP $LISPDISP $DISPLAY2D $LEFTJUST $STARDISP
                  $CURSORDISP LINE-GRAPHICS-TTY CHARACTER-GRAPHICS-TTY))

;; Declarations for MRG;GRAM 488, compiled 5/25/83 3:51 by JPG0.
(DECLARE (COMMENT GRAM))
(DECLARE (SPECIAL $PARSEWINDOW))
(DECLARE (FIXNUM $PARSEWINDOW))

;; Declarations for GZ;GROB 174, compiled 7/6/83 2:24 by JPG0.
(DECLARE (COMMENT GROB))
(DECLARE (SPECIAL $GROBNER_FUNCTIONS $GROBNER_GENVAR_INDEX
                  $GROBNER_GENVAR_PREFIX $GROBNER_TOT_ORDER
                  $GROBNER_COEF_DIVIDE $GROBNER_TOT_REDUCE $GROBNER_PRIMITIVE
                  $GROBNER_RAT $GROBNER_TRACE))
(DECLARE (FIXNUM $GROBNER_GENVAR_INDEX))

;; Declarations for LPH;QQ 2, compiled 8/31/83 20:41 by LPH.
(DECLARE (COMMENT QQ))
(DECLARE (SPECIAL $QUANC8_RELERR $QUANC8_ABSERR $QUANC8_ERREST $QUANC8_FLAG))

;; Declarations for LPH;FORTRN 70, compiled 4/12/84 18:08 by JPG.
(DECLARE (COMMENT FORTRN))
(DECLARE (SPECIAL $FORTINDENT $FORTSPACES $FORTNUM))
(DECLARE (FIXNUM $FORTINDENT))

;; Declarations for JPG;NDIFF 8, compiled 2/1/86 23:46 by JPG.
(DECLARE (COMMENT NDIFF))
(DECLARE (SPECIAL $NEWDIFF))

;; Declarations for MRG;NFORMA 15, compiled 1/28/18 8:47 by EJS.
(DECLARE (COMMENT NFORMA))
(DECLARE (SPECIAL $NEGSUMDISPFLAG $SQRTDISPFLAG $EXPTDISPFLAG $%EDISPFLAG
                  $PFEFORMAT $POWERDISP))

;; Declarations for MRG;COMPAR 857, compiled 1/28/18 8:53 by EJS.
(DECLARE (COMMENT COMPAR))
(DECLARE (SPECIAL $ASSUME_POS_PRED $ASSUME_POS LIMITP $ASKEXP $SIGNBFLOAT
                  $PREDERROR SIGN-IMAG-ERRP $ACTIVECONTEXTS $CONTEXTS $CONTEXT))

;; Declarations for MRG;TRIGI 343, compiled 1/28/18 8:53 by EJS.
(DECLARE (COMMENT TRIGI))
(DECLARE (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))

;; Declarations for JPG;MLISP 613, compiled 1/28/18 9:52 by EJS.
(DECLARE (COMMENT MLISP))
(DECLARE (SPECIAL $SETCHECK MUNBINDP))

;; Declarations for JPG;SUPRV 619, compiled 1/28/18 11:29 by EJS.
(DECLARE (COMMENT SUPRV))
(DECLARE (SPECIAL $SHOWTIME $FILE_STRING_PRINT $CHANGE_FILEDEFAULTS ALIASLIST
                  $MOREWAIT $TTYINTFUN $TTYINTNUM USER-TIMESOFAR CASEP $DIREC
                  $LINENUM $LINECHAR $OUTCHAR $INCHAR $%))
(DECLARE (FIXNUM $LINENUM))

;; Declarations for JPG;COMM 395, compiled 1/28/18 11:38 by EJS.
(DECLARE (COMMENT COMM))
(DECLARE (SPECIAL $VECT_CROSS))

;; Declarations for PAULW;CSIMP 299, compiled 1/28/18 11:38 by EJS.
(DECLARE (COMMENT CSIMP))
(DECLARE (SPECIAL $GAMMALIM $SUMSPLITFACT HALF%PI3 %PI2 HALF%PI FOURTH%PI %P%I))

;; Declarations for PAULW;MAT 286, compiled 1/28/18 11:38 by EJS.
(DECLARE (COMMENT MAT))
(DECLARE (SPECIAL $LINSOLVE_PARAMS $%RNUM $BACKSUBST $SPARSE $GLOBALSOLVE))

;; Declarations for RAT;FACTOR 472, compiled 1/28/18 11:49 by EJS.
(DECLARE (COMMENT FACTOR))
(DECLARE (SPECIAL $NEWFAC $NALGFAC SMALLPRIMES ALPHA MM* MPLC* MINPOLY* *MX*
                  *MIN* GAUSS))

;; Declarations for RAT;RAT3A 258, compiled 1/28/18 11:49 by EJS.
(DECLARE (COMMENT RAT3A))
(DECLARE (SPECIAL ERRRJFFLAG HMODULUS MODULUS))

;; Declarations for RAT;RAT3B 95, compiled 1/28/18 11:49 by EJS.
(DECLARE (COMMENT RAT3B))
(DECLARE (SPECIAL $RATALGDENOM $RATWTLVL))

;; Declarations for RAT;RAT3C 302, compiled 1/28/18 11:49 by EJS.
(DECLARE (COMMENT RAT3C))
(DECLARE (SPECIAL *ALPHA BIGPRIMES $GCD *GCDL*))

;; Declarations for RAT;RAT3D 264, compiled 1/28/18 11:49 by EJS.
(DECLARE (COMMENT RAT3D))
(DECLARE (SPECIAL $HOMOG_HACK $SAVEFACTORS $BERLEFACT $INTFACLIM LOW* ALGFAC*
                  *IRREDS))

;; Declarations for RAT;RAT3E 546, compiled 1/28/18 11:50 by EJS.
(DECLARE (COMMENT RAT3E))
(DECLARE (SPECIAL $RATDENOMDIVIDE $RATEXPAND $RATEPSILON $RATPRINT FR-FACTOR
                  ADN* INRATSIMP TELLRATLIST $FACEXPAND $RATVARS $ALGEBRAIC
                  $RATFAC $RATWEIGHTS $NOREPEAT $DONTFACTOR $FACTORFLAG
                  $KEEPFLOAT FACTORRESIMP *RATWEIGHTS *FNEWVARSW VARLIST
                  GENPAIRS GENVAR))

;; Declarations for JM;SIMP 834, compiled 1/28/18 11:52 by EJS.
(DECLARE (COMMENT SIMP))
(DECLARE (SPECIAL DERIVSIMP ERRORSW DOSIMP $MAXNEGEX $MAXPOSEX $EXPON $EXPOP
                  $MX0SIMP $DOMXTIMES $DOMXPLUS $DOMXEXPT $DOSCMXPLUS
                  $NUMER_PBRANCH $SUMEXPAND $SIMP $NUMER $NEGDISTRIB $FLOAT))
(DECLARE (FIXNUM $MAXNEGEX $MAXPOSEX $EXPON $EXPOP))

;; Declarations for MAXSRC;INMIS 98, compiled 1/28/18 11:52 by EJS.
(DECLARE (COMMENT INMIS))
(DECLARE (SPECIAL $LISTCONSTVARS))
(DECLARE (FIXNUM $MAXNEGEX $MAXPOSEX $EXPON $EXPOP))

;; Declarations for RZ;ASUM 271, compiled 1/28/18 11:52 by EJS.
(DECLARE (COMMENT ASUM))
(DECLARE (SPECIAL $PRODHACK $SUMHACK $SIMPSUM $ZEROBERN $GENINDEX $GENSUMNUM
                  $CAUCHYSUM))
(DECLARE (FIXNUM $MAXNEGEX $MAXPOSEX $EXPON $EXPOP))

;; Declarations for RAT;SPGCD 110, compiled 1/28/18 11:52 by EJS.
(DECLARE (COMMENT SPGCD))
(DECLARE (SPECIAL $POINTBOUND))
(DECLARE (FIXNUM $MAXNEGEX $MAXPOSEX $EXPON $EXPOP))

;; Declarations for MAXSRC;MERROR 47, compiled 1/28/18 11:52 by EJS.
(DECLARE (COMMENT MERROR))
(DECLARE (SPECIAL $ERROR_SYMS $ERROR_SIZE $ERRORMSG $ERROR))
(DECLARE (FIXNUM $MAXNEGEX $MAXPOSEX $EXPON $EXPOP))

;; Declarations for MRG;FORTRA 64, compiled 1/28/18 11:53 by EJS.
(DECLARE (COMMENT FORTRA))
(DECLARE (SPECIAL $FORTFLOAT $FORTINDENT $FORTSPACES))
(DECLARE (FIXNUM $FORTINDENT))

;; Declarations for MRG;OPTIM 14, compiled 1/28/18 11:56 by EJS.
(DECLARE (COMMENT OPTIM))
(DECLARE (SPECIAL $OPTIMWARN $OPTIMPREFIX))

;; Declarations for JM;SIN 200, compiled 1/28/18 11:56 by EJS.
(DECLARE (COMMENT SIN))
(DECLARE (SPECIAL $INTEGRATION_CONSTANT_COUNTER))

;; Declarations for RAT;MATRUN 80, compiled 1/28/18 11:57 by EJS.
(DECLARE (COMMENT MATRUN))
(DECLARE (SPECIAL $MAXAPPLYHEIGHT $MAXAPPLYDEPTH))

;; Declarations for RAT;FLOAT 321, compiled 1/28/18 12:06 by EJS.
(DECLARE (COMMENT FLOAT))
(DECLARE (SPECIAL BIGFLOAT%PI BIGFLOAT%E BFMHALF BFHALF BIGFLOATONE
                  BIGFLOATZERO $FPPREC $FPPRINTPREC $BFTRUNC $BFTORAT
                  $FLOAT2BF))
(DECLARE (FIXNUM $FPPRINTPREC))

;; Declarations for RAT;SOLVE 401, compiled 1/28/18 12:09 by EJS.
(DECLARE (COMMENT SOLVE))
(DECLARE (SPECIAL $SOLVERADCAN $SOLVETRIGWARN $SOLVENULLWARN $SOLVEFACTORS
                  $SOLVEEXPLICIT $SOLVEDECOMPOSES $PROGRAMMODE
                  $SOLVE_INCONSISTENT_ERROR $LINSOLVEWARN $MULTIPLICITIES
                  $BREAKUP))

;; Declarations for MAXSRC;MDOT 94, compiled 1/28/18 12:09 by EJS.
(DECLARE (COMMENT MDOT))
(DECLARE (SPECIAL $ASSUMESCALAR $DOTIDENT $SCALARMATRIXP $DOMXNCTIMES
                  $DOSCMXOPS $DOMXMXOPS $DOALLMXOPS $DOTASSOC $DOTEXPTSIMP
                  $DOTDISTRIB $DOTSCRULES $DOT1SIMP $DOT0NSCSIMP $DOT0SIMP
                  $DOTCONSTRULES))

;; Declarations for JIM;LIMIT 273, compiled 1/28/18 21:24 by EJS.
(DECLARE (COMMENT LIMIT))
(DECLARE (SPECIAL PRESERVE-DIRECTION LIMIT-ANSWERS SIMPLIMPLUS-PROBLEMS RD*
                  INFINITESIMALS REAL-INFINITIES INFINITIES))

;; Declarations for PAULW;DEFINT 658, compiled 1/28/18 21:24 by EJS.
(DECLARE (COMMENT DEFINT))
(DECLARE (SPECIAL DEFINTDEBUG))

;; Declarations for MACRAK;RPART 263, compiled 1/28/18 21:34 by EJS.
(DECLARE (COMMENT RPART))
(DECLARE (SPECIAL GENERATE-ATAN2 IMPLICIT-REAL))

;; Declarations for RZ;NUMTH 47, compiled 1/28/18 21:35 by EJS.
(DECLARE (COMMENT NUMTH))
(DECLARE (SPECIAL $MAXPRIME))

;; Declarations for RAT;HAYAT 386, compiled 1/28/18 21:37 by EJS.
(DECLARE (COMMENT HAYAT))
(DECLARE (SPECIAL $TAYLOR_LOGEXPAND $TAYLOR_TRUNCATE_POLYNOMIALS $MAXTAYORDER))

;; Declarations for RAT;ALGSYS 1, compiled 1/28/18 21:41 by EJS.
(DECLARE (COMMENT ALGSYS))
(DECLARE (SPECIAL ALGNOTEXACT $ALGEXACT REALONLYRATNUM $REALONLY $%RNUM_LIST))

;; Declarations for RAT;NISIMP 81, compiled 1/28/18 21:41 by EJS.
(DECLARE (COMMENT NISIMP))
(DECLARE (SPECIAL $LET_RULE_PACKAGES $CURRENT_LET_RULE_PACKAGE
                  $DEFAULT_LET_RULE_PACKAGE $LETRAT $LETVARSIMP))

;; Declarations for MAXSRC;SUBLIS 11, compiled 1/28/18 21:46 by EJS.
(DECLARE (COMMENT SUBLIS))
(DECLARE (SPECIAL $SUBLIS_APPLY_LAMBDA))

;; Declarations for REH;MMACRO 50, compiled 1/28/18 21:47 by EJS.
(DECLARE (COMMENT MMACRO))
(DECLARE (SPECIAL $MACROEXPANSION))

;; Declarations for JPG;LOGCON 56 (COMM2 split), compiled 1/28/18 21:50 by EJS.
(DECLARE (COMMENT LOGCON))
(DECLARE (SPECIAL $SUPERLOGCON $LOGCONCOEFFP))

;; Declarations for JPG;RTCON 56 (COMM2 split), compiled 1/28/18 21:50 by EJS.
(DECLARE (COMMENT RTCON))
(DECLARE (SPECIAL $ROOTSCONMODE))

;; Declarations for PAULW;GAMMA 63 (CSIMP2 split), compiled 1/28/18 21:50 by EJS.
(DECLARE (COMMENT GAMMA))
(DECLARE (SPECIAL $BETA_ARGS_SUM_TO_INTEGER))

;; Declarations for RAT;SCUBIC 19 (PSOLVE split), compiled 1/28/18 22:02 by EJS.
(DECLARE (COMMENT SCUBIC))
(DECLARE (SPECIAL FLAG4))

;; Declarations for MAXSRC;ISOLAT 309 (OUTMIS split), compiled 1/28/18 22:02 by EJS.
(DECLARE (COMMENT ISOLAT))
(DECLARE (SPECIAL $ISOLATE_WRT_TIMES $EXPTISOLATE))

;; Declarations for RAT;MRESUL 30 (RESULT split), compiled 1/28/18 22:03 by EJS.
(DECLARE (COMMENT MRESUL))
(DECLARE (SPECIAL $RESULTANT))

;; Declarations for MAXSRC;MLOAD 121, compiled 1/30/18 22:44 by EJS.
(DECLARE (COMMENT MLOAD))
(DECLARE (SPECIAL $FILE_TYPES $FILE_SEARCH *IN-MACSYMA-INDEXER*
                  *IN-TRANSLATE-FILE* *IN-$BATCHLOAD*))