23 Dec
2011
23 Dec
'11
12:18 a.m.
(define-easy-handler (tyler :uri "/tyler") () (multiple-value-bind (records fields) (select [genus] [species] :from "specimens") (loop for rec in records do (loop for label in fields for val in rec do (with-html-output (*standard-output*) (:dt :class label (str label)) (:dd :class label (str val)))))))
use with-html-output-to-string
-jens