From f843cb6a90a3e2723dbcdc46a47df4bb5e1bddc3 Mon Sep 17 00:00:00 2001 From: Niten Date: Mon, 16 Nov 2020 20:52:59 -0800 Subject: [PATCH] Ohhh, wasn't ANDing SELECT conditions --- backplane-dns.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/backplane-dns.lisp b/backplane-dns.lisp index a220805..85109be 100644 --- a/backplane-dns.lisp +++ b/backplane-dns.lisp @@ -77,9 +77,9 @@ (get-domain) (id)))) (select-dao 'dns-record - (:= 'name (format nil "~A.~A" host domain)) - (:= 'domain-id domain-id) - (:= 'type type)) + (:and (:= 'name (format nil "~A.~A" host domain)) + (:= 'domain-id domain-id) + (:= 'type type))) (error 'domain-name-missing :domain domain))) (defun consider-update-content (record content)