From 62d861cf5fbd4806fd6399e841fd24545fa085d3 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 30 Nov 2021 18:44:44 -0700 Subject: CONTINUE-DEPLOY*-PROGRAM: initialise special variables Before this change, the variables would be unbound in IMAGE-DUMPED images. Signed-off-by: Sean Whitton --- src/image.lisp | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/image.lisp') 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 -- cgit v1.2.3