zone.lisp, frontend.lisp: New configuration-variable machinery.

[zone] / frontend.lisp

diff --git a/frontend.lisp b/frontend.lisp
index 0764c3f7cd43beea6ae526059cca40d75fbbb9e5..613fb21e7ab5c19abf34b4f7966f3c8211416c1e 100644 (file)
--- a/frontend.lisp
+++ b/frontend.lisp
@@ -107,8 +107,9 @@ (defun main ()
               (let ((*package* (make-package "ZONE.SCRATCH"
                                              :use '(#:common-lisp
                                                     #:net #:zone))))
               (let ((*package* (make-package "ZONE.SCRATCH"
                                              :use '(#:common-lisp
                                                     #:net #:zone))))

-                (load f :verbose nil :print nil :if-does-not-exist :error)
-                (delete-package *package*)))
+                (progv *zone-config* (mapcar #'symbol-value *zone-config*)
+                  (load f :verbose nil :print nil :if-does-not-exist :error)
+                  (delete-package *package*))))

             (zone-save opt-zones :format opt-format)))
       (with-unix-error-reporting ()
        (unless (option-parse-try
             (zone-save opt-zones :format opt-format)))
       (with-unix-error-reporting ()
        (unless (option-parse-try