diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-16 17:25:17 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-17 12:52:26 -0700 |
commit | 3525237f97a3d01ee7d600e6441b520951e874b9 (patch) | |
tree | 66da7e671ba90a61362bbe58441bcb50f0b6f03c /src/data.lisp | |
parent | a86a2b3f2951a6d22018bee6ae84fc70e949df4d (diff) | |
download | consfigurator-3525237f97a3d01ee7d600e6441b520951e874b9.tar.gz |
CONTINUE-DEPLOY*-PROGRAM: avoid exporting unexported symbols
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data.lisp')
-rw-r--r-- | src/data.lisp | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/src/data.lisp b/src/data.lisp index 057b915..868ac52 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -518,11 +518,14 @@ Preprocessing must occur in the root Lisp.")) (*consfigurator-debug-level* ,*consfigurator-debug-level*)) ,@forms))) (let* ((intern-forms - (loop for name in '("*NO-DATA-SOURCES*" - "*CONSFIGURATOR-DEBUG-LEVEL*") - collect - `(export (intern ,name (find-package "CONSFIGURATOR")) - (find-package "CONSFIGURATOR")))) + (loop for (export . name) + in '((nil . "*NO-DATA-SOURCES*") + (t . "*CONSFIGURATOR-DEBUG-LEVEL*")) + for intern-form + = `(intern ,name (find-package "CONSFIGURATOR")) + if export collect + `(export ,intern-form (find-package "CONSFIGURATOR")) + else collect intern-form)) (proclamations `((proclaim '(special *no-data-sources*)) (proclaim '(special *consfigurator-debug-level*)))) (load-forms |