defmacro もっかいもっかい

こんなのもできた。

(defmacro wiki-to-html (txt)
  `(let ((v (make-wiki-who ,txt)))
     (eval
       `(with-html-output
          (*standard-output*)
          (:html (:head (:title "who-make-who"))
                 (:body
                   (:pre
                     ,v)))))))

ますますわけわからない。

(defmacro wiki-to-html (txt)
       `(with-html-output
          (*standard-output*)
          (:html (:head (:title "who-make-who"))
                 (:body
                   (:pre
                     ,txt)))))

これとどう違う？おなじ？