anchor.diff:      (println q)
       (println #?"--> ${(mget q-obj :dataset)}.${(mget q-obj :table)}\n\n\n")
       (insert-job-sync json-body)
  +    (when push-to-repo
  +        (store-query-in-repo :repo push-to-repo
  +                             :path path
  +                             :query q-obj))
  +
       (terpri) (terpri) (terpri)))
   
   (defun backoff-time (init-time)
  
positive.code:   "Insert a job via insert-job-async and wait for completion."
    (wait-job (insert-job-async config) 1))
  
  (defun run-query-sync (qfun)
    "Run a query synchronously.
  
     Args:
         qfun: a query function as defined by defquery.
  "
    (let* ((q-obj (funcall qfun))
           (q (regex-replace-all
  
negative.code:   `(defun ,name ()
       `(:dataset ,,dataset
         :table ,,table
         :query ,,query
         :description ,,description
         :tags ,(mapcar (lambda (tag) (concatenate 'string "#" tag)) ,tags)
         :title ,(or ,title (symbol-name ',name))
         )))
  
  (defun jobs-url ()
    #?"https://www.googleapis.com/bigquery/v2/projects/${*project*}/jobs")
  