[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el swank.lisp 
Log Message:
* slime.el (slime-run-test): Renamed from slime-run-one-test.
(slime-toggle-test-debug-on-error): New.
([test] break): Longer timeouts.

--- /project/slime/cvsroot/slime/ChangeLog	2011/11/06 17:06:30	1.2236
+++ /project/slime/cvsroot/slime/ChangeLog	2011/11/06 17:06:49	1.2237
@@ -1,5 +1,11 @@
 2011-11-06  Helmut Eller  <heller at common-lisp.net>
 
+	* slime.el (slime-run-test): Renamed from slime-run-one-test.
+	(slime-toggle-test-debug-on-error): New.
+	([test] break): Longer timeouts.
+
+2011-11-06  Helmut Eller  <heller at common-lisp.net>
+
 	Add portable versions for string-to-utf8 and utf8-to-string.
 
 	* swank-backend.lisp (default-string-to-utf8)
@@ -43,8 +49,6 @@
 	(slime-net-encode-length, slime-net-have-input-p): Use new format.
 	(slime-unibyte-string, slime-handle-net-read-error): New.
 	(featurep): Require 'un-define for XEmacs.
-	([test] break): Longer timeouts.
-	(slime-run-test): Renamed from slime-run-one-test.
 
 	* swank-sbcl.lisp (input-ready-p): Use sb-sys:wait-until-fd-usable.
 
--- /project/slime/cvsroot/slime/slime.el	2011/11/06 17:06:09	1.1377
+++ /project/slime/cvsroot/slime/slime.el	2011/11/06 17:06:49	1.1378
@@ -7370,7 +7370,7 @@
         (goto-char (overlay-start o))
         (show-subtree)))))
 
-(defun slime-run-one-test (name)
+(defun slime-run-test (name)
   "Ask for the name of a test and then execute the test."
   (interactive (list (slime-read-test-name)))
   (let ((test (find name slime-tests :key #'slime-test.name)))
@@ -7378,6 +7378,12 @@
     (let ((slime-tests (list test)))
       (slime-run-tests))))
 
+(defun slime-toggle-test-debug-on-error ()
+  (interactive)
+  (setq slime-test-debug-on-error (not slime-test-debug-on-error))
+  (message "slime-test-debug-on-error is now %s"
+           (if slime-test-debug-on-error "enabled" "disabled")))
+
 (defun slime-read-test-name ()
   (let ((alist (mapcar (lambda (test) 
                          (list (symbol-name (slime-test.name test))))
@@ -8272,20 +8278,21 @@
   (slime-eval-async 
    `(cl:eval (cl:read-from-string 
               ,(prin1-to-string `(dotimes (i ,times) 
-                                   ,exp 
-                                   (swank::sleep-for 0.2))))))
+                                   (unless (= i 0)
+                                     (swank::sleep-for 1))
+                                   ,exp)))))
   (dotimes (i times)
     (slime-wait-condition "Debugger visible" 
                           (lambda () 
                             (and (slime-sldb-level= 1)
-                                 (get-buffer-window 
+                                 (get-buffer-window
                                   (sldb-get-default-buffer))))
                           3)
     (with-current-buffer (sldb-get-default-buffer)
       (sldb-continue))
     (slime-wait-condition "sldb closed" 
                           (lambda () (not (sldb-get-default-buffer)))
-                          1))
+                          0.5))
   (slime-sync-to-top-level 1))
 
 (def-slime-test (break2 (:fails-for "cmucl" "allegro" "ccl"))
--- /project/slime/cvsroot/slime/swank.lisp	2011/11/06 17:06:09	1.757
+++ /project/slime/cvsroot/slime/swank.lisp	2011/11/06 17:06:49	1.758
@@ -3927,6 +3927,7 @@
           (spawn #'perform-it :name "indentation-update-thread")
           (perform-it)))))
 
+;; FIXME: too complicated
 (defun update-indentation/delta-for-emacs (cache &optional force)
   "Update the cache and return the changes in a (SYMBOL INDENT PACKAGES) list.
 If FORCE is true then check all symbols, otherwise only check symbols