From: Mark Wooding Date: Tue, 15 Apr 2014 13:53:39 +0000 (+0100) Subject: zone.lisp: Fix `:sshfp' handling of literals. X-Git-Url: https://git.distorted.org.uk/~mdw/zone/commitdiff_plain/48608192115031ce77b027693b1a058e727005ee zone.lisp: Fix `:sshfp' handling of literals. It was, unfortunately, completely broken. --- 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)*)"