dotemacs

My Emacs configuration
git clone git://git.entf.net/dotemacs
Log | Files | Refs | LICENSE

sly-fancy-inspector.el (632B)

      1 ;; -*- lexical-binding: t; -*-
      2 (require 'sly)
      3 (require 'sly-parse "lib/sly-parse")
      4 
      5 (define-sly-contrib sly-fancy-inspector
      6   "Fancy inspector for CLOS objects."
      7   (:authors "Marco Baringer <mb@bese.it> and others")
      8   (:license "GPL")
      9   (:slynk-dependencies slynk/fancy-inspector))
     10 
     11 (defun sly-inspect-definition ()
     12   "Inspect definition at point"
     13   (interactive)
     14   (sly-inspect (sly-definition-at-point)))
     15 
     16 (defun sly-disassemble-definition ()
     17   "Disassemble definition at point"
     18   (interactive)
     19   (sly-eval-describe `(slynk:disassemble-form
     20                          ,(sly-definition-at-point t))))
     21 
     22 (provide 'sly-fancy-inspector)