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: 
  (declaim (inline sqlite-aref))
  (defun sqlite-aref (a n)
    (declare (type sqlite-row-pointer-type a))
    (convert-from-foreign-string (deref-array  (deref-pointer a 'sqlite-row-pointer) '(:array :char) n)))
  
  (declaim (inline sqlite-free-row))
  (defun sqlite-free-row (row)
    (declare (type sqlite-row-pointer-type row))
    (free-foreign-object row))
  