PPT Slide
(publish :path "/table"
:content-type "text/html"
:function
#'(lambda (req ent)
(with-http-response (req ent)
(with-http-body (req ent)
(html
(:html
(:body
; <table border=“1”>
((:table :border "1")
(:tr
(:th "number")
(:th "number * 2")
(:th "number * 4"))
(dotimes (i 20)
(html
(:tr
(:td (:princ i))
(:td (:princ (* 2 i)))
(:td (:princ (* 4 i))))))))))))))
Publishing a dynamic page
Previous slide
Next slide
Back to first slide
View graphic version