anchor.diff:  ;;;;
   (def-type sqlite-db sqlite-db)
   (def-type sqlite-row string-pointer)
  -(def-type sqlite-row-pointer (* string-pointer))
  +(def-type sqlite-row-pointer-type (* string-pointer))
   (def-type sqlite-vm-pointer (* sqlite-vm))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
positive.code: 
  (declaim (inline sqlite-aref))
  (defun sqlite-aref (a n)
    (declare (type sqlite-row-pointer 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 row))
    (free-foreign-object row))
  
negative.code: 
  (declaim (inline sqlite-free-table))
  (defun sqlite-free-table (table)
    (declare (type sqlite-row-pointer-type table))
    (%free-table (deref-pointer table 'sqlite-row-pointer)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  