summary refs log blame commit diff stats
path: root/README.org
blob: 3e1f470e96618943e2069e0ecf4431bb3dfa8de7 (plain) (tree)
span> (let ((client (accept server))) ;; Talk with client using standard I/O. (with-standard-input client (with-standard-output client (while t (let* ((line1 (read-line)) (tag-len (length +content-length+)) (content-length (convert (subseq line1 (- tag-len 1) (length line1)) <integer>))) (read-line) (marshal (json-parse (read-chars content-length))))))) (close client)) (select-remove server fds)))) (provide "echo") (echo-server)