[slime-cvs] CVS update: slime/slime.el

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv889

Modified Files:
	slime.el 
Log Message:
(sldb-disassemble): New command. Bound to D.
Date: Wed Dec 10 08:13:36 2003
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.134 slime/slime.el:1.135
--- slime/slime.el:1.134	Sun Dec  7 18:56:46 2003
+++ slime/slime.el	Wed Dec 10 08:13:28 2003
@@ -3674,6 +3674,14 @@
   (interactive)
   (let ((frame (sldb-frame-number-at-point)))
     (slime-eval-async `(swank:sldb-step ,frame) nil (lambda ()))))
+
+(defun sldb-disassemble ()
+  "Disassemble the code for the current frame."
+  (interactive)
+  (let ((frame (sldb-frame-number-at-point)))
+    (slime-eval-async `(swank:sldb-disassemble ,frame) nil 
+                      (lambda (result)
+			(slime-show-description result nil)))))
             
 (slime-define-keys sldb-mode-map 
   ("v"    'sldb-show-source)
@@ -3682,6 +3690,7 @@
   ([mouse-2]  'sldb-default-action/mouse)
   ("e"    'sldb-eval-in-frame)
   ("d"    'sldb-pprint-eval-in-frame)
+  ("D"    'sldb-disassemble)
   ("i"    'sldb-inspect-in-frame)
   ("n"    'sldb-down)
   ("p"    'sldb-up)