(let ((element (dom-element?
(make-core-stream "Loading please wait..
"))))
(core-search (list element)
(lambda (element)
(if (and
(typep element 'dom-element)
(equal (cdr (assoc "id" (attributes element) :test #'equal))
"content"))
(setf (children element) (list "I'm content!"))))
#'dom-successor
#'append)
(with-html-output *core-output* element))
I'm content!
#