(let ((sink (cxml:make-character-stream-sink *standard-output* :indentation 2 :canonical nil)))

(sax:start-document sink)

(xhtml-generator:write-doctype sink)

(xhtml-generator:with-html sink

(:html

(:head

(:title "Titel"))

(:body

((:p "style" "font-weight: bold")

"Inhalt")

(:ul

(:li "Eins")

(:li "Zwei") (:li "Λ")

(:li "Drei")))))

(sax:end-document sink))

<?xml version="1.0" encoding="UTF-8"?>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html>

<head>

<title>

Titel</title>

</head>

<body>

Inhalt</p>

<ul>

<li>

Eins</li>

<li>

Zwei</li>

<li>

&Lambda;</li>

<li>

Drei</li>

</ul>

</body>

</html>

#<EDITOR::RUBBER-STREAM #<EDITOR:BUFFER CAPI interactive-pane 2> 219C7A3F>