[slime-cvs] CVS slime

[alendvai]

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

Modified Files:
	slime.el 
Log Message:
Smarten up the sldb heuristic that drops swank frames


--- /project/slime/cvsroot/slime/slime.el	2006/12/19 10:40:11	1.717
+++ /project/slime/cvsroot/slime/slime.el	2006/12/19 10:49:43	1.718
@@ -8378,10 +8378,13 @@
 (defun sldb-prune-initial-frames (frames)
   "Return the prefix of FRAMES to initially present to the user.
 Regexp heuristics are used to avoid showing SWANK-internal frames."
-  (or (loop for frame in frames
+  (or (loop with winner = -1
+            for frame in frames
+            for idx from 0
             for (number string) = frame
-            until (string-match "^(*\\(SWANK\\|swank\\)\\>" string)
-            collect frame)
+            while (string-match "^\\((\\|LAMBDA \\|lambda \\)*\\(SWANK\\|swank\\)\\>" string)
+              do (setf winner idx)
+            finally (return (subseq frames (1+ winner))))
       frames))
 
 (defun sldb-insert-frame (frame &optional detailedp)