diff options
-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 |