Create a Common Lisp macro for the following transformation. Before code:
(define-all-tags)

What needs to change: Macro call that should be transformed by define-all-tags

Macro definition:
(defmacro define-all-tags ()
  `(progn
     ,@(loop for tag in (hash-table-keys *html5-elements*)
             collect `(define-tag ,tag))))

Macroexpansion:
(progn (define-tag :vkern) (define-tag :view) (define-tag :use) (define-tag :tspan) (define-tag :tref) (define-tag :textpath) (define-tag :text) (define-tag :symbol) (define-tag :switch) (define-tag :stop) (define-tag :set) (define-tag :rect) (define-tag :radialgradient) (define-tag :polyline) (define-tag :polygon) (define-tag :pattern) (define-tag :path) (define-tag :mpath) (define-tag :missing-glyph) (define-tag :metadata) (define-tag :mask) (define-tag :marker) (define-tag :lineargradient) (define-tag :line) (define-tag :image) (define-tag :hkern) (define-tag :glyphref) (define-tag :glyph) (define-tag :g) (define-tag :foreignobject) (define-tag :font-face-uri) (define-tag :font-face-src) (define-tag :font-face-name) (define-tag :font-face-format) (define-tag :font-face) (define-tag :font) (define-tag :filter) (define-tag :feturbulence) (define-tag :fetile) (define-tag :fespotlight) (define-tag :fespecularlighting) (define-tag :fepointlight) (define-tag :feoffset) (define-tag :femorphology) (define-tag :femergenode) (define-tag :femerge) (define-tag :feimage) (define-tag :fegaussianblur) (define-tag :fefuncr) (define-tag :fefuncg) (define-tag :fefuncb) (define-tag :fefunca) (define-tag :feflood) (define-tag :fedropshadow) (define-tag :fedistantlight) (define-tag :fedisplacementmap) (define-tag :fediffuselighting) (define-tag :feconvolvematrix) (define-tag :fecomposite) (define-tag :fecomponenttransfer) (define-tag :fecolormatrix) (define-tag :feblend) (define-tag :ellipse) (define-tag :desc) (define-tag :defs) (define-tag :cursor) (define-tag :clippath) (define-tag :circle) (define-tag :animatetransform) (define-tag :animatemotion) (define-tag :animate) (define-tag :wbr) (define-tag :video) (define-tag :var) (define-tag :ul) (define-tag :u) (define-tag :track) (define-tag :tr) (define-tag :title) (define-tag :time) (define-tag :thead) (define-tag :th) (define-tag :tfoot) (define-tag :textarea) (define-tag :template) (define-tag :td) (define-tag :tbody) (define-tag :table) (define-tag :sup) (define-tag :summary) (define-tag :svg) (define-tag :sub) (define-tag :style) (define-tag :strong) (define-tag :span) (define-tag :source) (define-tag :small) (define-tag :select) (define-tag :section) (define-tag :script) (define-tag :samp) (define-tag :s) (define-tag :ruby) (define-tag :rt) (define-tag :rp) (define-tag :q) (define-tag :progress) (define-tag :pre) (define-tag :picture) (define-tag :param) (define-tag :p) (define-tag :output) (define-tag :option) (define-tag :optgroup) (define-tag :ol) (define-tag :object) (define-tag :noscript) (define-tag :nav) (define-tag :meter) (define-tag :meta) (define-tag :menu) (define-tag :math) (define-tag :mark) (define-tag :map) (define-tag :main) (define-tag :link) (define-tag :li) (define-tag :legend) (define-tag :label) (define-tag :keygen) (define-tag :kbd) (define-tag :ins) (define-tag :input) (define-tag :img) (define-tag :iframe) (define-tag :i) (define-tag :html) (define-tag :hr) (define-tag :hgroup) (define-tag :header) (define-tag :h6) (define-tag :h5) (define-tag :h4) (define-tag :h3) (define-tag :h2) (define-tag :h1) (define-tag :head) (define-tag :form) (define-tag :footer) (define-tag :figure) (define-tag :figcaption) (define-tag :fieldset) (define-tag :embed) (define-tag :em) (define-tag :dt) (define-tag :dl) (define-tag :div) (define-tag :dialog) (define-tag :dfn) (define-tag :details) (define-tag :del) (define-tag :dd) (define-tag :datalist) (define-tag :data) (define-tag :command) (define-tag :colgroup) (define-tag :col) (define-tag :code) (define-tag :cite) (define-tag :caption) (define-tag :canvas) (define-tag :button) (define-tag :br) (define-tag :body) (define-tag :blockquote) (define-tag :bdo) (define-tag :bdi) (define-tag :base) (define-tag :b) (define-tag :audio) (define-tag :aside) (define-tag :article) (define-tag :area) (define-tag :address) (define-tag :abbr) (define-tag :a))