;;;-*-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
	 )