[slime-cvs] CVS update: slime/swank-allegro.lisp

[Luke Gorrie]

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

Modified Files:
	swank-allegro.lisp 
Log Message:
(compute-backtrace): Only include frames satisfying
`debugger:frame-visible-p'. I did this as a lame workaround for a
problem where `output-frame' was segfaulting on certain frames, and
those frames happened not to be visible-p. I don't know if it really
fixes anything.

Date: Mon Jun 28 05:42:50 2004
Author: lgorrie

Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.40 slime/swank-allegro.lisp:1.41
--- slime/swank-allegro.lisp:1.40	Sun Jun 27 08:00:23 2004
+++ slime/swank-allegro.lisp	Mon Jun 28 05:42:50 2004
@@ -135,7 +135,7 @@
     (loop for f = (nth-frame start) then (excl::int-next-older-frame f)
 	  for i from start below end
 	  while f
-	  collect f)))
+	  when (debugger:frame-visible-p f) collect f)))
 
 (defimplementation print-frame (frame stream)
   (debugger:output-frame stream frame :moderate))