anchor.diff:  
   (deftest socket-open-p.2
       (with-open-socket (s :remote-host *echo-address* :remote-port *echo-port*
  -                    :family :ipv4)
  +                         :family :ipv4)
         (socket-open-p s))
     t)
   
  
positive.code: ;;; the return values from BODY.
  (defmacro with-expected-conditions ((&rest conditions) &body body)
    `(handler-case (progn ,@body)
      ,@(loop for c in conditions collect `(,c () t))
      (:no-error (&rest result) (list* :result result))))
  
  ;;;; Addresses
  
  
negative.code: 
  (deftest simple-tcp-client
      (with-open-socket (s :remote-host *echo-address* :remote-port *echo-port*
                           :family :ipv4)
        (let ((data (make-string 200)))
          (format s "here is some text")
          (finish-output s)
  