anchor.diff:  
   (defun sqlite-finalize (vm)
     (declare (type sqlite-vm-pointer vm))
  -  (let ((result (%finalize (deref-pointer vm 'sqlite-vm) 0)))
  +  (let ((result (%finalize (deref-pointer vm 'sqlite-vm) +null-char-char-pointer+)))
       (if (= result SQLITE-OK)
   	(progn
   	  (free-foreign-object vm)
  
positive.code: 	  ((= result SQLITE-DONE)
  	   (free-foreign-object cols)
  	   (free-foreign-object col-names)
  	   (values 0 (make-null-pointer 'string-pointer)
  		   (make-null-pointer 'string-pointer)))
  	  (t
  	   (free-foreign-object cols)
  	   (free-foreign-object col-names)
  
negative.code: 
  (defun sqlite-open (db-name &optional (mode 0))
    (with-cstring (db-name-native db-name) 
      (let ((db (%open db-name-native mode +null-char-char-pointer+)))
        (if (null-pointer-p db)
  	  (signal-sqlite-error SQLITE-ERROR
  			       (format nil "unable to open ~A" db-name))
  