Browse Source

Ah shit I was retrieving a list

master
Niten 1 year ago
parent
commit
3075453a8c
  1. 2
      backplane-dns-store.lisp

2
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)))

Loading…
Cancel
Save