anchor.diff:                  #:uri-scheme
                   #:uri-host
                   #:uri-port)
  +  (:import-from :uiop)
     (:export #:client))
   (in-package :websocket-driver.ws.client)
   
  
positive.code:                          (let ((ctx (cl+ssl:make-context :verify-mode (if verify
                                                                            cl+ssl:+ssl-verify-peer+
                                                                            cl+ssl:+ssl-verify-none+)
                                                           :verify-location :default)))
                             ;; TODO: certificate files
                             (cl+ssl:with-global-context (ctx :auto-free-p t)
                               (cl+ssl:make-ssl-client-stream stream
  
negative.code: 
       eof)))
  
  (defmethod start-connection ((client client) &key (verify t) (ca-path nil))
    (unless (eq (ready-state client) :connecting)
      (return-from start-connection))
  
  