mirror of
https://github.com/PDP-10/its.git
synced 2026-01-31 14:02:09 +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.
121 lines
6.8 KiB
Common Lisp
Executable File
121 lines
6.8 KiB
Common Lisp
Executable File
;;;-*-lisp-*-
|
||
;;; loaded at compile time by translated macsyma code.
|
||
#-Multics
|
||
(herald tdcl)
|
||
#+Multics
|
||
(defprop tdcl t version)
|
||
|
||
;;; here are some important frobs which have not been taken care
|
||
;;; of by defmfun and defmvar. the macsyma switches are especially
|
||
;;; problematical, since various declare and setq's are spread throughout
|
||
;;; mlisp, suprv, and simp, and are not possible to fix via a tags query
|
||
;;; replace as i did with defun=>defmfun.
|
||
;;; -gjc 4:04pm saturday, 15 november 1980
|
||
|
||
(*lexpr mcall add* mul* $part map1 fmapl1 scanmap1
|
||
$error marrayref marrayset
|
||
mfuncall)
|
||
|
||
(*expr meval meval1 power simplify div munlocal mset mapply getopr
|
||
mbind munbind add2lnc addn muln add2* mul2* part1 mapply-tr
|
||
minimum maximum atan2 fmap1)
|
||
|
||
(flonum (atan2 flonum flonum)
|
||
;;($cosh flonum) no longer flonum due to mrg lossage (or some other asshole).
|
||
;;($sinh flonum) there are no flonum entries to these functions,
|
||
;; nice extra make-work for the transl maintainer.
|
||
)
|
||
|
||
;;; special variables for $ fsubr compatibility package in trans1 >
|
||
|
||
(special maplp fmaplvl mcatch bindlist loclist errcatch lisperrprint)
|
||
(*expr errlfun1 is)
|
||
|
||
;;; random fsubrs, for some reason defmfun is not working, so here
|
||
;;; is a list generated by a transl documentor program.
|
||
|
||
(*fexpr
|
||
|
||
|
||
$alias $alloc $appendfile $apply
|
||
$apropos $array $arrayinfo $assume
|
||
$batch $batchload $batcon $catch
|
||
$clock $closefile $compfile $contourplot2
|
||
$declare $define $define_variable $defmatch
|
||
$defrule $deftaylor $delfile $demo
|
||
$dependencies $describe $diskfree $diskuse
|
||
$dispfun $display $disprule $dumparrays
|
||
$errcatch $ev $fassave $filelength
|
||
$filelist $forget $fortran $fulldiskuse
|
||
$fullmap $fullmapl $gradef $graph
|
||
$graph2 $graph3d $grind $hardcopy
|
||
$is $kill $labels $ldisplay
|
||
$let $letsimp $listfiles $loadarrays
|
||
$loadfile $loadplots $local $macroexpand
|
||
$macroexpand1 $makeatomic $map
|
||
$maplist $matchdeclare $matrixmap $modedeclare
|
||
$mode_identity $multigraph $namefile $nameplot
|
||
$numerval $open_index_file $options $ordergreat
|
||
$orderless $outermap $paramplot $paramplot2
|
||
$playback $plot $plot2 $plot3d
|
||
$plotmode $primer $printclock $printdiskuse
|
||
$printfile $printprops $properties $propvars
|
||
$qlistfiles $qput $rearray $remarray
|
||
$remfile $remfunction $remove $remvalue
|
||
$renamefile $replot $replot4 $resetclock
|
||
$restore $save $saveplots $scanmap
|
||
$setup_autoload $sstatus $status $store
|
||
$string $stringout $substinpart $substpart
|
||
$subvar $sum $supcontext $tellsimp
|
||
$tellsimpafter $time $tobreak $translate
|
||
$tstring $unclock $unstore
|
||
$writefile mand matcoef
|
||
mcond mdefine mdefprop mdo
|
||
mdoin mgo mlocal mnot
|
||
mor mprog mprogn mquote
|
||
msetq )
|
||
|
||
|
||
;;; list of special variables, gotten by
|
||
;;; (let ((l nil))
|
||
;;; (mapatoms #'(lambda (x) (and (boundp x) (= (getcharn x 1) #/$) (push x l))))
|
||
;;; l)
|
||
|
||
|
||
(special $%edispflag $%emode $%enumer $%e_to_numlog $%iargs $%piargs $%rnum $abconvtest
|
||
$absboxchar $activecontexts $advise $algdelta $algebraic $algepsilon $algexact
|
||
$aliases $arrays $backsubst $backtrace $batchkill $batcount $berlefact $bftorat
|
||
$bftrunc $bothcases $boxchar $breakup $cauchysum $cflength $change_filedefaults
|
||
$combineflag $compgrind $context $contexts $cursor $cursordisp $debugmode $demoivre
|
||
$dependencies $derivabbrev $derivsubst $detout $device $dispflag $display2d
|
||
$disptime $domain $domxexpt $domxplus $domxtimes $dontfactor $doscmxplus $dskall
|
||
$dskgc $dskuse $dynamalloc $erfflag $error $errorfun $expon $exponentialize $expop
|
||
$exptdispflag $exptisolate $exptsubst $facexpand $factlim $factorflag $false
|
||
$features $filename $filenum $filesize $float $float2bf $fpprec $fpprintprec
|
||
$fptrunc $fullflag $functions $gammalim $gcd $genindex $gensumnum $globalsolve
|
||
$gradefs $grind $grindswitch $halfangles $inchar $infeval $inflag $infolists
|
||
$intanalysis $intfaclim $invertflag $keepfloat $labels $lasttime $leftjust
|
||
$lhospitallim $liflag $limitdomain $limsubst $linechar $linedisp $linenum
|
||
$linsolvewarn $lispdisp $listarith $listconstvars $lmxchar $loadprint $logabs
|
||
$logarc $logexpand $lognegint $lognumer $logsimp $m1pbranch $macroexpansion
|
||
$macros $maperror $mapprint $matrix_element_add $matrix_element_mult
|
||
$matrix_element_transpose $maxapplydepth $maxapplyheight $maxnegex $maxposex
|
||
$maxprime $maxtaydiff $maxtayorder $modresult $morewait $multiplicities $mx0simp
|
||
$myoptions $nalgfac $negdistrib $negsumdispflag $newfac $nointegrate $nolabels
|
||
$norepeat $noundisp $numer $off $on $opproperties $opsubst $optionset $outchar
|
||
$packagefile $pagepause $parsetime $parsewindow $partswitch $pfeformat $piece
|
||
$plotheight $plotundefined $pointbound $poislim $polyfactor $powerdisp $prederror
|
||
$prodhack $programmode $prompt $props $psexpand $radexpand $radsubstflag $ratalgdenom
|
||
$ratdenomdivide $ratepsilon $ratexpand $ratfac $ratmx $ratprint $ratsimpexpons
|
||
$ratvars $ratvarswitch $ratweights $ratwtlvl $realonly $refcheck $rmxchar
|
||
$rootsepsilon $rules $savedef $savefactors $setcheck $setcheckbreak $showtime
|
||
$signbfloat $simp $simpsum $singsolve $solvedecomposes $solveexplicit $solvefactors
|
||
$solvenullwarn $solveradcan $solvetrigwarn $solve_inconsistent_error $sparse
|
||
$special $sqrtdispflag $stardisp $storenum $strdisp $subnumsimp $subscrmap
|
||
$sumhack $sumsplitfact $taylordepth $tlimswitch $transbind $transcompile
|
||
$translate $transrun $trigexpand $trigexpandplus $trigexpandtimes $triginverses
|
||
$trigsign $true $tr_warn_fexpr $tr_warn_meval $ttyintfun $ttyintnum $uname $values
|
||
$verbose $version $weightlevels $wtlevel $zerobern $zeta%pi
|
||
)
|
||
|