mirror of
https://github.com/PDP-10/its.git
synced 2026-01-26 20:22:22 +00:00
85994ed770
Resolves #284. Commented out uses of time-origin in maxtul; mcldmp (init) until we can figure out why it gives arithmetic overflows under the emulators. Updated the expect script statements in build_macsyma_portion to not attempt to match expected strings, but simply sleep for some time since in some cases the matching appears not to work.
342 lines
14 KiB
Common Lisp
342 lines
14 KiB
Common Lisp
;; -*- 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*))
|