Plaster
New
List
Login
common-lisp
default
anonymous
2019.02.16 19:49:48
(let* ((server (usocket:socket-listen "localhost" 9001)) (connect (usocket:socket-connect "localhost" 9001)) (accept (usocket:socket-accept server)) (output (make-array 5))) (unwind-protect (progn (write-string "asdf" (usocket:socket-stream connect)) (read-sequence output (usocket:socket-stream accept)) output) (usocket:socket-close server) (usocket:socket-close accept)))
Raw
Annotate
Repaste
Edit