(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