(keyword opt-format
(delete-duplicates
(loop for method in
- (generic-function-methods
- #'zone:zone-write)
+ (append
+ (generic-function-methods
+ #'zone:zone-write)
+ (generic-function-methods
+ #'zone:zone-write-header))
for specs =
(method-specializers method)
if (typep (car specs)
(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