anchor.diff:  (defun footer (filename)
     (br) (hr)
     (div (:class "footer")
  -   (navigation-menu (remove (make-url filename) *navigation*
  -                            :test (function string=)
  -                            :key (function first)))
  +      (navigation-menu (remove filename *navigation*
  +                               :test (function string=)
  +                               :key (function first)))
       (p - (pcdata "Copyright Pascal J. Bourguignon 2012 - 2012"))))
   
   
  
positive.code: "
    (div (:class "menu")
        (p - (loop
               :for (url text) :in entries
               :do (pcdata "   ") (a (:href url) (pcdata "~A" text))
               ;; (pcdata "   ")
               ;; (form (:action url :method "GET")
               ;;       (input (:type "submit" :value text)))
               ))))
  
  (defun header (filename)
    (div (:class "header")
        (navigation-menu (remove (make-url filename) *navigation*
                                 :test (function string=)
                                 :key (function first))))
    (hr) (br))
  
negative.code:                                (header filename)
                                 (h1 () (pcdata "~A" title))
                                 (ul -
                                     (loop
                                       :for (fn text) :in *navigation*
                                       :unless (equalp fn filename)
                                       :do (li -  (a (:href (make-url fn)) (pcdata "~A" text)))))
                                 (footer filename)))))))
      ;; ---
      (dolist (doc packdocs)
  