[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (sldb-setup): Insert "No backtrace" if the backtrace is
empty.

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/27 17:53:16	1.1478
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/27 17:53:22	1.1479
@@ -3,7 +3,12 @@
 	* slime.el (slime-compute-modeline-package): Used `when-let' before its definition.
 	(slime-compute-modeline-string): Display "PKG:" before "CON:".
 
-2008-08-27 Anton Vodonosov <avodonosov at yandex.ru>
+2008-08-27  Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el (sldb-setup): Insert "No backtrace" if the backtrace is
+	empty.
+
+2008-08-27  Anton Vodonosov <avodonosov at yandex.ru>
 
 	* swank-ecl.lisp: Add :load-toplevel and :execute to EVAL-WHENs to
 	fix loading.
--- /project/slime/cvsroot/slime/slime.el	2008/08/25 15:29:48	1.1005
+++ /project/slime/cvsroot/slime/slime.el	2008/08/27 17:53:22	1.1006
@@ -6779,7 +6779,9 @@
       (insert "\n" (in-sldb-face section "Backtrace:") "\n")
       (setq sldb-backtrace-start-marker (point-marker))
       (save-excursion
-        (sldb-insert-frames (sldb-prune-initial-frames frames) t))
+        (if frames 
+            (sldb-insert-frames (sldb-prune-initial-frames frames) t)
+          (insert "[No backtrace]")))
       (run-hooks 'sldb-hook))
     (pop-to-buffer (current-buffer))
     (sldb-recenter-region (point-min) (point))