diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-11-30 18:44:44 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-12-03 11:29:08 -0700 |
commit | 62d861cf5fbd4806fd6399e841fd24545fa085d3 (patch) | |
tree | 72be5deba923a9dcc12b8e28dfc2c5bbbf0ae26b | |
parent | 7c6eacf3479b12e070ad47107075a33f8a46934c (diff) | |
download | consfigurator-62d861cf5fbd4806fd6399e841fd24545fa085d3.tar.gz |
CONTINUE-DEPLOY*-PROGRAM: initialise special variables
Before this change, the variables would be unbound in IMAGE-DUMPED images.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/image.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/image.lisp b/src/image.lisp index 6f5b1f6..d87a80c 100644 --- a/src/image.lisp +++ b/src/image.lisp @@ -561,10 +561,13 @@ Preprocessing must occur in the root Lisp.")) else collect intern-form)) (proclamations `((proclaim '(special *no-data-sources*)) (proclaim '(special *consfigurator-debug-level*)))) + (initialisations '(setq *no-data-sources* nil + *consfigurator-debug-level* 0)) (forms `((make-package "CONSFIGURATOR") ,@intern-forms ,@proclamations + ,initialisations ;; (define-condition missing-data-source (error) ()) (require "asdf") ;; Hide the compile and/or load output unless there are |