From 543df72f3962cf91b0e0508d15cdc083a3cd7ed4 Mon Sep 17 00:00:00 2001 From: Niten Date: Tue, 17 Nov 2020 15:11:09 -0800 Subject: [PATCH] set-difference order meant it skipped if none existed --- backplane-dns.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/backplane-dns.lisp b/backplane-dns.lisp index 6ba8d65..940820b 100644 --- a/backplane-dns.lisp +++ b/backplane-dns.lisp @@ -194,7 +194,7 @@ (:= 'domain-id domain-id) (:= 'type "SSHFP")))) (existing-sshfps (mapcar #'record-content sshfp-records))) - (if (not (set-difference existing-sshfps new-sshfps)) + (if (not (set-difference new-sshfps existing-sshfps)) t (with-transaction () (dolist (record sshfp-records)