|
From: Nikodemus S. <de...@us...> - 2011-06-14 10:25:41
|
The branch "master" has been updated in SBCL:
via d27eb12b08a7eb445729bc339c9bedf0aeeaa4fa (commit)
from d013d00f48df21109627e5ad255c8acb9afef35b (commit)
- Log -----------------------------------------------------------------
commit d27eb12b08a7eb445729bc339c9bedf0aeeaa4fa
Author: Nikodemus Siivola <nik...@ra...>
Date: Tue Jun 14 13:24:41 2011 +0300
whitespace in tests
---
tests/debug.impure.lisp | 12 ++++++------
1 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/tests/debug.impure.lisp b/tests/debug.impure.lisp
index 6ffa8d3..74aec92 100644
--- a/tests/debug.impure.lisp
+++ b/tests/debug.impure.lisp
@@ -360,8 +360,8 @@
(defvar *compile-nil-non-tc* (compile nil '(lambda (y) (cons (funcall *compile-nil-error* y) nil))))
(with-test (:name (:compile nil))
(assert (verify-backtrace (lambda () (funcall *compile-nil-non-tc* 13))
- '(((lambda (x)) 13)
- ((lambda (y)) 13)))))
+ '(((lambda (x)) 13)
+ ((lambda (y)) 13)))))
(with-test (:name :clos-slot-typecheckfun-named)
(assert
@@ -422,9 +422,9 @@
(with-test (:name (trace :simple))
(let ((out (with-output-to-string (*trace-output*)
- (trace trace-this)
- (assert (eq 'ok (trace-this)))
- (untrace))))
+ (trace trace-this)
+ (assert (eq 'ok (trace-this)))
+ (untrace))))
(assert (search "TRACE-THIS" out))
(assert (search "returned OK" out))))
@@ -534,7 +534,7 @@
(test-inifinite-error-protection))
(with-test (:name (infinite-error-protection :thread)
- :skipped-on '(not :sb-thread))
+ :skipped-on '(not :sb-thread))
(enable-debugger)
(let ((thread (sb-thread:make-thread #'test-inifinite-error-protection)))
(loop while (sb-thread:thread-alive-p thread))))
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL
|