anchor.diff:  (defparameter sqlite-version (sqlite-libversion))
   (defparameter sqlite-encoding (sqlite-libencoding))
   
  +(def-type sqlite-db-pointer-type sqlite-db-pointer)
  +(def-type sqlite-vm-pointer-type sqlite-vm-pointer)
  +
   (defun sqlite-open (db-name &optional (mode 0))
     (let ((db (%open db-name mode nil)))
  -    (declare (type sqlite-db-pointer db))
       (if (null-pointer-p db)
   	(signal-sqlite-error SQLITE-ERROR
   			     (format nil "unable to open ~A" db-name))
   	db)))
   
   (defun sqlite-compile (db sql)
  -  (declare (type sqlite-db-pointer db))
     (let ((vm (allocate-foreign-object 'sqlite-vm)))
  -    (with-foreign-object (sql-tail :cstring)
  +    (with-foreign-object (sql-tail '(* :char))
         (let ((result (%compile db sql sql-tail vm nil)))
   	(if (= result SQLITE-OK)
   	    vm
  
positive.code: (declaim (inline sqlite-last-insert-rowid))
  (def-sqlite-function
      "sqlite_last_insert_rowid"
      ((db 'sqlite-db))
    :returning :int)
  
  (declaim (inline %get-table))
  
negative.code:     ("sqlite_get_table" %get-table)
      ((db sqlite-db)
       (sql :cstring)
       (result (* (* :char)))
       (rows-n (* :int))
       (cols-n (* :int))
       (error-message (* errmsg)))
    :returning :int)
  
  (declaim (inline %free-table))
  