zone.lisp: Sink `&allow-other-keys' until after the keyword arguments.

[zone] / zone.lisp

diff --git a/zone.lisp b/zone.lisp
index 6d6dce9..a1e74b7 100644 (file)
--- a/zone.lisp
+++ b/zone.lisp
@@ -687,9 +687,9 @@
 (defmacro defrevzone (head &body zf)
   "Define a reverse zone, with the correct name."
   (destructuring-bind (nets &rest args
-                           &key &allow-other-keys
-                                (family '*address-family*)
-                                prefix-bits)
+                           &key (family '*address-family*)
+                                prefix-bits
+                                &allow-other-keys)
       (listify head)
     (with-gensyms (ipn)
       `(dolist (,ipn (net-parse-to-ipnets ',nets ,family))