From 48608192115031ce77b027693b1a058e727005ee Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 15 Apr 2014 14:53:39 +0100
Subject: [PATCH] zone.lisp: Fix `:sshfp' handling of literals.

It was, unfortunately, completely broken.
---
 zone.lisp | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/zone.lisp b/zone.lisp
index f497037..a6c4944 100644
--- a/zone.lisp
+++ b/zone.lisp
@@ -700,12 +700,12 @@
 		 (fixnum what)
 		 (symbol (or (get what prop)
 			     (error "~S is not a known ~A" what prop))))))
-	(dolist (item (listify data)
-		 (destructuring-bind (fpr &key (alg 'rsa) (type 'sha-1))
-		     (listify item)
-		   (rec :data (list (lookup alg 'sshfp-algorithm)
-				    (lookup type 'sshfp-type)
-				    fpr))))))))
+	(dolist (item (listify data))
+	  (destructuring-bind (fpr &key (alg 'rsa) (type 'sha-1))
+	      (listify item)
+	    (rec :data (list (lookup alg 'sshfp-algorithm)
+			     (lookup type 'sshfp-type)
+			     fpr)))))))
 
 (defzoneparse :mx (name data rec :zname zname)
   ":mx ((HOST :prio INT :ip IPADDR)*)"
-- 
2.11.0