Don't even supply a fallback
This commit is contained in:
parent
665f362ce1
commit
d72210f7eb
|
@ -55,9 +55,9 @@
|
||||||
(defgeneric parse-message (sender service api-version message msg-id)
|
(defgeneric parse-message (sender service api-version message msg-id)
|
||||||
(:documentation "Given an incoming message, turn it into the appropriate request."))
|
(:documentation "Given an incoming message, turn it into the appropriate request."))
|
||||||
|
|
||||||
(defmethod parse-message (sender service api-version message msg-id)
|
;; (defmethod parse-message (sender service api-version message msg-id)
|
||||||
(make-error :msg (format nil "unsupported service: ~A" service)
|
;; (make-error :msg (format nil "unsupported service: ~A" service)
|
||||||
:msg-id msg-id))
|
;; :msg-id msg-id))
|
||||||
|
|
||||||
(defun decode-message (message-str)
|
(defun decode-message (message-str)
|
||||||
(handler-case
|
(handler-case
|
||||||
|
|
Loading…
Reference in New Issue