(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")
(def-foreign-type string-pointer (* (* :char)))
(def-foreign-type sqlite-row-pointer (* string-pointer))
(def-foreign-type string-pointer (* (* :char)))
(def-foreign-type sqlite-row-pointer (* string-pointer))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Lisp types used in declarations.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Lisp types used in declarations.
(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)