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

[Helmut Eller]

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

Modified Files:
	swank-lispworks.lisp 
Log Message:
(interesting-frame-p): Don't print catch frames.
Date: Wed Jan 21 18:03:24 2004
Author: heller

Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.18 slime/swank-lispworks.lisp:1.19
--- slime/swank-lispworks.lisp:1.18	Wed Jan 21 17:35:38 2004
+++ slime/swank-lispworks.lisp	Wed Jan 21 18:03:23 2004
@@ -7,7 +7,7 @@
 ;;; This code has been placed in the Public Domain.  All warranties
 ;;; are disclaimed.
 ;;;
-;;;   $Id: swank-lispworks.lisp,v 1.18 2004/01/21 22:35:38 heller Exp $
+;;;   $Id: swank-lispworks.lisp,v 1.19 2004/01/21 23:03:23 heller Exp $
 ;;;
 
 (in-package :swank)
@@ -165,7 +165,8 @@
 
 (defun interesting-frame-p (frame)
   (or (dbg::call-frame-p frame)
-      (dbg::catch-frame-p frame)))
+      ;;(dbg::catch-frame-p frame)
+      ))
 
 (defun nth-frame (index)
   (do ((frame (dbg::debugger-stack-current-frame dbg::*debugger-stack*)