13 lines
359 B
Common Lisp
13 lines
359 B
Common Lisp
(ql:quickload :closure-html)
|
|
(use-package :closure-html)
|
|
(serialize-lhtml
|
|
`(table nil
|
|
(tr nil ,@(mapcar (lambda (x)
|
|
(list 'th nil x))
|
|
'("" "X" "Y" "Z")))
|
|
,@(loop for i from 1 to 4
|
|
collect `(tr nil
|
|
(th nil ,(format nil "~a" i))
|
|
,@(loop repeat 3 collect `(td nil ,(format nil "~a" (random 10000)))))))
|
|
(make-string-sink))
|