(defparameter *macro-list*
'(a div span h1 h2 h3 h4 h5 h6 i b p li ul ol table tbody td tr body head
html title pre tt u dl dt dd kbd code form))
(defparameter *macro-list*
'(a div span h1 h2 h3 h4 h5 h6 i b p li ul ol table tbody td tr body head
html title pre tt u dl dt dd kbd code form))