(setf col-names (loop for i from 0 below n-col
collect (sqlite:sqlite-aref sqlite-col-names i (encoding database)))))
(let ((canonicalized-result-types
(setf col-names (loop for i from 0 below n-col
collect (sqlite:sqlite-aref sqlite-col-names i (encoding database)))))
(let ((canonicalized-result-types
(flet ((extract-row-data (row)
(declare (type sqlite:sqlite-row-pointer-type row))
(loop for i from 0 below n-col
(flet ((extract-row-data (row)
(declare (type sqlite:sqlite-row-pointer-type row))
(loop for i from 0 below n-col