anchor.diff:    (write-css-file writer root)
     (build-contents-page writer root (content-things-from-part part)))
   
  -;;; ---------------------------------------------------------------------------
  -
   (defmethod document-part-to-file ((writer basic-page-writer) (part basic-doclisp-part))
     (let ((*current-part* part))
       (ensure-directories-exist *document-file*)
  
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:            output
             :if-exists if-exists args)))
  
  (defmethod css-file-for-writer ((writer basic-page-writer))
    (or
     (css-file writer)
  