Source
swank/commands/basic.clj:418
top
(defn who-calls [name]
(letfn [(xref-lisp [sym-var] ; see find-definitions-for-emacs
(when-let [meta (and sym-var (meta sym-var))]
(if-let [path (slime-find-file (:file meta))]
`((~(str (:name meta))
(:location
~path
(:line ~(:line meta))
nil)))
`((~(str (:name meta))
(:error "Source definition not found."))))))]
(let [callers (xref/all-vars-who-call name) ]
(map first (map xref-lisp callers)))))
Comments top
No comments for who-calls. Log in to add a comment.