anchor.diff:  
   (defmethod print-object ((socket socket-datagram-local-active) stream)
     (print-unreadable-object (socket stream :type nil :identity t)
  -    (format stream "local datagram socket" )
  +    (format stream "local datagram socket")
       (if (socket-connected-p socket)
           (format stream " connected")
           (if (fd-of socket)
  
positive.code: 
  (defmethod print-object ((socket socket-stream-local-passive) stream)
    (print-unreadable-object (socket stream :type nil :identity t)
      (format stream "passive local stream socket" )
      (if (socket-bound-p socket)
          (format stream " ~A ~A"
                  (if (socket-listening-p socket)
  
negative.code: 
  (defmethod print-object ((socket socket-stream-internet-passive) stream)
    (print-unreadable-object (socket stream :type nil :identity t)
      (format stream "passive ~A stream socket" (sock-fam socket))
      (if (socket-bound-p socket)
          (multiple-value-bind (addr port) (local-name socket)
            (format stream " ~A ~A/~A"
  