sbcl sockets example

(use-package 'sb-bsd-sockets)

(defparameter *socket*
  (make-instance 'inet-socket :type :stream :protocol :tcp))
(socket-connect *socket* #(127 0 0 1) 1234)

(sb-thread:make-thread
 (lambda ()
   (loop for buffer = (socket-receive *socket* nil 1)
         for c = (elt buffer 0)
         while (char/= c #\Nul)
         do (write-char c)))
 :name "socket reader thread")

(socket-shutdown *socket* :direction :io)
(socket-close *socket*)