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

22 Dec 2011


      
...
* (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

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

Jens Teich