+(deftest lml.7
+ (with-output-to-string (s)
+ (let ((*html-stream* s)
+ (class "aclass"))
+ (html
+ ((:div :optional (:class class))
+ "bod"))))
+ "<div class=\"aclass\">bod</div>")
+
+(deftest lml.8
+ (with-output-to-string (s)
+ (let ((*html-stream* s)
+ (class nil))
+ (html
+ ((:div :optional (:class class))
+ "bod"))))
+ "<div>bod</div>")
+
+(deftest lml.9
+ (with-output-to-string (s)
+ (let ((*html-stream* s)
+ (do-class t)
+ (class "aclass"))
+ (html
+ ((:div :when (:class do-class class))
+ "bod"))))
+ "<div class=\"aclass\">bod</div>")
+
+(deftest lml.10
+ (with-output-to-string (s)
+ (let ((*html-stream* s)
+ (do-class nil)
+ (class "aclass"))
+ (html
+ ((:div :when (:class do-class class))
+ "bod"))))
+ "<div>bod</div>")
+
+
+(deftest lml.11
+ (with-output-to-string (s)
+ (let ((*html-stream* s)
+ (v 10))
+ (html
+ ((:div :fformat (:onclick "a&b('~A')" v))))))
+ "<div onclick=\"a&b('10')\"></div>")
+
+(deftest lml.12
+ (with-output-to-string (s)
+ (let ((*html-stream* s)
+ (v 10))
+ (html
+ ((:div :format (:onclick "a&b('~A')" v))))))
+ "<div onclick=\"a&b('10')\"></div>")
+
+(deftest lml.13
+ (with-output-to-string (s)
+ (let ((*html-stream* s)
+ (selector t)
+ (v 10))
+ (html
+ ((:div :if (:width selector 1 2))))))
+ "<div width=\"1\"></div>")
+
+(deftest lml.14
+ (with-output-to-string (s)
+ (let ((*html-stream* s)
+ (selector nil)
+ (v 10))
+ (html
+ ((:div :if (:width selector 1 2))))))
+ "<div width=\"2\"></div>")