[slime-cvs] CVS slime

[mkoeppe]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv26004

Modified Files:
	swank.lisp 
Log Message:
(menu-choices-for-presentation): Offer a "disassemble" menu item for
functions.


--- /project/slime/cvsroot/slime/swank.lisp	2007/03/21 15:56:24	1.462
+++ /project/slime/cvsroot/slime/swank.lisp	2007/03/24 17:42:50	1.463
@@ -5387,4 +5387,10 @@
 			  nil)))
 	     (and (next-method-p) (call-next-method))))))
 
+(defmethod menu-choices-for-presentation ((ob function))
+  (list (list "Disassemble"
+              (lambda (choice object id) 
+                (declare (ignore choice id)) 
+                (disassemble object)))))
+
 ;;; swank.lisp ends here