From 824f8bf8bdfecb5c25bb7d82baf4c3ca126d92e4 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 19 Aug 2007 18:18:37 +0000 Subject: * bootfuns.lisp.pamphlet (def-boot-fun): Remove. (|initializeSetVariables|): Likewise. (|updateSourceFiles|): Likewise. (|bootUnionPrint|): Likewise. (|break|): Likewise. (|breaklet|): Likewise. (BUMPCOMPERRORCOUNT): Likewise. --- src/interp/ChangeLog | 10 ++++++++++ src/interp/bootfuns.lisp.pamphlet | 11 ----------- 2 files changed, 10 insertions(+), 11 deletions(-) (limited to 'src/interp') diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog index 21388c74..1ea593d5 100644 --- a/src/interp/ChangeLog +++ b/src/interp/ChangeLog @@ -1,3 +1,13 @@ +2007-08-19 Gabriel Dos Reis + + * 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 * c-util.boot.pamphlet (addContour): Remove trailing semicolon. 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. <> -(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| "???") -- cgit v1.2.3