mirror of https://codeberg.org/cage/tinmop/
- [JSONRPC] improved error message.
This commit is contained in:
parent
b96acd7c66
commit
0188d2f351
|
@ -364,8 +364,11 @@
|
||||||
(error 'json-rpc-error
|
(error 'json-rpc-error
|
||||||
:code (response-error-code +error-invalid-params+)
|
:code (response-error-code +error-invalid-params+)
|
||||||
:transaction-id (id request)
|
:transaction-id (id request)
|
||||||
:text (format nil
|
:text
|
||||||
"Number of parameters (arity) not compatible with function")))
|
(format nil
|
||||||
|
"Number of parameters (arity) not compatible with function: expected ~a got ~a."
|
||||||
|
(length (params request))
|
||||||
|
(length (params fun)))))
|
||||||
(t
|
(t
|
||||||
(let* ((params (params request))
|
(let* ((params (params request))
|
||||||
(called-by-name-p (called-by-name-p fun params)))
|
(called-by-name-p (called-by-name-p fun params)))
|
||||||
|
|
Loading…
Reference in New Issue