deps.edn

{:deps
 {org.clojure/tools.analyzer.jvm {:mvn/version "1.1.0"}
  datascript {:mvn/version "1.0.1"}}}

query_with_analyzer.clj

(ns query-with-analyzer
  (:require
   [clojure.tools.analyzer.jvm :as ana]
   [clojure.tools.analyzer.ast.query :as ast.q]
   [clojure.tools.analyzer.ast :as ast]
   [clojure.tools.analyzer.passes.index-vector-nodes :refer [index-vector-nodes]]
   [datascript.core :as d]))

(defn q
  "From clojure.tools.analyzer.ast.query/q and modified to work with datascript"
  [query asts & inputs]
  (apply d/q
         (ast.q/unfold-expression-clauses query)
         (ast.q/db asts)
         inputs))

(->> (q '{:find [?val ?name]
          :keys [meta-val def-name]
          :where [[?def :op :def]
                  [?def :name ?name]
                  [?def :meta ?meta]
                  [?meta :val ?val]]}
        [(ast/prewalk
          (ana/analyze '(defn ^:some-meta xx [] "misplaced docstring" 1))
          index-vector-nodes)])
     (filter (comp :some-meta :meta-val))
     (mapv :def-name))
;; => [xx]