<string>HTML Parser/Render for Core-Server</string>

60590 v0|d <string>HTML Parser/Render for Core-Server</string> (let ((element (dom-element? (make-core-stream "<html><body><div id='content'>Loading please wait..</div></body></html>")))) (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)) <html> <body> <div id="content">I'm content!</div></body></html>#<CORE-STANDARD-OUTPUT {1002D98F41}>

3419512601

None

Common Lisp

TRUE