(unless body
(error "must have a body with :insert-file"))
`(lml-load-path (car ',body))))
(named-function html-nbsp-print-function
(lambda (ent cmd args form subst unknown stream)
(unless body
(error "must have a body with :insert-file"))
`(lml-load-path (car ',body))))
(named-function html-nbsp-print-function
(lambda (ent cmd args form subst unknown stream)