[slime-cvs] CVS slime

[CVS User msimmons]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv22160

Modified Files:
	swank-lispworks.lisp ChangeLog 
Log Message:
* swank-lispworks.lisp (call-without-interrupts): Discourage use.
(interesting-frame-p): Never show open frame bogons.


--- /project/slime/cvsroot/slime/swank-lispworks.lisp	2009/09/28 11:33:43	1.133
+++ /project/slime/cvsroot/slime/swank-lispworks.lisp	2009/10/20 16:13:02	1.134
@@ -170,7 +170,7 @@
                                (mp:process-interrupt self handler)))))
 
 (defimplementation call-without-interrupts (fn)
-  (lw:without-interrupts (funcall fn)))
+  (error "Don't use without-interrupts -- consider without-slime-interrupts instead."))
   
 (defimplementation getpid ()
   #+win32 (win32:get-current-process-id)
@@ -327,7 +327,6 @@
         ((dbg::binding-frame-p frame) dbg:*print-binding-frames*)
         ((dbg::handler-frame-p frame) dbg:*print-handler-frames*)
         ((dbg::restart-frame-p frame) dbg:*print-restart-frames*)
-        ((dbg::open-frame-p frame) dbg:*print-open-frames*)
         (t nil)))
 
 (defun nth-next-frame (frame n)
--- /project/slime/cvsroot/slime/ChangeLog	2009/10/19 23:23:45	1.1877
+++ /project/slime/cvsroot/slime/ChangeLog	2009/10/20 16:13:02	1.1878
@@ -1,3 +1,8 @@
+2009-10-20  Martin Simmons  <martin at lispworks.com>
+
+	* swank-lispworks.lisp (call-without-interrupts): Discourage use.
+	(interesting-frame-p): Never show open frame bogons.
+
 2009-10-19  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-sbcl.lisp (thread-description): Remove it and supporting code,