anchor.diff:                             #-(or lispworks armedbear cmu openmcl)
                                'usocket:host-unreachable-error
                              nil)
  -      (usocket:socket-connect +non-existing-host+ 80) ;; == #(127 0 0 0)
  +      (usocket:socket-connect "192.168.1.1" 80) ;; == #(127 0 0 0)
         :unreach)
     nil)
   
  
positive.code: (defparameter +non-existing-host+ "10.0.0.13")
  (defparameter *soc1* (usocket::make-stream-socket :socket :my-socket
                                                    :stream :my-stream))
  
  (deftest make-socket.1 (usocket:socket *soc1*) :my-socket)
  (deftest make-socket.2 (usocket:socket-stream *soc1*) :my-stream)
  
negative.code:   t)
  (deftest socket-connect.2
    (with-caught-conditions (nil nil)
      (let ((sock (usocket:socket-connect +common-lisp-net+ 80)))
        (unwind-protect
            (typep sock 'usocket:usocket)
          (usocket:socket-close sock))))
    t)
  (deftest socket-connect.3
    (with-caught-conditions (nil nil)
      (let ((sock (usocket:socket-connect (usocket::host-byte-order +common-lisp-net+) 80)))
        (unwind-protect
            (typep sock 'usocket:usocket)
          (usocket:socket-close sock))))
  