aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/interp/ChangeLog10
-rw-r--r--src/interp/bootfuns.lisp.pamphlet11
2 files changed, 10 insertions, 11 deletions
diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog
index 21388c74..1ea593d5 100644
--- a/src/interp/ChangeLog
+++ b/src/interp/ChangeLog
@@ -1,5 +1,15 @@
2007-08-19 Gabriel Dos Reis <gdr@cs.tamu.edu>
+ * bootfuns.lisp.pamphlet (def-boot-fun): Remove.
+ (|initializeSetVariables|): Likewise.
+ (|updateSourceFiles|): Likewise.
+ (|bootUnionPrint|): Likewise.
+ (|break|): Likewise.
+ (|breaklet|): Likewise.
+ (BUMPCOMPERRORCOUNT): Likewise.
+
+2007-08-19 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
* c-util.boot.pamphlet (addContour): Remove trailing semicolon.
2007-08-18 Gabriel Dos Reis <gdr@cs.tamu.edu>
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| "???")