anchor.diff:  (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))."
     (encode digest-name (digest-sequence digest-name sequence)))
   
  +;;; multihash high-level functions
  +
   ;;; %to-octets returns the serialized form of an object
   ;;; this is used to extend multihash-object
  +;;; it is recommended that any methods return a multicodec rather than just
  +;;; raw bytes in some unknown format
   (defgeneric %to-octets (object)
     (:documentation "Returns a representation of the object as (SIMPLE-ARRAY (OCTET 8) *)"))
   
   (defgeneric multihash-object (digest object)
  -  (:documentation "Returns a multihash of OBJECT"))
  +  (:documentation "Returns a multihash of OBJECT."))
   
   (defmethod multihash-object (digest object)
     (multihash-sequence digest (%to-octets object)))
  
positive.code:          (t
            decoded))))))
  
  ;;; multihash high-level functions
  
  (defun multihash-file (digest-name pathname)
    "Return the multihash of the contents of the file named by PATHNAME using
  
negative.code: (deftype multihash ()
    '(satisfies multihash-p))
  
  ;;; DECODE returns a DECODED-MULTIHASH
  (defstruct decoded-multihash
    "A multihash deconstructed into its parts."
    code name length digest)
  