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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(sldb-insert-frames): Handle empty backtrace (I got one in CLISP).

Date: Mon Apr 26 14:16:18 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.277 slime/slime.el:1.278
--- slime/slime.el:1.277	Mon Apr 26 09:21:43 2004
+++ slime/slime.el	Mon Apr 26 14:16:18 2004
@@ -4744,19 +4744,20 @@
 (defun sldb-insert-frames (frames maximum-length)
   "Insert FRAMES into buffer.
 MAXIMUM-LENGTH is the total number of frames in the Lisp stack."
-  (when maximum-length
-    (assert (<= (length frames) maximum-length)))
-  (save-excursion
-    (mapc #'sldb-insert-frame frames)
-    (let ((number (sldb-previous-frame-number)))
-      (cond ((and maximum-length (< (length frames) maximum-length)))
-	    (t
-	     (slime-insert-propertized 
-	      `(sldb-default-action 
-		sldb-fetch-more-frames
-		point-entered sldb-fetch-more-frames
-		sldb-previous-frame-number ,number)
-	      (in-sldb-face section " --more--\n")))))))
+  (unless (null frames)
+    (when maximum-length
+      (assert (<= (length frames) maximum-length)))
+    (save-excursion
+      (mapc #'sldb-insert-frame frames)
+      (let ((number (sldb-previous-frame-number)))
+        (cond ((and maximum-length (< (length frames) maximum-length)))
+              (t
+               (slime-insert-propertized 
+                `(sldb-default-action 
+                  sldb-fetch-more-frames
+                  point-entered sldb-fetch-more-frames
+                  sldb-previous-frame-number ,number)
+                (in-sldb-face section " --more--\n"))))))))
 
 (defun sldb-fetch-more-frames (&rest ignore)
   "Fetch more backtrace frames.