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/bootfuns.lisp.pamphlet | 11 ----------- 1 file changed, 11 deletions(-) (limited to 'src/interp/bootfuns.lisp.pamphlet') 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