[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv19293

Modified Files:
	ChangeLog slime.el test.sh 
Log Message:
* test.sh: Parse the -S option as advertized.

* slime.el (slime-randomize-test-order): Add the * to the
docstring.
([def-slime-test] break2): Also CCL is expected to fail here.

--- /project/slime/cvsroot/slime/ChangeLog	2008/09/20 21:46:16	1.1531
+++ /project/slime/cvsroot/slime/ChangeLog	2008/09/20 21:46:22	1.1532
@@ -1,5 +1,13 @@
 2008-09-20  Helmut Eller  <heller at common-lisp.net>
 
+	* test.sh: Parse the -S option as advertized.
+
+	* slime.el (slime-randomize-test-order): Add the * to the
+	docstring.
+	([def-slime-test] break2): Also CCL is expected to fail here.
+
+2008-09-20  Helmut Eller  <heller at common-lisp.net>
+
 	Fix some of the bugs that I introduced with the last commits.
 
 	* swank-openmcl.lisp (call-with-debugging-environment): Fix typo.
@@ -15,7 +23,7 @@
 	(thread-alive-p): Implemented with ccl::process-exhausted-p.
 
 	(source-locations): Use labels for helper functions.
-	(function-source-location): No implemented on top of
+	(function-source-location): Now implemented on top of
 	source-locations.
 
 2008-09-20  Helmut Eller  <heller at common-lisp.net>
--- /project/slime/cvsroot/slime/slime.el	2008/09/19 11:20:23	1.1034
+++ /project/slime/cvsroot/slime/slime.el	2008/09/20 21:46:23	1.1035
@@ -8500,7 +8500,7 @@
   "The name of Lisp currently executing the tests.")
 
 (defvar slime-randomize-test-order t
-  "If t execute tests in random order.
+  "*If t execute tests in random order.
 If nil, execute them in definition order.")
 
 ;; dynamically bound during a single test
@@ -9462,7 +9462,7 @@
                           0.2))
   (slime-sync-to-top-level 1))
 
-(def-slime-test (break2 ("cmucl" "allegro"))
+(def-slime-test (break2 ("cmucl" "allegro" "ccl"))
     (times exp)
     "Backends should arguably make sure that BREAK does not depend
 on *DEBUGGER-HOOK*."
--- /project/slime/cvsroot/slime/test.sh	2008/09/19 09:48:29	1.19
+++ /project/slime/cvsroot/slime/test.sh	2008/09/20 21:46:23	1.20
@@ -33,7 +33,7 @@
 test_name=nil
 randomize=t
 
-while getopts bsRTn: opt; do
+while getopts bsRTSn: opt; do
     case $opt in
 	b) batch_mode="-batch";;
 	s) use_screen=true;;