Docker Engine API with SBCL, drakma & yason

docker.lisp

(let ((socket (make-instance 'sb-bsd-sockets:local-socket :type :stream)))
  (sb-bsd-sockets:socket-connect socket "/var/run/docker.sock")
  (with-open-stream (stream (sb-bsd-sockets:socket-make-stream socket
                                                               :element-type '(unsigned-byte 8)
                                                               :input T
                                                               :output T
                                                               :buffering :none))
    (let ((wrapped-stream (flexi-streams:make-flexi-stream (drakma::make-chunked-stream stream)
                                                           :external-format drakma::+latin-1+)))
      (multiple-value-bind (first second third fourth fifth sixth seventh)
          (drakma:http-request "http://localhost/v1.41/images/json"
                               :stream wrapped-stream
                               :want-stream T
                               :force-binary T)
        (unwind-protect
             (let ((yason:*parse-object-as* :alist))
               (yason:parse first))
          (when sixth
            (close first)))))))

c.f. https://docs.docker.com/engine/api/v1.41/, https://dev.to/rajasegar/http-over-unix-sockets-in-common-lisp-4l72