path: root/cecho.lisp

(ql:quickload "jsonrpc")
(require "jsonrpc")
(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)))