anchor.diff:        (display-part writer part :detail))
       (build-indexes writer part)))
   
  -;;; ---------------------------------------------------------------------------
  -
   (defmethod doclisp-header ((part (eql nil)) &key force-contents-link?)
     (declare (ignore force-contents-link?))
     (html ((:div :id "header"))))
      
  -;;; ---------------------------------------------------------------------------
  -
   (defmethod doclisp-header ((part basic-doclisp-part)
                              &key force-contents-link?)
     (html
      ((:div :id "header")
       (add-contents-link part force-contents-link?)
       (build-index-links part *root-part* *current-index*))))
  -
  -;;; ---------------------------------------------------------------------------
   
   (defun add-tinaa-link ()
     (html 
  
positive.code:            output
             :if-exists if-exists args)))
  
  ;;; ---------------------------------------------------------------------------
  
  (defmethod css-file-for-writer ((writer basic-page-writer))
    (or
     (css-file writer)
  
negative.code:     ((:img :src (format nil "~Aimages/logo.jpg" *tinaa-home-page*)
             :width 90
             :height 82)))))
  
  ;;?? probably still a defun
  (defmethod doclisp-footer (part &key force-contents-link?)
  