mirror of
https://github.com/PDP-10/its.git
synced 2026-01-15 08:03:19 +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.
176 lines
7.0 KiB
Common Lisp
176 lines
7.0 KiB
Common Lisp
;; -*- Mode: Lisp; Package: Macsyma -*-
|
|
;; This is the initialization file for variables which can be reset.
|
|
;; This file was generated by DEFINE version NIL.
|
|
|
|
;; Initializations for MRG;NFORMA 15, compiled 1/28/18 8:47 by EJS.
|
|
(DECLARE (COMMENT NFORMA))
|
|
(SETQ $POWERDISP NIL $PFEFORMAT NIL $%EDISPFLAG NIL $EXPTDISPFLAG T
|
|
$SQRTDISPFLAG T $NEGSUMDISPFLAG T)
|
|
|
|
;; Initializations for MRG;COMPAR 857, compiled 1/28/18 8:53 by EJS.
|
|
(DECLARE (COMMENT COMPAR))
|
|
(SETQ $PREDERROR T $SIGNBFLOAT T $ASSUME_POS NIL $ASSUME_POS_PRED NIL)
|
|
|
|
;; Initializations for MRG;TRIGI 343, compiled 1/28/18 8:53 by EJS.
|
|
(DECLARE (COMMENT TRIGI))
|
|
(SETQ $%PIARGS T $%IARGS T $TRIGINVERSES (QUOTE $ALL) $TRIGEXPAND NIL
|
|
$TRIGEXPANDPLUS T $TRIGEXPANDTIMES T $TRIGSIGN T $EXPONENTIALIZE NIL
|
|
$LOGARC NIL $HALFANGLES NIL)
|
|
|
|
;; Initializations for JPG;MLISP 613, compiled 1/28/18 9:52 by EJS.
|
|
(DECLARE (COMMENT MLISP))
|
|
(SETQ $SETCHECK NIL)
|
|
|
|
;; Initializations for JPG;SUPRV 619, compiled 1/28/18 11:29 by EJS.
|
|
(DECLARE (COMMENT SUPRV))
|
|
(SETQ $INCHAR (QUOTE $C) $OUTCHAR (QUOTE $D) $LINECHAR (QUOTE $E)
|
|
$TTYINTNUM 21. $TTYINTFUN NIL $CHANGE_FILEDEFAULTS T
|
|
$FILE_STRING_PRINT NIL $SHOWTIME NIL)
|
|
|
|
;; Initializations for JPG;COMM 395, compiled 1/28/18 11:38 by EJS.
|
|
(DECLARE (COMMENT COMM))
|
|
(SETQ $VECT_CROSS NIL)
|
|
|
|
;; Initializations for PAULW;CSIMP 299, compiled 1/28/18 11:38 by EJS.
|
|
(DECLARE (COMMENT CSIMP))
|
|
(SETQ $SUMSPLITFACT T $GAMMALIM 1000000.)
|
|
|
|
;; Initializations for PAULW;MAT 286, compiled 1/28/18 11:38 by EJS.
|
|
(DECLARE (COMMENT MAT))
|
|
(SETQ $GLOBALSOLVE NIL $SPARSE NIL $BACKSUBST T $%RNUM 0. $LINSOLVE_PARAMS T)
|
|
|
|
;; Initializations for RAT;FACTOR 472, compiled 1/28/18 11:49 by EJS.
|
|
(DECLARE (COMMENT FACTOR))
|
|
(SETQ $NALGFAC T $NEWFAC NIL)
|
|
|
|
;; Initializations for RAT;RAT3B 95, compiled 1/28/18 11:49 by EJS.
|
|
(DECLARE (COMMENT RAT3B))
|
|
(SETQ $RATWTLVL NIL $RATALGDENOM T)
|
|
|
|
;; Initializations for RAT;RAT3C 302, compiled 1/28/18 11:49 by EJS.
|
|
(DECLARE (COMMENT RAT3C))
|
|
(SETQ $GCD (CAR *GCDL*))
|
|
|
|
;; Initializations for RAT;RAT3D 264, compiled 1/28/18 11:49 by EJS.
|
|
(DECLARE (COMMENT RAT3D))
|
|
(SETQ $INTFACLIM 1000. $BERLEFACT T $SAVEFACTORS NIL $HOMOG_HACK NIL)
|
|
|
|
;; Initializations for RAT;RAT3E 546, compiled 1/28/18 11:50 by EJS.
|
|
(DECLARE (COMMENT RAT3E))
|
|
(SETQ $KEEPFLOAT NIL $FACTORFLAG NIL $DONTFACTOR (QUOTE ((MLIST))) $NOREPEAT T
|
|
$RATWEIGHTS (QUOTE ((MLIST SIMP))) $RATFAC NIL $ALGEBRAIC NIL
|
|
$RATVARS (QUOTE ((MLIST SIMP))) $FACEXPAND T $RATPRINT T
|
|
$RATEPSILON 2.0E-8 $RATEXPAND NIL $RATDENOMDIVIDE T)
|
|
|
|
;; Initializations for JM;SIMP 834, compiled 1/28/18 11:52 by EJS.
|
|
(DECLARE (COMMENT SIMP))
|
|
(SETQ $FLOAT NIL $NEGDISTRIB T $NUMER NIL $SIMP T $SUMEXPAND NIL
|
|
$NUMER_PBRANCH NIL $DOSCMXPLUS NIL $DOMXEXPT T $DOMXPLUS NIL
|
|
$DOMXTIMES NIL $MX0SIMP T $EXPOP 0. $EXPON 0. $MAXPOSEX 1000.
|
|
$MAXNEGEX 1000.)
|
|
|
|
;; Initializations for MAXSRC;INMIS 98, compiled 1/28/18 11:52 by EJS.
|
|
(DECLARE (COMMENT INMIS))
|
|
(SETQ $LISTCONSTVARS NIL)
|
|
|
|
;; Initializations for RZ;ASUM 271, compiled 1/28/18 11:52 by EJS.
|
|
(DECLARE (COMMENT ASUM))
|
|
(SETQ $CAUCHYSUM NIL $GENSUMNUM 0. $GENINDEX (QUOTE $I) $ZEROBERN T
|
|
$SIMPSUM NIL $SUMHACK NIL $PRODHACK NIL)
|
|
|
|
;; Initializations for RAT;SPGCD 110, compiled 1/28/18 11:52 by EJS.
|
|
(DECLARE (COMMENT SPGCD))
|
|
(SETQ $POINTBOUND *ALPHA)
|
|
|
|
;; Initializations for MAXSRC;MERROR 47, compiled 1/28/18 11:52 by EJS.
|
|
(DECLARE (COMMENT MERROR))
|
|
(SETQ $ERROR (QUOTE ((MLIST SIMP) |&No error.|)) $ERRORMSG (QUOTE T)
|
|
$ERROR_SIZE 10. $ERROR_SYMS (QUOTE ((MLIST) $ERREXP1 $ERREXP2 $ERREXP3)))
|
|
|
|
;; Initializations for MRG;FORTRA 64, compiled 1/28/18 11:53 by EJS.
|
|
(DECLARE (COMMENT FORTRA))
|
|
(SETQ $FORTSPACES NIL $FORTINDENT 0. $FORTFLOAT NIL)
|
|
|
|
;; Initializations for MRG;OPTIM 14, compiled 1/28/18 11:56 by EJS.
|
|
(DECLARE (COMMENT OPTIM))
|
|
(SETQ $OPTIMPREFIX (QUOTE $%) $OPTIMWARN T)
|
|
|
|
;; Initializations for JM;SIN 200, compiled 1/28/18 11:56 by EJS.
|
|
(DECLARE (COMMENT SIN))
|
|
(SETQ $INTEGRATION_CONSTANT_COUNTER 0.)
|
|
|
|
;; Initializations for RAT;MATRUN 80, compiled 1/28/18 11:57 by EJS.
|
|
(DECLARE (COMMENT MATRUN))
|
|
(SETQ $MAXAPPLYDEPTH 10000. $MAXAPPLYHEIGHT 10000.)
|
|
|
|
;; Initializations for RAT;FLOAT 321, compiled 1/28/18 12:06 by EJS.
|
|
(DECLARE (COMMENT FLOAT))
|
|
(SETQ $FLOAT2BF NIL $BFTORAT NIL $BFTRUNC T $FPPRINTPREC 0. $FPPREC 16.)
|
|
|
|
;; Initializations for RAT;SOLVE 401, compiled 1/28/18 12:09 by EJS.
|
|
(DECLARE (COMMENT SOLVE))
|
|
(SETQ $BREAKUP T $MULTIPLICITIES (QUOTE $NOT_SET_YET) $LINSOLVEWARN T
|
|
$SOLVE_INCONSISTENT_ERROR T $PROGRAMMODE T $SOLVEDECOMPOSES T
|
|
$SOLVEEXPLICIT NIL $SOLVEFACTORS T $SOLVENULLWARN T $SOLVETRIGWARN T
|
|
$SOLVERADCAN NIL)
|
|
|
|
;; Initializations for MAXSRC;MDOT 94, compiled 1/28/18 12:09 by EJS.
|
|
(DECLARE (COMMENT MDOT))
|
|
(SETQ $DOTCONSTRULES T $DOT0SIMP T $DOT0NSCSIMP T $DOT1SIMP T $DOTSCRULES NIL
|
|
$DOTDISTRIB NIL $DOTEXPTSIMP T $DOTASSOC T $DOALLMXOPS T $DOMXMXOPS T
|
|
$DOSCMXOPS NIL $DOMXNCTIMES NIL $SCALARMATRIXP T $DOTIDENT 1.
|
|
$ASSUMESCALAR T)
|
|
|
|
;; Initializations for RZ;NUMTH 47, compiled 1/28/18 21:35 by EJS.
|
|
(DECLARE (COMMENT NUMTH))
|
|
(SETQ $MAXPRIME 489318.)
|
|
|
|
;; Initializations for RAT;HAYAT 386, compiled 1/28/18 21:37 by EJS.
|
|
(DECLARE (COMMENT HAYAT))
|
|
(SETQ $MAXTAYORDER T $TAYLOR_TRUNCATE_POLYNOMIALS T $TAYLOR_LOGEXPAND T)
|
|
|
|
;; Initializations for RAT;ALGSYS 1, compiled 1/28/18 21:41 by EJS.
|
|
(DECLARE (COMMENT ALGSYS))
|
|
(SETQ $%RNUM_LIST (QUOTE ((MLIST))) $REALONLY NIL $ALGEXACT NIL)
|
|
|
|
;; Initializations for RAT;NISIMP 81, compiled 1/28/18 21:41 by EJS.
|
|
(DECLARE (COMMENT NISIMP))
|
|
(SETQ $LETVARSIMP NIL $LETRAT NIL
|
|
$DEFAULT_LET_RULE_PACKAGE (QUOTE $DEFAULT_LET_RULE_PACKAGE)
|
|
$CURRENT_LET_RULE_PACKAGE (QUOTE $DEFAULT_LET_RULE_PACKAGE)
|
|
$LET_RULE_PACKAGES (QUOTE ((MLIST) $DEFAULT_LET_RULE_PACKAGE)))
|
|
|
|
;; Initializations for MAXSRC;SUBLIS 11, compiled 1/28/18 21:46 by EJS.
|
|
(DECLARE (COMMENT SUBLIS))
|
|
(SETQ $SUBLIS_APPLY_LAMBDA T)
|
|
|
|
;; Initializations for REH;MMACRO 50, compiled 1/28/18 21:47 by EJS.
|
|
(DECLARE (COMMENT MMACRO))
|
|
(SETQ $MACROEXPANSION NIL)
|
|
|
|
;; Initializations for JPG;LOGCON 56 (COMM2 split), compiled 1/28/18 21:50 by EJS.
|
|
(DECLARE (COMMENT LOGCON))
|
|
(SETQ $LOGCONCOEFFP NIL $SUPERLOGCON T)
|
|
|
|
;; Initializations for JPG;RTCON 56 (COMM2 split), compiled 1/28/18 21:50 by EJS.
|
|
(DECLARE (COMMENT RTCON))
|
|
(SETQ $ROOTSCONMODE T)
|
|
|
|
;; Initializations for PAULW;GAMMA 63 (CSIMP2 split), compiled 1/28/18 21:50 by EJS.
|
|
(DECLARE (COMMENT GAMMA))
|
|
(SETQ $BETA_ARGS_SUM_TO_INTEGER NIL)
|
|
|
|
;; Initializations for MAXSRC;ISOLAT 309 (OUTMIS split), compiled 1/28/18 22:02 by EJS.
|
|
(DECLARE (COMMENT ISOLAT))
|
|
(SETQ $EXPTISOLATE NIL $ISOLATE_WRT_TIMES NIL)
|
|
|
|
;; Initializations for RAT;MRESUL 30 (RESULT split), compiled 1/28/18 22:03 by EJS.
|
|
(DECLARE (COMMENT MRESUL))
|
|
(SETQ $RESULTANT (QUOTE $SUBRES))
|
|
|
|
;; Initializations for MAXSRC;MLOAD 121, compiled 1/30/18 22:44 by EJS.
|
|
(DECLARE (COMMENT MLOAD))
|
|
(SETQ
|
|
$FILE_SEARCH (LIST* (QUOTE (MLIST)) (MAPCAR (FUNCTION TO-MACSYMA-NAMESTRING) (QUOTE ("DSK:SHARE;" "DSK:SHARE1;" "DSK:SHARE2;" "DSK:SHAREM;"))))
|
|
$FILE_TYPES (LIST* (QUOTE (MLIST)) (MAPCAR (FUNCTION TO-MACSYMA-NAMESTRING) (QUOTE ("* FASL" "* TRLISP" "* LISP" "* >")))))
|