(defpackage :sqlite-environment
   (:use :cl )
   (:export ))
 (in-package :sqlite-environment)
 
 (defparameter *sqlite-env* (list))
 
 (defmacro defun* (name (&rest args) &body body)
   `(progn
      (push '(list ,name ,args ,body)
            *sqlite-env*)
      (defun ,name ,args
        ,@body)))
 
 (defun* do-thing ()
   (asdf))