From: Mirko V. <mir...@gm...> - 2012-08-15 18:15:07
|
On Wed, Aug 15, 2012 at 2:10 PM, Stas Boukarev <sta...@gm...> wrote: > Stas Boukarev <sta...@gm...> writes: > >> Mirko Vukovic <mir...@gm...> writes: >>> I am attaching output of >>> sh run-tests.sh 2>&1 > tests.out >>> >>> That command did not capture all of the messages (such as stack >>> restart options and backtraces). I don't know how to capture that. >> It contains everything I needed. >> So, the following test fails, as in the test itself fails >> >> (with-test (:name :bug-511072 :skipped-on '(not :sb-thread)) >> (let* ((p (make-package :bug-511072)) >> (sem (sb-thread:make-semaphore)) >> (t2 (sb-thread:make-thread (lambda () >> (handler-bind ((error (lambda (c) >> (sb-thread:signal-semaphore sem) >> (signal c)))) >> (make-package :bug-511072)))))) >> (sb-thread:wait-on-semaphore sem) >> (assert (eq 'cons (read-from-string "CL:CONS"))))) > Ok, I got why it fails and why it doesn't. The handler-bind doesn't > prevent the error from invoking the debugger, but, my SBCL exits faster > than it can complain about it. Adding (sleep 5) at the end of the file > lets me reproduce it. > > Committed a fix, thanks for the report. > > -- > With best regards, Stas. I'm glad that you found the error and the fix. Going back to my test harness run, is my sbcl ok? Mirko |