anchor.diff:  
   (declaim (inline sqlite-free-table))
   (defun sqlite-free-table (table)
  -  (declare (type sqlite-row-pointer table))
  +  (declare (type sqlite-row-pointer-type table))
     (%free-table (deref-pointer table 'sqlite-row-pointer)))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
positive.code:   (with-foreign-object (cols-n :int)
      (let ((cols (allocate-foreign-object '(* (* :char))))
  	  (col-names (allocate-foreign-object '(* (* :char)))))
        (declare (type sqlite-row-pointer cols col-names))
        (let ((result (%step (deref-pointer vm 'sqlite-vm)
  			   cols-n cols col-names)))
  	(cond
  
negative.code: ;;;;
  (def-type sqlite-db sqlite-db)
  (def-type sqlite-row string-pointer)
  (def-type sqlite-row-pointer-type (* string-pointer))
  (def-type sqlite-vm-pointer (* sqlite-vm))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  