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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-debugging-state): Initialize the sldb-buffer if (/= sldb-level
level).
(slime-who-specializes): New command.
Date: Wed Dec  3 17:30:04 2003
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.126 slime/slime.el:1.127
--- slime/slime.el:1.126	Wed Dec  3 15:46:58 2003
+++ slime/slime.el	Wed Dec  3 17:30:02 2003
@@ -1293,12 +1293,14 @@
 Lisp entered the debugger while handling one of our requests. This
 state interacts with it until it is coaxed into returning."
   ((activate)
-   (setq sldb-level level)
    (let ((sldb-buffer (get-buffer "*sldb*")))
      (when (or (not sldb-buffer)
-               (with-current-buffer sldb-buffer
-                 (/= sldb-level-in-buffer level)))
-       (sldb-setup condition restarts frames))))
+               (/= sldb-level level)
+               (with-current-buffer sldb-buffer 
+                 (/= sldb-level sldb-level-in-buffer)))
+       (setq sldb-level level)
+       (sldb-setup condition restarts frames)))
+   (setq sldb-level level))
   ((:debug-return level)
    (assert (= level sldb-level))
    (sldb-cleanup)
@@ -3101,6 +3103,11 @@
   "Show all known expanders of the macro SYMBOL."
   (interactive (list (slime-read-symbol-name "Who macroexpands: " t)))
   (slime-xref 'macroexpands symbol))
+
+(defun slime-who-specializes (symbol)
+  "Show all known methods specialized on class SYMBOL."
+  (interactive (list (slime-read-symbol-name "Who specializes: " t)))
+  (slime-xref 'specializes symbol))
 
 (defun slime-xref (type symbol)
   "Make an XREF request to Lisp."