chickadee » freetds » column-map*

column-map PROC RESULTprocedure
column-map* PROC RESULTprocedure

Column variants of row-map/row-map*.

(use freetds)

(let ((conn (make-connection "localhost" "user" "pass")))
   (column-map* + (query conn "SELECT 1, 100 UNION SELECT 2, 200")))
 => (3 300)