Try making parse-message external?
This commit is contained in:
parent
45303e5791
commit
7847b60eee
|
@ -266,7 +266,7 @@
|
||||||
:sender sender
|
:sender sender
|
||||||
:request request))
|
: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))
|
(parse-dns-message sender (symbolize (cdr (assoc :REQUEST message))) message msg-id))
|
||||||
|
|
||||||
(defun backplane-dns-listen (&key
|
(defun backplane-dns-listen (&key
|
||||||
|
|
|
@ -25,4 +25,5 @@
|
||||||
#:with-transaction)
|
#:with-transaction)
|
||||||
|
|
||||||
(:export #:start-listener-with-env
|
(:export #:start-listener-with-env
|
||||||
#:backplane-dns-listen))
|
#:backplane-dns-listen
|
||||||
|
#:parse-message))
|
||||||
|
|
Loading…
Reference in New Issue