From d529c370a3cadfa19705ccaaeaa8d0a6b9410cd0 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 19 Sep 2017 18:13:41 +0100
Subject: [PATCH] zone.lisp: Sink `&allow-other-keys' until after the keyword
 arguments.

The spec is clear that it must be like this.
---
 zone.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/zone.lisp b/zone.lisp
index 6d6dce9..a1e74b7 100644
--- 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))
-- 
2.11.0