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

[zone] / zone.lisp

diff --git a/zone.lisp b/zone.lisp
index 09791203b549d4b9cecf88fb2bfc4fe0d07781ee..7649f540f0dfa998ca03dc4ebfaa1c30f8dfbd06 100644 (file)
--- a/zone.lisp
+++ b/zone.lisp
@@ -1031,7 +1031,7 @@ (defzoneparse :spf (name data rec :zname zname)
                              (write-char #\space out))
                          (let* ((width (ipnet-width net))
                                 (mask (ipnet-mask net))
                              (write-char #\space out))
                          (let* ((width (ipnet-width net))
                                 (mask (ipnet-mask net))

-                                (plen (ipmask-cidl-slash width mask)))
+                                (plen (ipmask-cidr-slash width mask)))

                            (unless plen
                              (error "invalid netmask in network ~A" net))
                            (format out "~A~A:~A~@[/~D~]"
                            (unless plen
                              (error "invalid netmask in network ~A" net))
                            (format out "~A~A:~A~@[/~D~]"