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)