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:       (declare (type sqlite-row-pointer-type rows))
        (with-foreign-object (rows-n :int)
  	(with-foreign-object (cols-n :int)
  	  (let ((result (%get-table db sql-native rows rows-n cols-n 0)))
  	    (if (= result SQLITE-OK)
  		(let ((cn (deref-pointer cols-n :int))
  		      (rn (deref-pointer rows-n :int)))
  
negative.code: 
  (defun sqlite-finalize (vm)
    (declare (type sqlite-vm-pointer vm))
    (let ((result (%finalize (deref-pointer vm 'sqlite-vm) +null-char-char-pointer+)))
      (if (= result SQLITE-OK)
  	(progn
  	  (free-foreign-object vm)
  