anchor.diff:  ;;;;
   (declaim (inline make-null-row))
   (defun make-null-row ()
  -  (uffi:make-null-pointer 'string-pointer))
  +  +null-char-char-pointer)
   
   (declaim (inline make-null-vm))
   (defun make-null-vm ()
  
positive.code: 
  (defun sqlite-finalize (vm)
    (declare (type sqlite-vm-pointer vm))
    (let ((result (%finalize (deref-pointer vm 'sqlite-vm) 0)))
      (if (= result SQLITE-OK)
  	(progn
  	  (free-foreign-object vm)
  
negative.code: (defconstant SQLITE-ROW         100  "sqlite_step() has another row ready")
  (defconstant SQLITE-DONE        101  "sqlite_step() has finished executing")
  
  (defvar +null-char-char-pointer+ (make-null-pointer 'string-pointer))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;;
  ;;;; Conditions.
  