(with-cstring (sql-native sql)
(let ((rows (allocate-foreign-object '(* (* :char)))))
(declare (type sqlite-row-pointer-type rows))
(with-foreign-object (rows-n :int)
(with-foreign-object (cols-n :int)
(with-cstring (sql-native sql)
(let ((rows (allocate-foreign-object '(* (* :char)))))
(declare (type sqlite-row-pointer-type rows))
(with-foreign-object (rows-n :int)
(with-foreign-object (cols-n :int)