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

[zone] / zone.lisp

diff --git a/zone.lisp b/zone.lisp
index 6d6dce900e6ca64ae699be64285921bdce539b69..a1e74b70c11448eb7823019863c0cffa96648256 100644 (file)
--- a/zone.lisp
+++ b/zone.lisp
@@ -687,9 +687,9 @@ (export 'defrevzone)
 (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))