anchor.diff:        (walker sexp))))
   
   (defun rewrite-sexps (sexps title stylesheet) 
  +  `(:html
  +     (:head
  +      (:title ,title)
  +      (:meta :http-equiv "Content-Type" :content "text/html; charset=UTF-8")
  +      ,@(if stylesheet `((:link :rel "stylesheet" :href ,stylesheet :type "text/css"))))
  +     ,(rewrite-body sexps)))
  +
  +(defun rewrite-body (sexps) 
     (multiple-value-bind (sexps links) (extract-link-defs sexps)
  -    `(:html
  -       (:head
  -        (:title ,title)
  -        (:meta :http-equiv "Content-Type" :content "text/html; charset=UTF-8")
  -        ,@(if stylesheet `((:link :rel "stylesheet" :href ,stylesheet :type "text/css")))
  -        ,(fix-comments (fix-notes (rewrite-links (remap-tags (add-amazon-image-bugs sexps)) links)))))))
  +    (fix-comments (fix-notes (rewrite-links (remap-tags (add-amazon-image-bugs sexps)) links)))))
   
   (defun remap-tags (sexp)
     (labels ((walker (x)
  
positive.code:                ((stringp x) x)
                 ((consp sexp) (remap-one-tag x #'walker)))))
      (walker sexp)))
  
  
  (defun remap-one-tag (sexp walker-fn)
    (destructuring-bind (tag . content) sexp
  
negative.code:         (keyword `(,mapper ,@(mapcar walker-fn content)))
          (cons `(,mapper ,@(mapcar walker-fn content)))
          (symbol (funcall mapper sexp))))))
  
  (defun fix-notes (sexp)
    (let ((note-num 0)
  