From 6501a925cc45f347d1243ce10d34e8b7202ae917 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Sat, 27 Nov 2010 21:08:53 +0000 Subject: [PATCH] 1.0.44.36: test case for bug #681092 From the bug report. Also remove needless quotes in some test names. --- tests/dynamic-extent.impure.lisp | 10 ++++++++++ tests/threads.impure.lisp | 8 ++++---- version.lisp-expr | 2 +- 3 files changed, 15 insertions(+), 5 deletions(-) diff --git a/tests/dynamic-extent.impure.lisp b/tests/dynamic-extent.impure.lisp index 7f963aa..e8a177a 100644 --- a/tests/dynamic-extent.impure.lisp +++ b/tests/dynamic-extent.impure.lisp @@ -903,3 +903,13 @@ (assert (eql x (car (aref vec 0))))))) (assert-no-consing (test 42)))) +(defun bug-681092 () + (declare (optimize speed)) + (let ((c 0)) + (flet ((bar () c)) + (declare (dynamic-extent #'bar)) + (do () ((list) (bar)) + (setf c 10) + (return (bar)))))) +(with-test (:name :bug-681092) + (assert (= 10 (bug-681092)))) diff --git a/tests/threads.impure.lisp b/tests/threads.impure.lisp index 5f9128f..8914dda 100644 --- a/tests/threads.impure.lisp +++ b/tests/threads.impure.lisp @@ -154,16 +154,16 @@ (sleep 3) (assert (not (thread-alive-p thread)))) -(with-test (:name '(:join-thread :nlx :default)) +(with-test (:name (:join-thread :nlx :default)) (let ((sym (gensym))) (assert (eq sym (join-thread (make-thread (lambda () (sb-ext:quit))) :default sym))))) -(with-test (:name '(:join-thread :nlx :error)) +(with-test (:name (:join-thread :nlx :error)) (raises-error? (join-thread (make-thread (lambda () (sb-ext:quit)))) join-thread-error)) -(with-test (:name '(:join-thread :multiple-values)) +(with-test (:name (:join-thread :multiple-values)) (assert (equal '(1 2 3) (multiple-value-list (join-thread (make-thread (lambda () (values 1 2 3)))))))) @@ -1331,7 +1331,7 @@ (format t "ok~%") (force-output)) -(with-test (:name '(:hash-cache :subtypep)) +(with-test (:name (:hash-cache :subtypep)) (dotimes (i 10) (sb-thread:make-thread #'subtypep-hash-cache-test))) (format t "hash-cache tests done~%") diff --git a/version.lisp-expr b/version.lisp-expr index e3ce30c..c5f86be 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -20,4 +20,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.44.35" +"1.0.44.36" -- 1.7.10.4