zone.lisp: Refactor the output stage.

[zone] / frontend.lisp

diff --git a/frontend.lisp b/frontend.lisp
index cb22d3ebe65f0abbab10e930431ed035f16a905f..0764c3f7cd43beea6ae526059cca40d75fbbb9e5 100644 (file)
--- a/frontend.lisp
+++ b/frontend.lisp
@@ -83,8 +83,11 @@ (define-program
                           (keyword opt-format
                                    (delete-duplicates
                                     (loop for method in
                           (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)
                                           for specs =
                                           (method-specializers method)
                                           if (typep (car specs)