anchor.diff:          (keyword `(,mapper ,@(mapcar walker-fn content)))
           (cons `(,mapper ,@(mapcar walker-fn content)))
           (symbol (funcall mapper sexp))))))
  -  
   
   (defun fix-notes (sexp)
     (let ((note-num 0)
  
positive.code:     (:email . mailto-link)
      (:n . (:span :class "name"))))
  
  (defun render (file &key title stylesheet (links t))
    (let ((sexps (parse-file file :parse-links-p links)))
        (with-output-to-file (out (make-pathname :type "html" :defaults file))
          (with-foo-output (out)
            (emit-html
             (rewrite-sexps sexps (or title (guess-title sexps)) stylesheet))))))
  
  (defun render-to-stream (file out &key title stylesheet)
    (let ((sexps (parse-file file :parse-links-p t)))
      (with-foo-output (out)
        (emit-html
         (rewrite-sexps sexps (or title (guess-title sexps)) stylesheet)))))
  
  (defun render-foo (file &key (parse-links-p t) (subdocument-tags '(:note :comment)))
    (multiple-value-bind (sexps links) (extract-link-defs (parse-file file
  
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)
  