anchor.diff:          (describe sock)
            (setf usock
                  (make-stream-socket
  -                :socket sock
  +                :socket jchan
                   :stream (ext:get-socket-stream (jdi:jop-deref sock)
                                                  :element-type element-type)))))))
   
  
positive.code: 
  (defmethod socket-close ((usocket usocket))
    (with-mapped-conditions (usocket)
      (ext:socket-close (socket usocket))))
  
  ;; Socket streams are different objects than
  ;; socket streams. Closing the stream flushes
  
negative.code:                          (jdi:jcoerce sock-addr
                                        "java.net.SocketAddress")
                           (jdi:jcoerce backlog :int))
      (make-stream-server-socket chan :element-type element-type)))
  
  (defmethod socket-accept ((socket stream-server-usocket) &key element-type)
    (let* ((jsock (socket socket))
           (jacc-chan (jdi:do-jmethod-call jsock "accept"))
           (jacc-stream
            (ext:get-socket-stream (jdi:jop-deref
                                    (jdi:do-jmethod-call jacc-chan "socket"))
                                   :element-type (or element-type
                                                     (element-type socket)))))
      (make-stream-socket :socket jacc-chan
                          :stream jacc-stream)))
  
  ;;(defun print-java-exception (e)
  