[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-openmcl.lisp 
Log Message:
* swank-openmcl.lisp (emacs-connected): Deleted. Setting
ccl::*interactive-abort-process* doesn't seem right.

--- /project/slime/cvsroot/slime/ChangeLog	2009/06/15 18:17:47	1.1786
+++ /project/slime/cvsroot/slime/ChangeLog	2009/06/20 10:02:34	1.1787
@@ -1,3 +1,8 @@
+2009-06-20  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-openmcl.lisp (emacs-connected): Deleted. Setting
+	ccl::*interactive-abort-process* doesn't seem right.
+
 2009-06-15  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-openmcl.lisp: Explicitly require CCL version 1.3.
--- /project/slime/cvsroot/slime/swank-openmcl.lisp	2009/06/15 18:17:48	1.177
+++ /project/slime/cvsroot/slime/swank-openmcl.lisp	2009/06/20 10:02:34	1.178
@@ -192,9 +192,6 @@
   (car (rassoc-if (lambda (x) (member coding-system x :test #'equal))
                   *external-format-to-coding-system*)))
 
-(defimplementation emacs-connected ()
-  (setq ccl::*interactive-abort-process* ccl::*current-process*))
-
 ;;; Unix signals
 
 (defimplementation call-without-interrupts (fn)
@@ -413,7 +410,9 @@
 
 (defimplementation install-debugger-globally (function)
   (setq *debugger-hook* function)
-  (setq *break-in-sldb* t))
+  (setq *break-in-sldb* t)
+  ;;(setq ccl::*interactive-abort-process* ccl::*current-process*)
+  )
 
 (defun backtrace-context ()
   nil)
@@ -623,7 +622,7 @@
    (or (ccl:find-source-note-at-pc function pc)
        (ccl:function-source-note function))
    (lambda ()
-     (format nil "No source note at PC: ~A:#x~x" function pc))))
+     (format nil "No source note at PC: ~a[~d]" function pc))))
 
 (defun source-note-to-source-location (note if-nil-thunk)
   (labels ((filename-to-buffer (filename)