blob: 9624712626e9b37a9839a8b1ebdc969572c6bd44 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
|
(ql:quickload "jsonrpc")
(require "jsonrpc") ; Required?
(defun main ()
(let ((server (jsonrpc:make-server)))
(jsonrpc:expose server "subtract" (lambda (args)
(- (gethash "l" args) (gethash "r" args))))
(jsonrpc:expose server "add" (lambda (args)
(+ (gethash "l" args) (gethash "r" args))))
(jsonrpc:expose server "quit" (lambda (args) (quit)))
(jsonrpc:server-listen server :port 8192 :mode :tcp)))
|