anchor.diff:  (defmethod get-local-name ((usocket usocket))
     (multiple-value-bind (address port)
         (with-mapped-conditions (usocket)
  -    (ext:get-socket-host-and-port (socket usocket)))
  +        (ext:get-socket-host-and-port (socket usocket)))
       (values (hbo-to-vector-quad address) port)))
   
   (defmethod get-peer-name ((usocket usocket))
     (multiple-value-bind (address port)
         (with-mapped-conditions (usocket)
  -    (ext:get-peer-host-and-port (socket usocket)))
  +        (ext:get-peer-host-and-port (socket usocket)))
       (values (hbo-to-vector-quad address) port)))
   
   (defmethod get-local-address ((usocket usocket))
  
positive.code:   "Dispatch correct usocket condition."
    (etypecase condition
      (ext::socket-error
       (format t "erron:  ~D~%" (ext::socket-errno condition))
       (scl-map-socket-error (ext::socket-errno condition)
                 :socket socket
                 :condition condition))
  
negative.code:         :socket socket))))
  
  (defun socket-connect (host port &key (element-type 'character))
    (let* ((socket (with-mapped-conditions ()
                    (ext:connect-to-inet-socket (host-to-hbo host) port
                                                :kind :stream)))
           (stream (sys:make-fd-stream socket :input t :output t
                                       :element-type element-type
                                       :buffering :full)))
      (make-stream-socket :socket socket :stream stream)))
  
  (defun socket-listen (host port &key reuseaddress (backlog 5))
    (let* ((host (if (eql host *wildcard-host*)
                    0
                    (host-to-hbo host)))
          (server-sock (ext:create-inet-listener port :stream
                                                 :host host
                                                 :reuse-address reuseaddress
                                                 :backlog backlog)))
     (make-stream-server-socket server-sock)))
  
  (defmethod socket-accept ((usocket stream-server-usocket))
    (let* ((sock (ext:accept-tcp-connection (socket usocket)))
           (stream (sys:make-fd-stream sock :input t :output t
                                       :element-type (element-type usocket)
                                       :buffering :full)))
      (make-stream-socket :socket sock :stream stream)))
  
  (defmethod socket-close ((usocket usocket))
    "Close socket."
  