1.2.0 permalink Arrow_down_16x16
  • (who-calls name)

0 Examples top

Log in to add / edit an example.

See Also top

Log in to add a see also.

Plus_12x12 Minus_12x12 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)))))
Vars in swank.commands.basic/who-calls: defn first let letfn map
Used in 0 other vars

Comments top

No comments for who-calls. Log in to add a comment.