From 026cc8b25c7315af46123e773dcf7b8807e1e2b1 Mon Sep 17 00:00:00 2001
From: niten <niten@fudo.org>
Date: Wed, 2 Feb 2022 14:39:31 -0800
Subject: [PATCH] Arg, (format nil ...) makes a string

---
 backplane-dns.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/backplane-dns.lisp b/backplane-dns.lisp
index 7da013b..6de3aa7 100644
--- a/backplane-dns.lisp
+++ b/backplane-dns.lisp
@@ -156,7 +156,7 @@
                                db-username
                                db-password
                                db-use-ssl)
-  (format nil "Got XMPP password: ~A" xmpp-password)
+  (format t "Got XMPP password: ~A" xmpp-password)
   (let ((postmodern:*ignore-unknown-columns* t)
         (cl-postgres:*query-log* *standard-output*)
         (*dns-store* (make-instance 'backplane-dns-store:postgres-dns-store)))