Source
swank/commands/basic.clj:387
top
(defslimefn find-definitions-for-emacs [name]
(let [sym-name (read-string name)
sym-var (ns-resolve (maybe-ns *current-package*) sym-name)]
(when-let [meta (and sym-var (meta sym-var))]
(if-let [path (slime-find-file (:file meta))]
`((~(str "(defn " (:name meta) ")")
(:location
~path
(:line ~(:line meta))
nil)))
`((~(str (:name meta))
(:error "Source definition not found.")))))))
Comments top
No comments for find-definitions-for-emacs. Log in to add a comment.