[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog swank-lispworks.lisp 
Log Message:
* swank-lispworks.lisp (disassemble-frame): Implemented.

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/09 10:49:48	1.1420
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/09 19:56:52	1.1421
@@ -16,6 +16,10 @@
 	(slime-xref-quit): Can't use slime-popup-buffer directly. Instead
 	implement its own quit behaviour using the above functions.
 
+2008-08-09  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-lispworks.lisp (disassemble-frame): Implemented.
+
 2008-08-08  Helmut Eller  <heller at common-lisp.net>
 
 	Use wait-for-event instead of catch/throw where needed.
--- /project/slime/cvsroot/slime/swank-lispworks.lisp	2008/08/08 13:43:33	1.108
+++ /project/slime/cvsroot/slime/swank-lispworks.lisp	2008/08/09 19:56:52	1.109
@@ -220,10 +220,10 @@
 (defmethod env-internals:environment-display-debugger ((env slime-env))
   *debug-io*)
 
-(defimplementation call-with-debugger-hook (hook fun)
-  (let ((*debugger-hook* hook))
-    (env:with-environment ((slime-env hook '()))
-      (funcall fun))))
+;;(defimplementation call-with-debugger-hook (hook fun)
+;;  (let ((*debugger-hook* hook))
+;;    (env:with-environment ((slime-env hook '()))
+;;      (funcall fun))))
 
 (defimplementation install-debugger-globally (function)
   (setq *debugger-hook* function)
@@ -346,6 +346,12 @@
   (let ((frame (nth-frame frame-number)))
     (dbg::restart-frame frame :same-args t)))
 
+(defimplementation disassemble-frame (frame-number)
+  (let* ((frame (nth-frame frame-number)))
+    (when (dbg::call-frame-p frame)
+      (let ((function (dbg::get-call-frame-function frame)))
+        (disassemble function)))))
+
 ;;; Definition finding
 
 (defun frame-location (dspec callee-name)