gistfile1.lisp

(defmacro sexp-file->html (fname) 
  (let ((sexp (with-open-file (f fname) (read f)))) 
    `(cl-who:with-html-output-to-string (*standard-output*) ,sexp)
    )
  )

;; -- foo.sexp --
;; (:p 
;;  (:ul
;;   (:li "foo")
;;   (:li "bar")
;;   )
;;  )
;; ----
;; CL-USER> (sexp-file->html "foo.sexp")
;; -> "<p><ul><li>foo</li><li>bar</li></ul></p>"