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

[Andras Simon]

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

Modified Files:
	swank-abcl.lisp 
Log Message:
Redefine BREAK.
Date: Fri Oct  1 15:17:42 2004
Author: asimon

Index: slime/swank-abcl.lisp
diff -u slime/swank-abcl.lisp:1.19 slime/swank-abcl.lisp:1.20
--- slime/swank-abcl.lisp:1.19	Sun Sep 26 19:07:46 2004
+++ slime/swank-abcl.lisp	Fri Oct  1 15:17:42 2004
@@ -15,6 +15,16 @@
   (require :collect) ;just so that it doesn't spoil the flying letters
   (require :pprint))
 
+(defun sys::break (&optional (format-control "BREAK called") &rest format-arguments)
+  (let ((*saved-backtrace* (sys::backtrace-as-list)))
+    (with-simple-restart (continue "Return from BREAK.")
+      (invoke-debugger
+       (sys::%make-condition 'simple-condition
+                             (list :format-control format-control
+                                   :format-arguments format-arguments))))
+    nil))
+
+
 (defimplementation make-fn-streams (input-fn output-fn)
   (let* ((output (ext:make-slime-output-stream output-fn))
          (input  (ext:make-slime-input-stream input-fn output)))