anchor.diff:      ((: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?)
  
positive.code: 	  *css-file*
  	  (pathname-for-system-file 'tinaa "tinaa.css")
  	  (error "can't find CSS file")))))
  
  ;;; ---------------------------------------------------------------------------
  
  (defmethod build-documentation :around
             ((writer basic-page-writer) (part doclisp-assembly)
  
negative.code:       (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 
  