21 lines
518 B
Common Lisp
21 lines
518 B
Common Lisp
|
;;;; package.lisp
|
||
|
|
|
||
|
|
(defpackage #:backplane-server
|
||
|
|
(:use #:cl)
|
||
|
|
(:import-from #:arrows
|
||
|
|
#:->
|
||
|
|
#:some->)
|
||
|
|
(:import-from #:alexandria
|
||
|
|
#:if-let)
|
||
|
|
(:import-from #:cl-json
|
||
|
|
#:decode-json-from-string
|
||
|
|
#:encode-json-to-string)
|
||
|
|
|
||
|
|
(:export #:make-success
|
||
|
|
#:make-error
|
||
|
|
#:success-p
|
||
|
|
#:error-p
|
||
|
|
#:parse-message
|
||
|
|
#:handle-message
|
||
|
|
#:backplane-connect))
|