lisp で HTML

who とかつかい結局こんなソースをかいてます。

  (:div :class "section" h1-img "テスト")
  (:pre :class "desc"
#>PRE
ドライバを作る手間を省くために omap のドライバ(tvp514x_detect)に無理やりテストを
入れ込みます(普通はこんなことをしないように)。テストは xylon_test() としました。
PRE
        )
  (:pre :class "code" (asp:load-text-file "tech/linux/ARM/mm/txt/xylon_ioremap.txt") )
  (:pre :class "desc"
#>PRE
結果はこの通り。ioremap した結果、"必ず" e8000000 が返ります。
PRE
        )
  (:pre :class "code"
#>PRE
[   30.623229] xylon TEST
[   30.626586] xylon_lc6_map_io pip:e8000000 24bafdbe
[   30.632568] xylon_lc6_map_io vip:e8000000 24bafdbe
[   30.638366] xylon_lc6_map_io pip:e8000000 cafebabe after write
[   30.646362] xylon_lc6_map_io vip:e8000000 cafebabe after write
[   30.653350] xylon_lc6_map_io pip:e8000000 febacabe after write 2
[   30.660888] xylon_lc6_map_io vip:e8000000 febacabe after write 2
[   30.701843] tvp514x 2-005d: chip id mismatch msb:0xfb lsb:0xfb
[   30.709014] tvp514x 2-005d: Unable to detect decoder
PRE
        )

うまく lisp とマクロと who の HTML が溶け込んでいるとみるか、なんだかごった煮とみるか?
できた HTML がこちら
http://www.sinby.com/tech/linux/ARM/exp.html
あやしい。

興味ある人がいれば lisp のソースを公開します、、、、(いないか)