anchor.diff:  ;;; echo-server.c though --luis
   (deftest simple-udp-client.1
       (with-open-socket (s :remote-host *echo-address* :remote-port *echo-port*
  -                    :type :datagram :family :ipv4)
  +                         :type :datagram :family :ipv4)
         (let ((data (make-array '(200) :element-type '(unsigned-byte 8))))
           (socket-send "here is some text" s)
           (socket-receive data s)
  
positive.code: 
  (deftest sockaddr-return-type
      (with-open-socket (s :remote-host *echo-address* :remote-port *echo-port*
                      :family :ipv4)
        (and (ipv4-address-p (remote-address s))
             (numberp (remote-port s))))
    t)
  
negative.code:         (> (length data) 0)))
    t)
  
  ;; (deftest simple-udp-client.2
  ;;     (with-open-socket (s :type :datagram :family :ipv4)
  ;;       (let ((data (make-array 100 :element-type '(unsigned-byte 8))))
  ;;         (socket-send "here is some more text" s
  ;;                      :remote-address *echo-address*
  ;;                      :remote-port *echo-port*)
  ;;         (socket-receive data s)
  ;;         (> (length data) 0)))
  ;;   t)
  
  (deftest simple-local-sockets
      (let ((file (namestring
  