anchor.diff:      ("sqlite_get_table" %get-table)
       ((db sqlite-db)
        (sql :cstring)
  -     (result '(* (* :cstring)))
  -     (rows-n '(* :int))
  -     (cols-n '(* :int))
  -     (error-message '(* errmsg)))
  +     (result (* (* :char)))
  +     (rows-n (* :int))
  +     (cols-n (* :int))
  +     (error-message (* errmsg)))
     :returning :int)
   
   (declaim (inline %free-table))
  
positive.code: ;;;
  ;;; Lisp types used in declarations.
  ;;;;
  (def-type sqlite-db-pointer '(* sqlite-db))
  (def-type sqlite-int-pointer '(* :int))
  (def-type sqlite-row 'string-array-pointer)
  (def-type sqlite-row-pointer '(* string-array-pointer))
  (def-type sqlite-vm-pointer '(* sqlite-vm))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;;
  
negative.code: (declaim (inline sqlite-aref))
  (defun sqlite-aref (a n)
    (declare (type sqlite-row-pointer a))
    (deref-array  (deref-pointer a 'sqlite-row-pointer) '(:array :char) n))
  
  (declaim (inline sqlite-free-row))
  (defun sqlite-free-row (row)
  