34 lines
598 B
Common Lisp
34 lines
598 B
Common Lisp
(defpackage :spki-sexp
|
|
(:use :cl :flexi-streams :cl-match)
|
|
(:shadow :read-from-string)
|
|
|
|
(:export :read-sexp :write-sexp
|
|
|
|
:display-hint
|
|
:make-display-hint
|
|
:display-hint-p
|
|
:copy-display-hint
|
|
:display-hint-hint
|
|
:display-hint-body
|
|
|
|
:syntax-error
|
|
:bad-length-prefix
|
|
:bad-display-hint
|
|
:bad-input-character
|
|
:unexpected-close-paren
|
|
|
|
:match-failure
|
|
|
|
:convert-sexp
|
|
:sexp-quote
|
|
:sexp-build
|
|
|
|
:match-sexp
|
|
:ematch-sexp))
|
|
|
|
(defpackage :smsg-network
|
|
(:use :cl :flexi-streams :spki-sexp)
|
|
(:export :relay
|
|
:serve-on-port
|
|
:client))
|