[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.el swank.lisp 
Log Message:
* slime.el (sdlb-print-condition): New (or old new)
function. It was bound by P in sldb-mode, but for some reason it
was lost.


--- /project/slime/cvsroot/slime/ChangeLog	2011/05/23 11:41:27	1.2192
+++ /project/slime/cvsroot/slime/ChangeLog	2011/05/23 22:51:45	1.2193
@@ -1,3 +1,9 @@
+2011-05-23  Stas Boukarev  <stassats at gmail.com>
+
+	* swank.lisp (sdlb-print-condition): New (or old new)
+	function. It was bound by P in sldb-mode, but for some reason it
+	was lost.
+
 2011-05-23  Helmut Eller  <heller at common-lisp.net>
 
 	* slime.el (slime-apropos-label-properties): Deleted.  Just
--- /project/slime/cvsroot/slime/slime.el	2011/05/23 11:41:27	1.1367
+++ /project/slime/cvsroot/slime/slime.el	2011/05/23 22:51:45	1.1368
@@ -5905,6 +5905,10 @@
   (slime-eval-async '(swank:inspect-current-condition)
                     'slime-open-inspector))
 
+(defun sldb-print-condition ()
+  (interactive)
+  (slime-eval-describe `(swank:sdlb-print-condition)))
+
 
 ;;;;;; SLDB movement
 
--- /project/slime/cvsroot/slime/swank.lisp	2011/04/14 01:21:11	1.742
+++ /project/slime/cvsroot/slime/swank.lisp	2011/05/23 22:51:46	1.743
@@ -2773,6 +2773,9 @@
   (setq *break-on-signals* (not *break-on-signals*))
   (format nil "*break-on-signals* = ~a" *break-on-signals*))
 
+(defslimefun sdlb-print-condition ()
+  (princ-to-string *swank-debugger-condition*))
+
 
 ;;;; Compilation Commands.