From 3525237f97a3d01ee7d600e6441b520951e874b9 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 16 May 2021 17:25:17 -0700 Subject: CONTINUE-DEPLOY*-PROGRAM: avoid exporting unexported symbols Signed-off-by: Sean Whitton --- src/data.lisp | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'src/data.lisp') 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 -- cgit v1.2.3