[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el swank.lisp 
Log Message:
* slime.el (slime-toggle-break-on-signals): New command.
* swank.lisp (toggle-break-on-signals): The corresponding Lisp code.

--- /project/slime/cvsroot/slime/ChangeLog	2010/12/02 16:39:00	1.2166
+++ /project/slime/cvsroot/slime/ChangeLog	2010/12/09 18:51:17	1.2167
@@ -1,3 +1,8 @@
+2010-12-09  Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el (slime-toggle-break-on-signals): New command.
+	* swank.lisp (toggle-break-on-signals): The corresponding Lisp code.
+
 2010-12-02  Martin Simmons  <martin at lispworks.com>
 
 	* swank-lispworks.lisp (frame-actual-args): Reimplement to include
--- /project/slime/cvsroot/slime/slime.el	2010/11/12 19:42:51	1.1350
+++ /project/slime/cvsroot/slime/slime.el	2010/12/09 18:51:17	1.1351
@@ -2668,7 +2668,8 @@
   (with-struct (slime-compilation-result. notes duration successp
                                           loadp faslfile) result
     (setf slime-last-compilation-result result)
-    (slime-show-note-counts notes duration successp)
+    (slime-show-note-counts notes duration (cond ((not loadp) successp)
+                                                 (t (and faslfile successp))))
     (when slime-highlight-compiler-notes
       (slime-highlight-notes notes))
     (run-hook-with-args 'slime-compilation-finished-hook notes)
@@ -6064,6 +6065,12 @@
       ((:ok value) (message "%s" value))
       ((:abort _)))))
 
+(defun slime-toggle-break-on-signals ()
+  "Toggle the value of *break-on-signals*."
+  (interactive)
+  (slime-eval-async `(swank:toggle-break-on-signals)
+    (lambda (msg) (message "%s" msg))))
+
 
 ;;;;;; SLDB recompilation commands
 
--- /project/slime/cvsroot/slime/swank.lisp	2010/10/19 16:57:32	1.733
+++ /project/slime/cvsroot/slime/swank.lisp	2010/12/09 18:51:17	1.734
@@ -2759,6 +2759,10 @@
 (define-stepper-function sldb-next sldb-step-next)
 (define-stepper-function sldb-out  sldb-step-out)
 
+(defslimefun toggle-break-on-signals ()
+  (setq *break-on-signals* (not *break-on-signals*))
+  (format nil "*break-on-signals* = ~a" *break-on-signals*))
+
 
 ;;;; Compilation Commands.