X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/zone/blobdiff_plain/9d6fbc71c9e4f235900e0bf0547fef9a98f689d9..aee08db8b5328dc1bc2608b89a54ca6a10b50690:/frontend.lisp

diff --git a/frontend.lisp b/frontend.lisp
index 5a3bb7a..e170731 100644
--- a/frontend.lisp
+++ b/frontend.lisp
@@ -23,7 +23,7 @@
 
 (defpackage #:zone.frontend
   (:use #:common-lisp #:mdw.sys-base #:optparse #:net #:zone
-	#+cmu #:mop
+	#+(or cmu clisp) #:mop
 	#+sbcl #:sb-mop)
   (:export #:main))
 (in-package #:zone.frontend)
@@ -83,8 +83,11 @@ (define-program
 			   (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)
@@ -104,8 +107,9 @@ (defun main ()
 	       (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
@@ -117,6 +121,7 @@ (defun main ()
 	  (die-usage)))
       (if opt-debug
 	  (run)
-	  (with-unix-error-reporting () (run))))))
+	  (with-unix-error-reporting () (run)))
+      t)))
 
 ;;;----- That's all, folks --------------------------------------------------