Ohhh, wasn't ANDing SELECT conditions

2020-11-16 20:52:59 -08:00 · 2020-11-16 20:52:59 -08:00 · f843cb6a90
parent 0bcd0e0faa
commit f843cb6a90
1 changed files with 3 additions and 3 deletions
--- 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)