anchor.diff:  
   (defun sqlite-open (db-name &optional (mode 0))
     (with-cstring (db-name-native db-name) 
  -    (let ((db (%open db-name-native mode 0)))
  +    (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))
  
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: 	  ((= result SQLITE-DONE)
  	   (free-foreign-object cols)
  	   (free-foreign-object col-names)
  	   (values 0 +null-char-char-pointer+ +null-char-char-pointer+))
  	  (t
  	   (free-foreign-object cols)
  	   (free-foreign-object col-names)
  