aboutsummaryrefslogtreecommitdiff
path: root/src/interp/bootfuns.lisp.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2007-08-19 18:18:37 +0000
committerdos-reis <gdr@axiomatics.org>2007-08-19 18:18:37 +0000
commit824f8bf8bdfecb5c25bb7d82baf4c3ca126d92e4 (patch)
treefd4b385b21271b101774e338921a6cb371f70579 /src/interp/bootfuns.lisp.pamphlet
parentf4176da95ca2738d26bec76efddf812a33be5046 (diff)
downloadopen-axiom-824f8bf8bdfecb5c25bb7d82baf4c3ca126d92e4.tar.gz
* bootfuns.lisp.pamphlet (def-boot-fun): Remove.
(|initializeSetVariables|): Likewise. (|updateSourceFiles|): Likewise. (|bootUnionPrint|): Likewise. (|break|): Likewise. (|breaklet|): Likewise. (BUMPCOMPERRORCOUNT): Likewise.
Diffstat (limited to 'src/interp/bootfuns.lisp.pamphlet')
-rw-r--r--src/interp/bootfuns.lisp.pamphlet11
1 files changed, 0 insertions, 11 deletions
diff --git a/src/interp/bootfuns.lisp.pamphlet b/src/interp/bootfuns.lisp.pamphlet
index 58e809ed..ebf2d665 100644
--- a/src/interp/bootfuns.lisp.pamphlet
+++ b/src/interp/bootfuns.lisp.pamphlet
@@ -196,11 +196,6 @@ Contributed by Juergen Weiss.
<<non-portable-codes>>
-(defmacro def-boot-fun (f args where)
- `(compiler-let nil
- (defun ,f ,args ,where (print (list ',f . ,args)))
- (export '(,f) "BOOT")))
-
(defmacro def-boot-var (p where)
`(compiler-let nil
(defparameter ,p nil ,where)
@@ -211,8 +206,6 @@ Contributed by Juergen Weiss.
(defparameter ,p ,val ,where)
(export '(,p) "BOOT")))
-(def-boot-fun |initializeSetVariables| (arg) "early temp def")
-(def-boot-fun |updateSourceFiles| (x) "temp def")
#-:CCL
(def-boot-val |$timerTicksPerSecond| INTERNAL-TIME-UNITS-PER-SECOND
"for TEMPUS-FUGIT and $TOTAL-ELAPSED-TIME")
@@ -255,9 +248,6 @@ Contributed by Juergen Weiss.
(def-boot-val |$Boolean| '(|Boolean|) "???")
(def-boot-val |$BooleanOpt| '(|Boolean| . OPT) "???")
(def-boot-val |$bootStrapMode| () "if T compCapsule skips body")
-(def-boot-fun |bootUnionPrint| (x s tt) "Interpreter>Coerce.boot")
-(def-boot-fun |break| (msg) "Interpreter>Trace.boot")
-(def-boot-fun |breaklet| (fn vars) "Interpreter>Trace.boot")
(def-boot-var |$brightenCommentsFlag| "???")
(def-boot-var |$brightenCommentsIfTrue| "???")
(def-boot-val |$BreakMode| '|query| "error.boot")
@@ -567,7 +557,6 @@ for primitive domains. Also used by putInLocalDomainReferences and optCal.")
(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-fun BUMPCOMPERRORCOUNT () "errorSupervisor1")
(def-boot-var |$VariableCount| "???")
(def-boot-val |$Void| '(|Void|) "compiler constant")
(def-boot-var |$warningStack| "???")