Try making parse-message external?

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

package.lisp

@@ -25,4 +25,5 @@
                 #:with-transaction)
 
   (:export      #:start-listener-with-env
-                #:backplane-dns-listen))
+                #:backplane-dns-listen
+                #:parse-message))