anchor.diff:                 ((stringp x) x)
                  ((consp sexp) (remap-one-tag x #'walker)))))
       (walker sexp)))
  -
   
   (defun remap-one-tag (sexp walker-fn)
     (destructuring-bind (tag . content) sexp
  
positive.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)
  
negative.code:       (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)
      (fix-comments (fix-notes (rewrite-links (remap-tags (add-amazon-image-bugs sexps)) links)))))
  
  (defun remap-tags (sexp)
    (labels ((walker (x)
  