From aeeaf53ca8ab74c71bc3af46506b309a906a141b Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Thu, 6 Aug 2009 12:03:38 +0000 Subject: [PATCH] 1.0.30.37: fix SB-INTROSPECT test broken by 1.0.30.35 * Mishandled return value. --- contrib/sb-introspect/test-driver.lisp | 12 ++++++------ version.lisp-expr | 2 +- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/contrib/sb-introspect/test-driver.lisp b/contrib/sb-introspect/test-driver.lisp index 322ca91..e034466 100644 --- a/contrib/sb-introspect/test-driver.lisp +++ b/contrib/sb-introspect/test-driver.lisp @@ -320,12 +320,12 @@ (sb-thread:wait-on-semaphore sem))) :name "child"))) (loop until obj) - (assert (equal (list :stack child) - (multiple-value-list - (sb-introspect:allocation-information obj)))) - (sb-thread:signal-semaphore sem) - (sb-thread:join-thread child) - nil)) + (unwind-protect + (equal (list :stack child) + (multiple-value-list + (sb-introspect:allocation-information obj))) + (sb-thread:signal-semaphore sem) + (sb-thread:join-thread child)))) (deftest allocation-information.thread.3 (thread-tai2) diff --git a/version.lisp-expr b/version.lisp-expr index 379f07c..caf56fd 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.30.36" +"1.0.30.37" -- 1.7.10.4