+ (#\d "directory" (:arg "DIRECTORY")
+ (dir *zone-output-path*)
+ "Write zone and serial files to DIRECTORY.")
+ (#\F "format" (:arg "FORMAT")
+ (keyword opt-format
+ (delete-duplicates
+ (loop for method in
+ (pcl:generic-function-methods
+ #'zone:zone-write)
+ for specs =
+ (pcl:method-specializers method)
+ if (typep (car specs)
+ 'pcl:eql-specializer)
+ collect
+ (pcl:eql-specializer-object
+ (car specs)))))
+ "Format to use for output.")