[cl-who-devel] loop and with-html-output

[Jens Teich]

> * (multiple-value-bind (records fields)
>      (select [genus] [species] :from "specimens" :where [= [collector] "Test"])
>    (loop for rec in records do
>         (loop for label in fields
>            for val in rec do
>              (fresh-line)
>              (with-html-output (*standard-output* nil :indent nil)
>                (:dt label)
>                (:dd val)))))
>

(:dt (str label))
(:dd (str val))

-jens