anchor.diff:    (print-unreadable-object (socket stream :type nil :identity t)
       (format stream "internet stream socket" )
       (if (socket-connected-p socket)
  -        (format stream " connected to ~A/~A"
  -                (sockaddr->presentation (socket-address socket))
  -                (socket-port socket))
  +        (multiple-value-bind (addr port) (remote-name socket)
  +          (format stream " connected to ~A/~A"
  +                  (sockaddr->presentation addr) port))
           (if (slot-boundp socket 'fd)
               (format stream ", unconnected")
               (format stream ", closed")))))
  
positive.code:   (print-unreadable-object (socket stream :type nil :identity t)
      (format stream "local datagram socket" )
      (if (socket-connected-p socket)
          (format stream " connected to ~S"
                  (sockaddr->presentation (socket-address socket)))
          (if (slot-boundp socket 'fd)
              (format stream ", unconnected")
              (format stream ", closed")))))
  
negative.code:   (print-unreadable-object (socket stream :type nil :identity t)
      (format stream "local stream socket" )
      (if (socket-connected-p socket)
          (format stream " connected")
          (if (slot-boundp socket 'fd)
              (format stream ", unconnected")
              (format stream ", closed")))))
  