anchor.diff:  (in-package doclisp)
   
   (defparameter *tinaa-home-page* "http://common-lisp.net/project/tinaa/")
  -(defparameter *tinaa-version* "0.2")
  +(defparameter *tinaa-version* "0.3")
   (defvar *document-stream* *standard-output*)
   (defvar *document-file* nil)
   (defvar *document-root* nil)
  
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: 
  ;;; ---------------------------------------------------------------------------
  
  ;; from utils
  (defmethod name (object)
    (type-of object))
  