Source
swank/commands/inspector.clj:238
top
(defn inspect-object [o]
(dosync
(ref-set *inspectee* o)
(alter *inspector-stack* conj o)
(when-not (filter #(identical? o %) @*inspector-history*)
(alter *inspector-history* conj o))
(ref-set *inspectee-content* (inspector-content (emacs-inspect o)))
(list :title (inspectee-title o)
:id (assign-index o *inspectee-parts*)
:content (content-range @*inspectee-content* 0 500))))
Comments top
No comments for inspect-object. Log in to add a comment.