chickadee » freetds » column-fold*

As row-fold/row-fold*, except this iterates sideways through the columns instead of lengthways through the columns, calling KONS with all values in all the rows of the current column, from left to right.

The starred version is much less useful here since you often don't know the number of returned columns, but it is provided for consistency.

(use freetds)

(let ((conn (make-connection "localhost" "user" "pass")))
  (column-fold (lambda (col sum) (+ (car col) sum))
               0
               (query conn "SELECT 1, 100 UNION SELECT 2, 200")))
 => 101