X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/zone/blobdiff_plain/5bc6b584b5bafd701dc2c36401959f749942b8f1..2d8313b9b91fd104faf9d102910c10d022b91926:/frontend.lisp?ds=inline

diff --git a/frontend.lisp b/frontend.lisp
index 0764c3f..613fb21 100644
--- a/frontend.lisp
+++ b/frontend.lisp
@@ -107,8 +107,9 @@ (defun main ()
 	       (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