anchor.diff:    (inferior-shell:run
      #?"${*gcloud-path*}/gcloud auth activate-refresh-token ${acct} ${(refresh-token)}"))
   
  +(defun bq-ls-tables (dataset)
  +  (inferior-shell:run
  +   #?"${*gcloud-path*}/bq ls -n 1000 ${dataset}" :output :string))
  +
   (defun table-exists-p (dataset table)
     "Does the specified table exist in the specified dataset?"
     ;; TODO: use the API rather than this silly run a shell command approach.
  -  (and (cl-ppcre:scan
  -        #?/\s+${table}\s*$/
  -        (inferior-shell:run
  -         #?"${*gcloud-path*}/bq ls -n 1000 ${dataset}" :output :string)
  -        :multi-line-mode :start)
  +  (and (scan (create-scanner #?/(^|\s)${table}(\s|$)/
  +                             :multi-line-mode t)
  +                (or *table-cache* (bq-ls-tables dataset)))
          t))
   
   (defmacro defquery (name &key (dataset *output-dataset*) table query)
  
positive.code:    :run-in-order
     :start-load-job
     :table-exists-p
     :bq-error
     :*project*
     :*output-dataset*
     :*account*
     :*gcloud-path*))
  
  (in-package :bq)
  
negative.code:                      (mget q-obj :table))))
      (println "Running query: ")
      (println q)
      (println #?"--> ${(mget q-obj :dataset)}.${(mget q-obj :table)}\n\n\n")
      (insert-job-sync json-body)
      (princ "\n\n\n")))
  
  