Re: [Sbcl-devel] Ang: Re: recursive lock attempt, SBCL 1.0.9, Linux, x86

[Ingvar <in...@he...>]

la...@br... writes:
> It works here (let it ran for two minutes, then breaked):

OK, it now doesn't fail reliably, as it did under 1.0.9, experimenting during 
the day, I have seen it three times using the testcase code (both times, I did 
click in the produced window, so as to provoke some event handling). I've just 
started another run. About a minute until it got the recursive lock.



head$ sbcl --load testcase.lisp
This is SBCL 1.0.10.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.
; loading system definition from /usr/share/common-lisp/systems/clx.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM CLX {A9A52E1}> as CLX
; loading system definition from
; /usr/lib/sbcl/sb-bsd-sockets/sb-bsd-sockets.asd into #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-BSD-SOCKETS {AE16719}> as SB-BSD-SOCKETS
; registering #<SYSTEM SB-BSD-SOCKETS-TESTS {AF909A1}> as SB-BSD-SOCKETS-TESTS
STYLE-WARNING: implicitly creating new generic function COPY-WM-HINTS
STYLE-WARNING: implicitly creating new generic function COPY-WM-SIZE-HINTS
Button 1 pressed at <66,25>, in window NIL
Button 1 pressed at <45,50>, in window NIL
Button 1 pressed at <45,50>, in window NIL
Button 1 pressed at <45,50>, in window NIL
Button 1 pressed at <45,50>, in window NIL
Button 1 pressed at <45,50>, in window NIL
Button 1 pressed at <45,50>, in window NIL
Button 1 pressed at <45,50>, in window NIL
Button 1 pressed at <45,50>, in window NIL
Button 1 pressed at <45,50>, in window NIL
Button 1 pressed at <45,50>, in window NIL
Button 1 pressed at <45,50>, in window NIL
Button 1 pressed at <45,50>, in window NIL
WARNING:
   recursive lock attempt #S(SB-THREAD:MUTEX
                             :NAME "Scheduler lock"
                             :VALUE #<SB-THREAD:THREAD "initial thread" {A82B8E9}>)

Thread: #<THREAD "initial thread" {A82B8E9}>
0: (BACKTRACE 536870911 #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {9123E19}>)
1: (SB-THREAD:GET-MUTEX
    #<unavailable argument>
    #<unavailable argument>
    #<unavailable argument>)
2: ((FLET SB-THREAD::%CALL-WITH-SYSTEM-MUTEX))
3: (SB-UNIX::CALL-ALLOWING-WITH-INTERRUPTS
    #<CLOSURE (FLET SB-UNIX::ALLOW-WITH-INTERRUPTS-THUNK) {B79C4A35}>
    T)
4: ((FLET SB-UNIX::WITHOUT-INTERRUPTS-THUNK) T)
5: ((FLET SB-UNIX::RUN-WITHOUT-INTERRUPTS))
6: (SB-UNIX::CALL-WITHOUT-INTERRUPTS
    #<CLOSURE (FLET SB-UNIX::WITHOUT-INTERRUPTS-THUNK) {B79C4B25}>)
7: (SB-THREAD::CALL-WITH-SYSTEM-MUTEX
    #<CLOSURE (LAMBDA #) {AF505E5}>
    #S(SB-THREAD:MUTEX
       :NAME "Scheduler lock"
       :VALUE #<SB-THREAD:THREAD "initial thread" {A82B8E9}>)
    NIL)