anchor.diff:  (defparameter +non-existing-host+ "10.0.0.13")
   (defparameter *soc1* (usocket::make-stream-socket :socket :my-socket
                                                     :stream :my-stream))
  +(eval-when (:compile-toplevel :load-toplevel :execute)
  +  (defparameter +common-lisp-net+ #(80 68 86 115)))
   
   (deftest make-socket.1 (usocket:socket *soc1*) :my-socket)
   (deftest make-socket.2 (usocket:socket-stream *soc1*) :my-stream)
  
positive.code:                            #-(or lispworks armedbear cmu openmcl)
                               'usocket:host-unreachable-error
                             nil)
        (usocket:socket-connect +non-existing-host+ 80) ;; == #(127 0 0 0)
        :unreach)
    nil)
  
  
negative.code: 
  (deftest socket-name.1
    (with-caught-conditions (nil nil)
      (let ((sock (usocket:socket-connect +common-lisp-net+ 80)))
        (unwind-protect
            (usocket::get-peer-address sock)
          (usocket:socket-close sock))))
    #.+common-lisp-net+)
  (deftest socket-name.2
    (with-caught-conditions (nil nil)
      (let ((sock (usocket:socket-connect +common-lisp-net+ 80)))
        (unwind-protect
            (usocket::get-peer-port sock)
          (usocket:socket-close sock))))
    80)
  (deftest socket-name.3
    (with-caught-conditions (nil nil)
      (let ((sock (usocket:socket-connect +common-lisp-net+ 80)))
        (unwind-protect
            (usocket::get-peer-name sock)
          (usocket:socket-close sock))))
    #.+common-lisp-net+ 80)
  (deftest socket-name.4
    (with-caught-conditions (nil nil)
      (let ((sock (usocket:socket-connect +common-lisp-net+ 80)))
        (unwind-protect
            (usocket::get-local-address sock)
          (usocket:socket-close sock))))
    #(192 168 1 65))
  
  
  (defun run-usocket-tests ()
  