anchor.diff:  
   ;;; ---------------------------------------------------------------------------
   
  -(defgeneric document-part-p (name-holder part)
  -  (:documentation ""))
  -
  -;;; ---------------------------------------------------------------------------
  -
   ;; from utils
   (defmethod name (object)
     (type-of object))
  
positive.code: ;;; ---------------------------------------------------------------------------
  
  (defun add-contents-link (part force-contents-link?)
    (multiple-value-bind (url root-level?) (make-root-pointing-url part "index.html")
      (when (or force-contents-link? (not root-level?))
        (html ((:a :class "header-link" :href url :title "Go to contents") "Contents"))
        (lml-princ "&nbsp;&nbsp;"))))
  
  ;;; ---------------------------------------------------------------------------
  
  
negative.code:   (html
     ((:div :id "header")
      (add-contents-link part force-contents-link?)
      (build-index-links part *root-part* *current-index*))))
  
  ;;; ---------------------------------------------------------------------------
  
  