From 3075453a8ccc8bf285bfc83d84317044590ae060 Mon Sep 17 00:00:00 2001 From: Niten Date: Fri, 4 Dec 2020 10:00:58 -0800 Subject: [PATCH] Ah shit I was retrieving a list --- backplane-dns-store.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/backplane-dns-store.lisp b/backplane-dns-store.lisp index dbd8b28..6df4a75 100644 --- a/backplane-dns-store.lisp +++ b/backplane-dns-store.lisp @@ -61,7 +61,7 @@ :reader error-msg))) (defun get-domain (domain) - (if-let ((domain (select-dao 'dns-domain (:= 'name domain)))) + (if-let ((domain (car (select-dao 'dns-domain (:= 'name domain))))) domain (error 'domain-name-missing :domain domain)))