Another attempt to defmethod...
This commit is contained in:
parent
262998bf99
commit
af08d3414e
|
@ -266,7 +266,7 @@
|
||||||
:sender sender
|
:sender sender
|
||||||
:request request))
|
:request request))
|
||||||
|
|
||||||
(defmethod backplane-server::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
|
||||||
|
|
|
@ -12,7 +12,6 @@
|
||||||
#:backplane-connect
|
#:backplane-connect
|
||||||
#:make-error
|
#:make-error
|
||||||
#:make-success
|
#:make-success
|
||||||
#:parse-message
|
|
||||||
#:with-backplane)
|
#:with-backplane)
|
||||||
(:import-from #:ip-utils
|
(:import-from #:ip-utils
|
||||||
#:ipv4-p
|
#:ipv4-p
|
||||||
|
|
Loading…
Reference in New Issue