(defconstant SQLITE-ROW 100 "sqlite_step() has another row ready")
(defconstant SQLITE-DONE 101 "sqlite_step() has finished executing")
(defconstant SQLITE-ROW 100 "sqlite_step() has another row ready")
(defconstant SQLITE-DONE 101 "sqlite_step() has finished executing")
(with-cstring (sql-native sql)
(let ((vm (allocate-foreign-object 'sqlite-vm)))
(with-foreign-object (sql-tail '(* :char))
(with-cstring (sql-native sql)
(let ((vm (allocate-foreign-object 'sqlite-vm)))
(with-foreign-object (sql-tail '(* :char))
(declare (type sqlite-row-pointer-type rows))
(with-foreign-object (rows-n :int)
(with-foreign-object (cols-n :int)
(declare (type sqlite-row-pointer-type rows))
(with-foreign-object (rows-n :int)
(with-foreign-object (cols-n :int)