(let ((canonicalized-result-types
(canonicalize-result-types result-types n-col sqlite-col-names)))
(flet ((extract-row-data (row)
(let ((canonicalized-result-types
(canonicalize-result-types result-types n-col sqlite-col-names)))
(flet ((extract-row-data (row)