diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-22 11:00:22 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-22 11:01:14 -0700 |
commit | 433dc4ee377505a636e5b17470d992e2ddfce341 (patch) | |
tree | 7dc6a60b6ed7cab35e4738acec10a7755959b1d5 /src/data.lisp | |
parent | 4e28f73081fcc4df8e89e4cad4856c2e9b53f3ab (diff) | |
download | consfigurator-433dc4ee377505a636e5b17470d992e2ddfce341.tar.gz |
add missing SPECIAL proclamation for *CONSFIGURATOR-DEBUG-LEVEL*
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data.lisp')
-rw-r--r-- | src/data.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/data.lisp b/src/data.lisp index 4cadde4..fcba0f4 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -416,6 +416,7 @@ Preprocessing must occur in the root Lisp.")) collect `(export (intern ,name (find-package "CONSFIGURATOR")) (find-package "CONSFIGURATOR")))) + (proclamations `((proclaim '(special *consfigurator-debug-level*)))) (load-forms (loop for system in (slot-value (slot-value *host* 'propspec) 'systems) @@ -433,6 +434,7 @@ Preprocessing must occur in the root Lisp.")) ;; does not bundle the .asd files. (use-package :cl (make-package "CL-HEREDOC-SYSTEM")) ,@intern-forms + ,@proclamations (define-condition missing-data-source (error) ()) (require "asdf") ;; Hide the LOAD output unless loading failed, because |