anchor.diff:  
   (defmethod print-object ((address localaddr) stream)
     (print-unreadable-object (address stream :type nil :identity nil)
  -    (with-slots (abstract) address
  -      (format stream "Unix socket address: ~A. Abstract: ~:[no~;yes~]"
  -              (sockaddr->presentation address) abstract))))
  +    (format stream "Unix socket address: ~A. Abstract: ~:[no~;yes~]"
  +            (sockaddr->presentation address) (abstract-p address))))
   
   (defgeneric sockaddr->presentation (addr)
     (:documentation "Returns a textual presentation of ADDR."))
  
positive.code:   (declare (ignore address))
    nil)
  
  (defmethod address-type ((address ipv4addr))
    (declare (ignore address))
    :ipv4)
  
negative.code: (defgeneric ipv6-ipv4-mapped-p (addr)
    (:documentation "Returns T if ADDR is an IPv6 address representing an IPv4 mapped address."))
  (defmethod ipv6-ipv4-mapped-p ((addr ipv6addr))
    (ipv4-on-ipv6-mapped-vector-p (name addr)))
  
  (defmethod inetaddr-multicast-p ((addr ipv6addr))
    (eql (logand (aref (name addr) 0)
  