From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 19 Sep 2017 17:13:41 +0000 (+0100)
Subject: zone.lisp: Sink `&allow-other-keys' until after the keyword arguments.
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/zone/commitdiff_plain/d529c370a3cadfa19705ccaaeaa8d0a6b9410cd0?hp=d180e4a8771820af6aecfc5278a8b84ae2afbcac

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

The spec is clear that it must be like this.
---

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