anchor.diff:    (declare (type sqlite-db db))
     (with-cstring (sql-native sql)
       (let ((rows (allocate-foreign-object '(* (* :char)))))
  -      (declare (type sqlite-row-pointer rows))
  +      (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 nil)))
  
positive.code: 
  (declaim (inline sqlite-free-table))
  (defun sqlite-free-table (table)
    (declare (type sqlite-row-pointer table))
    (%free-table (deref-pointer table 'sqlite-row-pointer)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
negative.code:   (with-foreign-object (cols-n :int)
      (let ((cols (allocate-foreign-object '(* (* :char))))
  	  (col-names (allocate-foreign-object '(* (* :char)))))
        (declare (type sqlite-row-pointer-type cols col-names))
        (let ((result (%step (deref-pointer vm 'sqlite-vm)
  			   cols-n cols col-names)))
  	(cond
  