anchor.diff:      ("sqlite_compile" %compile)
       ((db sqlite-db)
        (sql :cstring)
  -     (sql-tail '(* :cstring))
  -     (vm '(* sqlite-vm))
  -     (error-message '(* errmsg)))
  +     (sql-tail (* (* :char)))
  +     (vm (* sqlite-vm))
  +     (error-message (* errmsg)))
     :returning :int)
   
   (declaim (inline %step))
   (def-sqlite-function
       ("sqlite_step" %step)
       ((vm sqlite-vm)
  -     (cols-n '(* :int))
  -     (cols '(* (* :cstring)))
  -     (col-names '(* (* :cstring))))
  +     (cols-n (* :int))
  +     (cols (* (* :char)))
  +     (col-names (* (* :char))))
     :returning :int)
   
   (declaim (inline %finalize))
   (def-sqlite-function
       ("sqlite_finalize" %finalize)
       ((vm sqlite-vm)
  -     (error-message '(* errmsg)))
  +     (error-message (* errmsg)))
     :returning :int)
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
positive.code:     ("sqlite_get_table" %get-table)
      ((db sqlite-db)
       (sql :cstring)
       (result '(* (* :cstring)))
       (rows-n '(* :int))
       (cols-n '(* :int))
       (error-message '(* errmsg)))
    :returning :int)
  
  (declaim (inline %free-table))
  
negative.code: (declaim (inline sqlite-last-insert-rowid))
  (def-sqlite-function
      "sqlite_last_insert_rowid"
      ((db sqlite-db))
    :returning :int)
  
  (declaim (inline %get-table))
  