(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)