anchor.diff:    (declare (ignore address))
     nil)
   
  +(defgeneric address-type (address))
  +
   (defmethod address-type ((address ipv4addr))
     (declare (ignore address))
     :ipv4)
  
positive.code: 
  (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))))
  
  (defgeneric sockaddr->presentation (addr)
    (:documentation "Returns a textual presentation of ADDR."))
  
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)
  