anchor.diff:               (return
                  (append *navigation*
                          (when prev
  -                         (list (list (make-url prev) (format nil "Previous: ~A" (shorten prev)))))
  +                         (list (list prev   (format nil "Previous: ~A" (shorten prev)))))
                          (when next
  -                         (list (list (make-url next) (format nil "Next: ~A" (shorten next)))))
  +                         (list (list next   (format nil "Next: ~A" (shorten next)))))
                          (when parent
  -                         (list (list (make-url parent) (format nil "Up: ~A" (shorten parent)))))))))
  +                         (list (list parent (format nil "Up: ~A" (shorten parent)))))))))
         :finally (return *navigation*))))
   
   
  
positive.code:                                (header filename)
                                 (h1 () (pcdata "~A" title))
                                 (ul -
                                     (loop :for (url text) :in *navigation*
                                       :do (li -  (a (:href url) (pcdata "~A" text)))))
                                 (footer filename)))))))
      ;; ---
      (dolist (doc packdocs)
  
negative.code: "
    (div (:class "menu")
        (p - (loop
               :for (filename text) :in entries
               :do (pcdata "   ") (a (:href (make-url filename)) (pcdata "~A" text))
               ;; (pcdata "   ")
               ;; (form (:action (make-url filename) :method "GET")
               ;;       (input (:type "submit" :value text)))
               ))))
  
  (defun header (filename)
    (div (:class "header")
        (navigation-menu (remove  filename *navigation*
                                 :test (function string=)
                                 :key (function first))))
    (hr) (br))
  