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:                      (mget q-obj :table))))
      (println "Running query: ")
      (println q)
      (println #?"--> ${*output-dataset*}.${dest}\n\n\n")
      (insert-job-sync json-body)
      (princ "\n\n\n")))
  
  
negative.code:   (insert-job-sync (load-job-config gs-fn dest-dataset dest-table)))
  
  (defun run-in-order (qlist)
      (mapc #'run-query-sync qlist))
  
  
  