From 7847b60eee5af438d855d1deffc489e82196c355 Mon Sep 17 00:00:00 2001
From: Niten <niten@fudo.org>
Date: Wed, 2 Dec 2020 12:47:32 -0800
Subject: [PATCH] Try making parse-message external?

---
 backplane-dns.lisp | 2 +-
 package.lisp       | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/backplane-dns.lisp b/backplane-dns.lisp
index ca5f952..90291aa 100644
--- a/backplane-dns.lisp
+++ b/backplane-dns.lisp
@@ -266,7 +266,7 @@
                  :sender     sender
                  :request    request))
 
-(defmethod backplane-dns::parse-message (sender (service (eql :DNS)) api-version message msg-id)
+(defmethod backplane-dns:parse-message (sender (service (eql :DNS)) api-version message msg-id)
   (parse-dns-message sender (symbolize (cdr (assoc :REQUEST message))) message msg-id))
 
 (defun backplane-dns-listen (&key
diff --git a/package.lisp b/package.lisp
index 56911cb..3ecaa4a 100644
--- a/package.lisp
+++ b/package.lisp
@@ -25,4 +25,5 @@
                 #:with-transaction)
 
   (:export      #:start-listener-with-env
-                #:backplane-dns-listen))
+                #:backplane-dns-listen
+                #:parse-message))