anchor.diff:      (with-open-file (html (report-file (make-url filename))
                             :direction :output
                             :if-does-not-exist :create
  -                          :if-exists :supersede)
  -      (with-html-output (html)
  +                          :if-exists :supersede
  +                          :external-format :utf-8)
  +      (with-html-output (html :encoding :utf-8)
           (doctype :transitional
                    (html ()
  -                       (head ()
  -                             (title () (pcdata "~A" title))
  -                             (style-sheet))
  +                       (pjb-head title)
                          (body ()
                                (header filename)
                                (h1 () (pcdata "~A" title))
  
positive.code:             (with-open-file (html (report-file (make-url filename))
                                    :direction :output
                                    :if-does-not-exist :create
                                    :if-exists :supersede)
                (with-html-output (html)
                  (doctype :transitional
                           (html ()
                                 (head ()
                                       (title () (pcdata "~A" title))
                                       (style-sheet))
                                 (body ()
                                       (header filename)
                                       (h1 () (pcdata "~A" title))
  
negative.code:                      (i - (pcdata "~(~A~)" kind)))))))
  
  
  (defun pjb-head (title)
    (head ()
          (title () (pcdata "~A" title))
          (link (:rel "shortcut icon" :href "/favicon.ico"))
          (link (:rel "icon"          :href "/favicon.ico" :type "image/vnd.microsoft.icon"))
          (link (:rel "icon"          :href "/favicon.png" :type "image/png"))
          (meta (:http-equiv "Content-Type"   :content "text/html; charset=utf-8"))
          (meta (:name "author"               :content "Pascal J. Bourguignon"))
          (meta (:name "Reply-To"             :content "pjb@informatimago.com"))
          (meta (:name "Keywords"             :content "Informatimago, Common Lisp, Lisp, Library"))        
          (style-sheet)))
  
  
  (defvar *navigation* '())
  
  