Plaster
New
List
Login
common-lisp
default
Old Sock
2019.02.16 20:05:35
(defun get-json (socket) (let* ((accepted (usocket:socket-accept socket)) (stream (usocket:socket-stream accepted))) (json:decode-json stream)))
Raw
Annotate
Repaste