From 99a1abe88b018e1d51133ea46e2e2e8cb72ebeb8 Mon Sep 17 00:00:00 2001 From: Niten Date: Fri, 4 Dec 2020 09:56:02 -0800 Subject: [PATCH] Generic (id) doesn't work on domains? Okay... --- backplane-dns-store.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/backplane-dns-store.lisp b/backplane-dns-store.lisp index b645df2..dbd8b28 100644 --- a/backplane-dns-store.lisp +++ b/backplane-dns-store.lisp @@ -30,7 +30,7 @@ (defclass dns-domain () ((id :col-type integer :col-identity t - :reader id) + :reader domain-id) (name :col-type (varchar 255) :initarg :name :reader domain-name) @@ -66,7 +66,7 @@ (error 'domain-name-missing :domain domain))) (defun get-records (domain name type) - (let ((domain-id (id (get-domain domain)))) + (let ((domain-id (domain-id (get-domain domain)))) (select-dao 'dns-record (:and (:= 'domain-id domain-id) (:= 'name (format nil "~A.~A" name domain)) (:= 'type type))))) @@ -79,7 +79,7 @@ (id record)))) (defun insert-record (domain name type content) - (let ((domain-id (id (get-domain domain)))) + (let ((domain-id (domain-id (get-domain domain)))) (insert-dao (make-instance 'dns-record :domain-id domain-id :name (format nil "~A.~A" name domain)