zone-run: Add simple script for running `zone' without a vast image.

[zone] / frontend.lisp

diff --git a/frontend.lisp b/frontend.lisp
index 661b80aedbd444b5e1fdeca670058b851373a2ba..1c1a442c0d4abac2756080cbf71efa3102cd1768 100644 (file)
--- a/frontend.lisp
+++ b/frontend.lisp
@@ -165,7 +165,8 @@ (defun main ()
                 (progv *zone-config* (mapcar #'symbol-value *zone-config*)
                   (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)))
+            (zone-save opt-zones :format opt-format)
+            t))

       (with-unix-error-reporting ()
        (unless (option-parse-try
                  (do-options ()
       (with-unix-error-reporting ()
        (unless (option-parse-try
                  (do-options ()