1.2.0 permalink Arrow_down_16x16



  • (who-specializes class)

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:400 top

(defn who-specializes [class]
  (letfn [(xref-lisp [sym] ; see find-definitions-for-emacs
            (if-let [meta (and sym (meta sym))]
              (if-let [path (slime-find-file (:file meta))]
                      `((~(str "(method " (:name meta) ")")
                           (:line ~(:line meta))
                      `((~(str (:name meta))
                          (:error "Source definition not found."))))
              `((~(str "(method " (.getName sym) ")")
                  (:error ~(format "%s - definition not found." sym))))))]
         (let [methods (try (. class getMethods)
                            (catch java.lang.IllegalArgumentException e nil)
                            (catch java.lang.NullPointerException e nil))]
              (map xref-lisp methods))))
Vars in swank.commands.basic/who-specializes: defn let letfn map methods
Used in 0 other vars

Comments top

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