path: root/src/interp/bootfuns.lisp.pamphlet

%% Oh Emacs, this is a -*- Lisp -*- file despite apperance.
\documentclass{article}
\usepackage{axiom}

\title{\File{src/interp/bootfuns.lisp} Pamphlet}
\author{Timothy Daly}

\begin{document}
\maketitle

\begin{abstract}
\end{abstract}

\tableofcontents
\eject


\section{License}

<<license>>=
;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
;; All rights reserved.
;;
;; Redistribution and use in source and binary forms, with or without
;; modification, are permitted provided that the following conditions are
;; met:
;;
;;     - Redistributions of source code must retain the above copyright
;;       notice, this list of conditions and the following disclaimer.
;;
;;     - Redistributions in binary form must reproduce the above copyright
;;       notice, this list of conditions and the following disclaimer in
;;       the documentation and/or other materials provided with the
;;       distribution.
;;
;;     - Neither the name of The Numerical ALgorithms Group Ltd. nor the
;;       names of its contributors may be used to endorse or promote products
;;       derived from this software without specific prior written permission.
;;
;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
;; IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
;; TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
;; PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
;; OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
;; EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
;; PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
;; PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

@



\section{The [[BOOT]] package}

Everything in axiom that the user references eventually shows
up here. The interpreter and the algebra are run after switching
to the boot package (in-package "BOOT") so any symbol that the
interpreter or algebra uses has to (cough, cough) appear here.
<<*>>=
<<license>>

;; This is a horrible hack to work around a horrible bug in GCL
;; as reported here:
;;    http://lists.gnu.org/archive/html/gcl-devel/2007-08/msg00004.html
#+:gcl (in-package "VMLISP")
#+:gcl (in-package "AxiomCore")

(IMPORT-MODULE "hash")
(defpackage "BOOT"
  #+:common-lisp (:use "COMMON-LISP")
  #-:common-lisp (:use "LISP")
  (:use "VMLISP" "AxiomCore"))

@

Note that it is confusing the package \Tool{Axiom}'s compiler and
interpreter use is called [[BOOT]].  It should have been
[[Spad]], or better yet [[Axiom]].


\section{Constants}

\subsection{\$EmptyMode}

[[$EmptyMode]] is a contant whose value is [[$EmptyMode]].
It is used by [[isPartialMode]] (in [[i-funsel.boot]]) to
decide if a modemap is partially constructed. If the [[$EmptyMode]]
constant occurs anywhere in the modemap structure at any depth
then the modemap is still incomplete. To find this constant the
[[isPartialMode]] function calls [[CONTAINED |$EmptyMode| Y]]
which will walk the structure $Y$ looking for this constant.
<<EmptyMode>>=
(def-boot-val |$EmptyMode| '|$EmptyMode|    "compiler constant")
@


\section{Portability issues}

This section discusses some portability issues known to affect
this module.

\subsection{[[compiler-let]]}

The construct [[compiler-let]] is not part of ANSI Lisp, although
it had been described in CLTL.  Therefore some Lisp implementations
offer it as extensions.

<<non-portable-codes>>=
#+:clisp (import 'ext:compiler-let)
@

\subsection{Missing DFLOAT Transcendental functions}

These functions should be defined for DoubleFloat inputs but are not.
These are cheap and easy definitions that work but should be rewritten.
<<Missing DFLOAT Transcendental functions>>=
(defun sec (x) (/ 1 (cos x)))
(defun csc (x) (/ 1 (sin x)))
(defun acsc (x) (asin (/ 1 x)))
(defun asec (x) (acos (/ 1 x)))
(defun csch (x) (/ 1 (sinh x)))
(defun coth (x) (* (cosh x) (csch x)))
(defun sech (x) (/ 1 (cosh x)))
(defun acsch (x) (asinh (/ 1 x)))
(defun acoth (x) (atanh (/ 1 x)))
(defun asech (x) (acosh (/ 1 x)))
@

\subsection{The manexp fix}

Contributed by Juergen Weiss from a suggestion by Arthur Norman.
This is a Mantissa and Exponent function. 
<<manexp>>=
#+(or :cmu :akcl :gcl)
(defun manexp (u)
  (multiple-value-bind (f e s) 
    (decode-float u)
    (cons (* s f) e)))

@

\subsection{The arc cotangent function}

Contributed by Juergen Weiss from Arthur Norman's CCL.
<<acot>>=
#+(or :cmu :akcl :gcl)
(defun acot (a)
  (if (> a 0.0)
    (if (> a 1.0)
       (atan (/ 1.0 a))
       (- (/ pi 2.0) (atan a)))
    (if (< a -1.0)
       (- pi (atan (/ -1.0 a)))
       (+ (/ pi 2.0) (atan (- a))))))

@

\subsection{The arc cotangent function}

Contributed by Juergen Weiss from Arthur Norman's CCL.
<<cot>>=
#+(or :cmu :akcl :gcl)
(defun cot (a)
  (if (or (> a 1000.0) (< a -1000.0))
    (/ (cos a) (sin a))
    (/ 1.0 (tan a))))

@

\subsection{The get-current-directory function}

Contributed by Juergen Weiss.
<<getCD>>=
#+:cmu
(defun get-current-directory ()
  (namestring (extensions::default-directory)))

#+(or :akcl :gcl)
(defun get-current-directory ()
  (namestring (truename "")))

@


<<*>>=

; NAME:	   Boot Package
; PURPOSE: Provide forward references to Boot Code for functions to be at
;	   defined at the boot level, but which must be accessible
;	   not defined at lower levels.

(in-package "BOOT")

<<non-portable-codes>>

(defmacro def-boot-var (p where)
  `(compiler-let nil
     (defparameter ,p nil ,where)
     (export '(,p) "BOOT")))

(defmacro def-boot-val (p val where)
  `(compiler-let nil
     (defparameter ,p ,val ,where)
     (export '(,p) "BOOT")))

#-:CCL
(def-boot-val |$timerTicksPerSecond| INTERNAL-TIME-UNITS-PER-SECOND
    "for TEMPUS-FUGIT and $TOTAL-ELAPSED-TIME")
#+:CCL
(def-boot-val |$timerTicksPerSecond| 1000
    "for TEMPUS-FUGIT and $TOTAL-ELAPSED-TIME")
(def-boot-val $boxString
  (concatenate 'string (list (code-char #x1d) (code-char #xe2)))
  "this string of 2 chars displays as a box")
(def-boot-val |$quadSymbol| $boxString "displays an APL quad")
(def-boot-val |$quadSym| '|$quadSym| "unbound symbol referenced in format.boot")
(def-boot-val $escapeString  (string (code-char 27))
   "string for single escape character")
(def-boot-val $boldString (concatenate 'string $escapeString "[12m")
  "switch into bold font")
(def-boot-val $normalString (concatenate 'string $escapeString "[0;10m")
  "switch back into normal font")
(def-boot-val $reverseVideoString (concatenate 'string $escapeString "[7m")
  "switch into reverse video")
(def-boot-val $underlineString (concatenate 'string $escapeString "[4m")
  "switch into underline mode")
(def-boot-val $COMPILE t  "checked in COMP-2 to skip compilation")
(def-boot-var |$abbreviationTable|		    "???")
(def-boot-val |$algebraList|
	'(|QuotientField| |Polynomial|
	  |UnivariatePoly|
	  |MultivariatePolynomial|
	  |DistributedMultivariatePolynomial|
	  |HomogeneousDistributedMultivariatePolynomial|
	  |Gaussian| |SquareMatrix|
	  |RectangularMatrix|)			"???")
(def-boot-val |$BasicDomains|
	  '(|Integer| |Float| |Symbol|
	    |Boolean| |String|)			"???")
(def-boot-val |$BasicPredicates|
	  '(FIXP STRINGP FLOATP)		"???")
(def-boot-val |$BFtag| '-BF-	   "big float marker")
(def-boot-val |$BigFloat| '(|Float|)		    "???")
(def-boot-val |$BigFloatOpt| '(|BigFloat| . OPT)    "???")
(def-boot-val |$Boolean| '(|Boolean|)		    "???")
(def-boot-val |$BooleanOpt| '(|Boolean| . OPT)	    "???")
(def-boot-val |$bootStrapMode| ()  "if T compCapsule skips body")
(def-boot-var |$brightenCommentsFlag|		    "???")
(def-boot-var |$brightenCommentsIfTrue|		    "???")
(def-boot-val |$BreakMode| '|query|		    "error.boot")
(def-boot-var |$cacheAlist|			    "Interpreter>System.boot")
(def-boot-val |$cacheCount| 0			    "???")
(def-boot-val |$Category| '(|Category|)		    "???")
;  modemap:==  ( <map> (p e) (p e) ... (p e) )
;  modemaplist:= ( modemap ... )

(def-boot-val |$CategoryFrame|
	  '((((|Category| . ((|modemap| (((|Category|) (|Category|)) (T *)))))
	      (|Join| . ((|modemap|
      (((|Category|) (|Category|) (|Category|) (|Category|)) (T *))
      (((|Category|) (|Category|) (|List| |Category|)) (|Category|)) (T *))
	)))))
	"Compiler>CUtil.boot")
(def-boot-val |$CategoryNames|
	'(|Category| |CATEGORY| |RecordCategory| |Join|
	  |StringCategory| |SubsetCategory| |UnionCategory|)
	"???")
(def-boot-val |$clamList|
	  '((|getModemapsFromDatabase| |hash| UEQUAL |count|)
	    (|getOperationAlistFromLisplib| |hash| UEQUAL |count|)
	    (|getFileProperty| |hash| UEQUAL |count|)
	    (|canCoerceFrom| |hash| UEQUAL |count|)
	    (|selectMms1| |hash| UEQUAL |count|)
	    (|coerceMmSelection| |hash| UEQUAL |count|)
	    (|isValidType| |hash| UEQUAL |count|))
						"Interpreter>Clammed.boot")
(def-boot-val |$CommonDomains|
	 '(|Record| |Union| |List| |Vector|
	   |String| |Float| |Integer|
	   |NonNegativeInteger| |Expression|
	   |NonPositiveInteger|
	   |PositiveInteger| |SmallInteger|
	   |Boolean|) "???")

(def-boot-var |$compCount|			    "???")
(def-boot-var |$compileMapFlag|			    "Interpreter>SetVars.boot")
(def-boot-var |$compUniquelyIfTrue|		    "Compiler>Compiler.boot")
(def-boot-val |$consistencyCheck| nil		    "Interpreter>Consis.boot")
(def-boot-val |$ConstructorCache| (MAKE-HASHTABLE 'ID)	"???")
(def-boot-var |$constructorsNotInDatabase|	    "Interpreter>Database.boot")
(def-boot-var |$createUpdateFiles|		    "Interpreter>SetVarT.boot")
(def-boot-var |$croakIfTrue|			    "See moan in U.")
(def-boot-var |$currentFunction|		    "???")
(def-boot-val |$currentLine|	""          "current input line for history")
(def-boot-val $delay 0				    "???")
(def-boot-var $Directory			    "???")
(def-boot-var $DISPLAY				    "???")
(def-boot-val |$Domain| '(|Domain|)		    "???")
(def-boot-var |$DomainFrame|			    "???")
(def-boot-val |$DomainNames|
	'(|Integer| |Float| |Symbol| |Boolean|
	  |String| |Expression|
	  |Mapping| |SubDomain| |List| |Union|
	  |Record| |Vector|)			"???")
(def-boot-val |$DomainsInScope| '(NIL)		    "???")
(def-boot-val |$domainTraceNameAssoc| ()    "association list of trace domains")
(def-boot-val |$DomainVariableList|
  '($1 $2 $3 $4 $5 $6 $7 $8 $9 $10 $11
       $12 $13 $14 $15)				"???")
(def-boot-val |$DoubleQuote| "\""                   "???")
(def-boot-val |$DummyFunctorNames|
	  '(|Boolean| |Mapping|)		"???")
(def-boot-var |$eltIfNil|			    "SpecialFunctions>PSpad.boot")
(def-boot-val |$EmptyEnvironment| '((NIL))	    "???")
(def-boot-val |$EmptyList| ()			    "???")
<<EmptyMode>>
(def-boot-val |$EM| |$EmptyMode|		    "???")
(def-boot-val |$EmptyString| ""                     "???")
(def-boot-val |$EmptyVector| '#()		     "???")
(def-boot-val |$Expression| '(|Expression|)	    "???")
(def-boot-val |$ExpressionOpt|
	  '(|Expression| . OPT)			"???")
(def-boot-var |$evalDomain|			    "???")
(def-boot-val |$Exit| '(Exit)	      "compiler constant")
(def-boot-var |$exitMode|			    "???")
(def-boot-var |$exitModeStack|			    "???")
(def-boot-val |$failure| (GENSYM)	    "Symbol denoting a failed operation.")
(def-boot-val |$false| NIL			    "???")
(def-boot-val |$Float| '(|Float|)		    "???")
(def-boot-val |$FloatOpt| '(|Float| . OPT)	    "???")
(def-boot-val |$FontTable| '(|FontTable|)	    "???")
(def-boot-var |$forceDatabaseUpdate|		    "See load function.")
(def-boot-var |$form|				    "???")
(def-boot-val |$FormalMapVariableList|
  '(\#1 \#2 \#3 \#4 \#5 \#6 \#7 \#8 \#9
    \#10 \#11 \#12 \#13 \#14 \#15)		"???")
(def-boot-val |$FormalMapVariableList2|
  '(\#\#1 \#\#2 \#\#3 \#\#4 \#\#5 \#\#6 \#\#7 \#\#8 \#\#9
    \#\#10 \#\#11 \#\#12 \#\#13 \#\#14 \#\#15)		    "???")
(def-boot-var |$fromSpadTrace|			    "Interpreter>Trace.boot")
(def-boot-var $function				    "Interpreter>System.boot")
(def-boot-var $FunName				    "???")
(def-boot-var $FunName_Tail			    "???")
(def-boot-val |$ConstructorNames|
	'(|SubDomain| |List| |Union| |Record| |Vector|)
	"Used in isFunctor test, and compDefine.")
(def-boot-val |$gauss01| '(|gauss| 0 1)		    "???")
(def-boot-var |$genFVar|			    "???")
(def-boot-val |$genSDVar| 0	    "counter for genSomeVariable" )
(def-boot-val |$hasCategoryTable| (MAKE-HASHTABLE 'UEQUAL) "???")
(def-boot-var |$hasYield|			    "???")
(def-boot-var |$ignoreCommentsIfTrue|		    "???")
(def-boot-var |$Index|				    "???")
(def-boot-val |$InitialDomainsInScope|
	  '((|Boolean|) |$EmptyMode| |$NoValueMode|)
	  "???")
(def-boot-val |$InitialModemapFrame| '((NIL))	    "???")
(def-boot-var |$inLispVM|			    "Interpreter>Eval.boot")
(def-boot-var |$insideCapsuleFunctionIfTrue|	    "???")
(def-boot-var |$insideCategoryIfTrue|		    "???")
(def-boot-var |$insideCoerceInteractiveHardIfTrue|  "???")
(def-boot-val |$insideCompTypeOf| NIL  "checked in comp3")
(def-boot-val |$insideConstructIfTrue| NIL "checked in parse.boot")
(def-boot-var |$insideExpressionIfTrue|		    "???")
(def-boot-var |$insideFunctorIfTrue|		    "???")
(def-boot-var |$insideWhereIfTrue|		    "???")
(def-boot-val |$instantRecord| (MAKE-HASHTABLE 'ID) "???")
(def-boot-val |$Integer| '(|Integer|)		    "???")
(def-boot-val |$IntegerOpt| '(|Integer| . OPT)	    "???")
(def-boot-val |$InteractiveFrame| '((NIL))	    "top level environment")
(def-boot-var |$InteractiveMode|		    "Interactive>System.boot")
(def-boot-val |$InteractiveModemapFrame| '((NIL))   "???")
(def-boot-var |$InteractiveTimingStatsIfTrue|	    "???")
(def-boot-var |$LastCxArg|			    "???")
(def-boot-val $lastprefix "S-"                      "???")
(def-boot-val |$lastUntraced| NIL      "Used for )restore option of )trace.")
(def-boot-var |$leaveLevelStack|		    "???")
(def-boot-var |$leaveMode|			    "???")
(def-boot-val |$leftPren| "("                       "For use in SAY expressions.")
(def-boot-val |$letAssoc| NIL	    "Used for trace of assignments in SPAD code.")
(def-boot-var |$libFile|			    "Compiler>LispLib.boot")
(def-boot-var $LINENUMBER			    "???")
(def-boot-var $linestack			    "???")
(def-boot-val |$Lisp| '(|Lisp|)			    "???")
(def-boot-val $LISPLIB nil		    "whether to produce a lisplib or not")
(def-boot-var |$lisplibDependentCategories|	    "Compiler>LispLib.boot")
(def-boot-var |$lisplibDomainDependents|	    "Compiler>LispLib.boot")
(def-boot-var |$lisplibForm|			    "Compiler>LispLib.boot")
(def-boot-var |$lisplibKind|			    "Compiler>LispLib.boot")
(def-boot-var |$lisplibModemapAlist|		    "Compiler>LispLib.boot")
(def-boot-var |$lisplibModemap|			    "Compiler>LispLib.boot")
(def-boot-var |$lisplibOperationAlist|		    "Compiler>LispLib.boot")
(def-boot-var |$lisplibSignatureAlist|		    "Compiler>LispLib.boot")
(def-boot-var |$lisplibVariableAlist|		    "Compiler>LispLib.boot")
(def-boot-var |$lisp2lispRenameAssoc|		    "???")
(def-boot-val |$LocalFrame| '((NIL))		    "???")
(def-boot-var |$mapSubNameAlist|		    "Interpreter>Trace.boot")
(def-boot-var |$mathTrace|			    "Interpreter>Trace.boot")
(def-boot-var |$mathTraceList|		    "Controls mathprint output for )trace.")
(def-boot-var $maxlinenumber			    "???")
(def-boot-val |$Mode| '(Mode)	   "compiler constant")
(def-boot-var |$ModemapFrame|			    "???")
(def-boot-val |$ModeVariableList|
  '(&1 &2 &3 &4 &5 &6 &7 &8 &9 &10 &11
       &12 &13 &14 &15)				"???")
(def-boot-var |$mostRecentOpAlist|		    "???")
(def-boot-var $NBOOT				    "???")
(def-boot-val |$NegativeIntegerOpt| '(|NegativeInteger| . OPT) "???")
(def-boot-val |$NegativeInteger| '(|NegativeInteger|) "???")
(def-boot-val |$NETail| (CONS |$EmptyEnvironment| NIL) "???")
(def-boot-var $NEWLINSTACK			    "???")
(def-boot-var |$noEnv|				    "???")
(def-boot-val |$NonMentionableDomainNames| '($ |Rep| |Mapping|) "???")
(def-boot-val |$NonNegativeIntegerOpt| '(|NonNegativeInteger| . OPT) "???")
(def-boot-val |$NonNegativeInteger| '(|NonNegativeInteger|) "???")
(def-boot-val |$NonPositiveIntegerOpt| '(|NonPositiveInteger| . OPT) "???")
(def-boot-val |$NonPositiveInteger| '(|NonPositiveInteger|) "???")
(def-boot-var |$noParseCommands|		    "???")
(def-boot-val |$NoValueMode| '|$NoValueMode|   "compiler literal")
(def-boot-val |$NoValue| '|$NoValue|   "compiler literal")
(def-boot-val $num_of_meta_errors 0		    "Number of errors seen so far")
(def-boot-var $OLDLINE				    "Used to output command lines.")
(def-boot-val |$oldTime| 0			    "???")
(def-boot-val |$One| '(|One|)			    "???")
(def-boot-val |$OneCoef| '(1 1 . 1)		    "???")
(def-boot-val |$operationNameList| NIL		 "op names for apropos")
(def-boot-var |$opFilter|			    "Used to /s a function")
(def-boot-var |OptionList|			    "???")
(def-boot-val |$optionAlist| nil       "info for trace boot")
(def-boot-var |$OutsideStringIfTrue|		    "???")
(def-boot-val |$PatternVariableList|
  '(*1 *2 *3 *4 *5 *6 *7 *8 *9 *10 *11
       *12 *13 *14 *15)				"???")
(def-boot-var |$PolyMode|			    "???")
(def-boot-val |$Polvar| '(WRAPPED . ((1 . 1)))	    "???")
(def-boot-var |$polyDefaultAssoc|		    "???")
(def-boot-val |$PolyDomains|
	'(|Polynomial| |MultivariatePolynomial|
	  |UnivariatePoly|
	  |DistributedMultivariatePolynomial|
	  |HomogeneousDistributedMultivariatePolynomial|)
	"???")
(def-boot-val |$PositiveIntegerOpt| '(|PositiveInteger| . OPT) "???")
(def-boot-val |$PositiveInteger| '(|PositiveInteger|) "???")
(def-boot-var |$postStack|			    "???")
(def-boot-var |$prefix|				    "???")
(def-boot-val |$PrettyPrint| nil "if t generated code is prettyprinted")
(def-boot-var |$previousTime|			    "???")
(def-boot-val |$PrimitiveDomainNames| nil
"Used in mkCategory to avoid generating vector slot
for primitive domains.	Also used by putInLocalDomainReferences and optCal.")
(def-boot-val |$optimizableDomainNames|
      '(|FactoredForm| |List| |Vector|
	|Integer| |NonNegativeInteger| |PositiveInteger|
	|SmallInteger| |String| |Boolean| |Symbol| |BooleanFunctions|)
   "used in optCall to decide which domains can be optimized")
(def-boot-val |$PrintBox| '(|PrintBox|)		    "???")
(def-boot-var |$PrintCompilerMessagesIfTrue|	    "???")
(def-boot-val |$printConStats| nil  "display constructor cache totals")
(def-boot-val |$printLoadMsgs|	't	    "Interpreter>SetVarT.boot")
(def-boot-var |$PrintOnly|			    "Compiler>LispLib.boot")
(def-boot-val |$UserSynonyms| ()    "list of user defined synonyms")
(def-boot-val |$SystemSynonyms| () "list of system defined synonyms")
(def-boot-val |$QuickCode| NIL	    "Controls generation of QREFELT, etc.")
(def-boot-val |$QuickLet| NIL	    "Set to T for no LET tracing.")
(def-boot-var |$QuietIfNil|			    "???")
(def-boot-val |$RationalNumberOpt| '(|RationalNumber| . OPT) "???")
(def-boot-val |$RationalNumber| '(|RationalNumber|) "???")
(def-boot-var |$readingFile|			    "???")
(def-boot-val |$report3| nil	 "addMap report info")
(def-boot-var |$reportBottomUpFlag|		    "Interpreter>SetVarT.boot")
(def-boot-var |$reportCoerce|			    "???")
(def-boot-var |$reportCoerceIfTrue|		    "???")
(def-boot-var |$reportCompilation|		    "???")
(def-boot-var |$reportExitModeStack|		    "???")
(def-boot-var |$reportFlag|			    "Interpreter>SetVars.boot")
(def-boot-val |$reportSpadTrace| ()    "report list of traced functions")
(def-boot-var |$resolveFlag|			    "Interpreter>SetVars.boot")
(def-boot-var |$returnMode|			    "???")
(def-boot-val |$rightPren| ")"                      "???")
(def-boot-var |$scanModeFlag|			    "???")
(def-boot-var |$semanticErrorStack|		    "???")
(def-boot-val |$SetFunctions| nil  "checked in SetFunctionSlots")
(def-boot-val |$SideEffectFreeFunctionList|
  '(|null| |case| |Zero| |One| \: \:\: |has| |Mapping|
    |elt| = \> \>= \< \<= MEMBER |is| |isnt| ATOM
    $= $\> $\>= $\< $\<= $^= $MEMBER)		"???")
(def-boot-var |$slamFlag|			    "Interpreter>SetVars.boot")
(def-boot-val |$SmallInteger| '(|SmallInteger|)	    "???")
(def-boot-val |$SmallIntegerOpt| '(|SmallInteger| . OPT) "???")
(def-boot-val |$sourceFileTypes|
	  '(SPAD BOOT LISP LISP370 META)
	  "Interpreter>System.boot")
(def-boot-val $SPAD nil				    "Is this Spad code?")
(def-boot-var $SPAD_ERRORS			    "???")
(def-boot-val |$spadLibFT| 'LISPLIB		    "???")
(def-boot-var |$spadOpList|			    "???")
(def-boot-var |$spadSystemDisks|		    "Interpreter>Database.boot")
(def-boot-val |$SpecialDomainNames|
  '(|add| |CAPSULE| |SubDomain| |List| |Union| |Record| |Vector|)
  "Used in isDomainForm, addEmptyCapsuleIfnecessary.")
(def-boot-var |$streamAlist|			    "???")
(def-boot-val |$streamCount| 0			    "???")
(def-boot-var |$streamIndexing|			    "???")
(def-boot-val |$StreamIndex| 0			    "???")
(def-boot-val |$StringCategory| '(|StringCategory|) "???")
(def-boot-val |$StringOpt| '(|String| . OPT)	    "???")
(def-boot-val |$String| '(|String|)		    "???")
(def-boot-var |$suffix|				    "???")
(def-boot-val |$Symbol| '(|Symbol|)		    "???")
(def-boot-val |$SymbolOpt| '(|Symbol| . OPT)	    "???")
(def-boot-var |$systemCommands|			    "Interpreter>System.boot")
(def-boot-val |$systemCreation| (currenttime)	    "???")
(def-boot-val |$systemLastChanged|
	  |$systemCreation|			"???")
(def-boot-val |$tempCategoryTable| (MAKE-HASHTABLE 'UEQUAL) "???")
(def-boot-val |$ThrowAwayMode| '|$ThrowAwayMode|    "interp constant")
(def-boot-val |$timerOn| t			    "???")
(def-boot-var |$topOp|				   "See displayPreCompilationErrors")
(def-boot-var |$tokenCommands|			    "???")
(def-boot-var $TOKSTACK				    "???")
(def-boot-val $TOP_LEVEL t			    "???")
(def-boot-var $top_stack			    "???")
(def-boot-var |$tracedModemap|			    "Interpreter>Trace.boot")
(def-boot-val |$traceDomains| t			     "enables domain tracing")
(def-boot-val |$TraceFlag| t			    "???")
(def-boot-var |$tracedSpadModemap|		    "Interpreter>Trace.boot")
(def-boot-var |$traceletFunctions|		    "???")
(def-boot-var |$traceNoisely|			    "Interpreter>Trace.boot")
(def-boot-var |$TranslateOnly|			    "???")
(def-boot-var |$tripleCache|			    "Compiler>Compiler.boot")
(def-boot-val |$true| ''T			    "???")
(def-boot-var $Type				    "???")
(def-boot-val |$underDomainAlist|
	'((|DistributedMultivariatePolynomial| . 2)
	  (|FactoredForm| . 1)
	  (|FactoredRing| . 1)
	  (|Gaussian| . 1)
	  (|List| . 1)
	  (|Matrix| . 1)
	  (|MultivariatePolynomial| . 2)
	  (|HomogeneousDistributedMultivariatePolynomial| . 2)
	  (|Polynomial| . 1)
	  (|QuotientField| . 1)
	  (|RectangularMatrix| . 3)
	  (|SquareMatrix| . 2)
	  (|UnivariatePoly| . 2)
	  (|Vector| . 1)
	  (|VVectorSpace| . 2))			"???")

(def-boot-val |$updateCatTableIfTrue| T	   "update category table on load")
(def-boot-var |$updateIfTrue|
	  "Should SPAD databases be updated&squeezed?")
(def-boot-val |$useBFasDefault| T
	  "Determines whether to use BF as default floating point type.")
(def-boot-val |$useDCQnotLET| () "checked in DEF-LET for use of DCQ")
(def-boot-var |$VariableCount|			    "???")
(def-boot-val |$Void| '(|Void|) "compiler constant")
(def-boot-var |$warningStack|			    "???")
(def-boot-val |$whereList| () "referenced in format boot formDecl2String")
(def-boot-var |$xCount|				    "???")
(def-boot-var |$xeditIsConsole|			    "???")
(def-boot-var |$xyCurrent|			    "???")
(def-boot-var |$xyInitial|			    "???")
(def-boot-var |$xyMax|				    "???")
(def-boot-var |$xyMin|				    "???")
(def-boot-var |$xyStack|			    "???")
(def-boot-val |$Zero| '(|Zero|)			    "???")

(def-boot-val |$domainsWithUnderDomains|
	  (mapcar #'car |$underDomainAlist|)	"???")
(def-boot-val |$inputPromptType| '|step|  "checked in MKPROMPT")
(def-boot-val |$IOindex| 0		   "step counter")

(defun |printLoadMessages| (u)
  (if (memq u '(|%display%| |%describe%|)) 
        (if |$printLoadMsgs| "on" "off")
        (seq 
          (setq |$printLoadMsgs| (and (listp u) (equal (car u) '|on|)))
#+:CCL    (verbos (if |$printLoadMsgs| 2 0))
)))

<<manexp>>
<<acot>>
<<cot>>
<<getCD>>
<<Missing DFLOAT Transcendental functions>>
@
\eject
\begin{thebibliography}{99}
\bibitem{1} nothing
\end{thebibliography}
\end{document}