From 46dc5ec88af05ee35b4a0e92c7e1e5d8809f17b6 Mon Sep 17 00:00:00 2001 From: niten Date: Tue, 1 Feb 2022 10:11:12 -0800 Subject: [PATCH] Need to be lists... --- backplane-dns.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/backplane-dns.lisp b/backplane-dns.lisp index b29ee97..c62a08a 100644 --- a/backplane-dns.lisp +++ b/backplane-dns.lisp @@ -159,7 +159,7 @@ (let ((postmodern:*ignore-unknown-columns* t) (cl-postgres:*query-log* *standard-output*) (*dns-store* (make-instance 'backplane-dns-store:postgres-dns-store))) - (postmodern:with-connection (list db-name db-username db-password db-host (port db-port) (use-ssl db-use-ssl)) + (postmodern:with-connection (list db-name db-username db-password db-host `(port ,db-port) `(use-ssl ,db-use-ssl)) (with-backplane (backplane (backplane-connect xmpp-host xmpp-username xmpp-password)) (start-listening backplane)))))