These changes break my usual SLIME stress test (shown below). Reverting back to 6df43a1ab6d434ba5f1d7bd39e79779e12524b73 fixes the problem.
Cyrus
CL-USER> (asdf:test-system 'flexi-streams) STYLE-WARNING: Implicitly creating new generic function READ-SEQUENCE*. STYLE-WARNING: Implicitly creating new generic function CHECK-IF-OPEN. STYLE-WARNING: Implicitly creating new generic function TRANSFORM-OCTET. STYLE-WARNING: Implicitly creating new generic function MAKE-IN-MEMORY-INPUT-STREAM. STYLE-WARNING: Implicitly creating new generic function GET-OUTPUT-STREAM-SEQUENCE. STYLE-WARNING: Implicitly creating new generic function OUTPUT-STREAM-SEQUENCE-LENGTH. STYLE-WARNING: Generic function CLOSE clobbers an earlier FTYPE proclamation (FUNCTION (STREAM &KEY (:ABORT T)) (VALUES (MEMBER T) &OPTIONAL)) for the same name with (FUNCTION (T &KEY (:ABORT T)) *). STYLE-WARNING: Implicitly creating new generic function READ-BYTE*. STYLE-WARNING: Implicitly creating new generic function UNREAD-BYTE. STYLE-WARNING: Implicitly creating new generic function PEEK-BYTE. STYLE-WARNING: Implicitly creating new generic function RESET-INPUT-STATE. STYLE-WARNING: Implicitly creating new generic function RESET-OUTPUT-STATE. Test suite: "Reading/writing files" .Help! 11 nested errors. SB-KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded. 0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA (SB-DEBUG::FRAME) :IN BACKTRACE) {1008F0340B}> :START 0 :COUNT 4611686018427387903) 1: (BACKTRACE 4611686018427387903 #<TWO-WAY-STREAM :INPUT-STREAM #<SWANK-BACKEND::SLIME-INPUT-STREAM {1003280B23}> :OUTPUT-STREAM #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>>) 2: ((LAMBDA NIL :IN SB-IMPL::ERROR-ERROR)) 3: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN SB-IMPL::ERROR-ERROR) {1008F02FAB}>) 4: (SB-IMPL::ERROR-ERROR "Help! " 11 " nested errors. " "SB-KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded.") 5: (SB-IMPL::INFINITE-ERROR-PROTECTOR) 6: (ERROR "Recursive lock attempt ~S." #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>>) 7: (SB-THREAD::%TRY-MUTEX #<unavailable argument> #<unavailable argument>) 8: (SB-THREAD:GET-MUTEX #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>> #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}> NIL NIL) 9: ((FLET #:WITHOUT-INTERRUPTS-BODY-89520 :IN SB-THREAD::CALL-WITH-MUTEX)) 10: ((SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT :AROUND (SWANK-BACKEND::SLIME-OUTPUT-STREAM)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT #)> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::CONSTANT-FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1)) :ARG-INFO (1)) :ARG-INFO (1) :VALUE NIL) :ARG-INFO (1)) #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 11: (FORCE-OUTPUT #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 12: (FORCE-OUTPUT #<TWO-WAY-STREAM :INPUT-STREAM #<SWANK-BACKEND::SLIME-INPUT-STREAM {1003280B23}> :OUTPUT-STREAM #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>>) 13: (SWANK::DEBUG-IN-EMACS #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F02B53}>) 14: (SWANK:INVOKE-SLIME-DEBUGGER #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F02B53}>) 15: (SWANK-BACKEND::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK:SWANK-DEBUGGER-HOOK) {1008F02E9B}>) 16: ((FLET SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/Users/sly/.emacs.d/site-lisp/slime/swank-sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK:SWANK-DEBUGGER-HOOK) {1008F02E9B}>) 17: (SWANK:SWANK-DEBUGGER-HOOK #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F02B53}> #<unavailable argument>) 18: (SB-DEBUG::RUN-HOOK *DEBUGGER-HOOK* #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F02B53}>) 19: (INVOKE-DEBUGGER #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F02B53}>) 20: (ERROR "Recursive lock attempt ~S." #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>>) 21: (SB-THREAD::%TRY-MUTEX #<unavailable argument> #<unavailable argument>) 22: (SB-THREAD:GET-MUTEX #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>> #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}> NIL NIL) 23: ((FLET #:WITHOUT-INTERRUPTS-BODY-89520 :IN SB-THREAD::CALL-WITH-MUTEX)) 24: ((SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT :AROUND (SWANK-BACKEND::SLIME-OUTPUT-STREAM)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT #)> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::CONSTANT-FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1)) :ARG-INFO (1)) :ARG-INFO (1) :VALUE NIL) :ARG-INFO (1)) #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 25: (FORCE-OUTPUT #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 26: (FORCE-OUTPUT #<TWO-WAY-STREAM :INPUT-STREAM #<SWANK-BACKEND::SLIME-INPUT-STREAM {1003280B23}> :OUTPUT-STREAM #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>>) 27: (SWANK::DEBUG-IN-EMACS #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F02723}>) 28: (SWANK:INVOKE-SLIME-DEBUGGER #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F02723}>) 29: (SWANK-BACKEND::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK:SWANK-DEBUGGER-HOOK) {1008F02A4B}>) 30: ((FLET SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/Users/sly/.emacs.d/site-lisp/slime/swank-sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK:SWANK-DEBUGGER-HOOK) {1008F02A4B}>) 31: (SWANK:SWANK-DEBUGGER-HOOK #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F02723}> #<unavailable argument>) 32: (SB-DEBUG::RUN-HOOK *DEBUGGER-HOOK* #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F02723}>) 33: (INVOKE-DEBUGGER #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F02723}>) 34: (ERROR "Recursive lock attempt ~S." #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>>) 35: (SB-THREAD::%TRY-MUTEX #<unavailable argument> #<unavailable argument>) 36: (SB-THREAD:GET-MUTEX #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>> #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}> NIL NIL) 37: ((FLET #:WITHOUT-INTERRUPTS-BODY-89520 :IN SB-THREAD::CALL-WITH-MUTEX)) 38: ((SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT :AROUND (SWANK-BACKEND::SLIME-OUTPUT-STREAM)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT #)> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::CONSTANT-FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1)) :ARG-INFO (1)) :ARG-INFO (1) :VALUE NIL) :ARG-INFO (1)) #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 39: (FORCE-OUTPUT #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 40: (FORCE-OUTPUT #<TWO-WAY-STREAM :INPUT-STREAM #<SWANK-BACKEND::SLIME-INPUT-STREAM {1003280B23}> :OUTPUT-STREAM #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>>) 41: (SWANK::DEBUG-IN-EMACS #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F02313}>) 42: (SWANK:INVOKE-SLIME-DEBUGGER #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F02313}>) 43: (SWANK-BACKEND::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK:SWANK-DEBUGGER-HOOK) {1008F0261B}>) 44: ((FLET SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/Users/sly/.emacs.d/site-lisp/slime/swank-sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK:SWANK-DEBUGGER-HOOK) {1008F0261B}>) 45: (SWANK:SWANK-DEBUGGER-HOOK #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F02313}> #<unavailable argument>) 46: (SB-DEBUG::RUN-HOOK *DEBUGGER-HOOK* #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F02313}>) 47: (INVOKE-DEBUGGER #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F02313}>) 48: (ERROR "Recursive lock attempt ~S." #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>>) 49: (SB-THREAD::%TRY-MUTEX #<unavailable argument> #<unavailable argument>) 50: (SB-THREAD:GET-MUTEX #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>> #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}> NIL NIL) 51: ((FLET #:WITHOUT-INTERRUPTS-BODY-89520 :IN SB-THREAD::CALL-WITH-MUTEX)) 52: ((SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT :AROUND (SWANK-BACKEND::SLIME-OUTPUT-STREAM)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT #)> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::CONSTANT-FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1)) :ARG-INFO (1)) :ARG-INFO (1) :VALUE NIL) :ARG-INFO (1)) #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 53: (FORCE-OUTPUT #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 54: (FORCE-OUTPUT #<TWO-WAY-STREAM :INPUT-STREAM #<SWANK-BACKEND::SLIME-INPUT-STREAM {1003280B23}> :OUTPUT-STREAM #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>>) 55: (SWANK::DEBUG-IN-EMACS #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F01F23}>) 56: (SWANK:INVOKE-SLIME-DEBUGGER #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F01F23}>) 57: (SWANK-BACKEND::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK:SWANK-DEBUGGER-HOOK) {1008F0220B}>) 58: ((FLET SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/Users/sly/.emacs.d/site-lisp/slime/swank-sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK:SWANK-DEBUGGER-HOOK) {1008F0220B}>) 59: (SWANK:SWANK-DEBUGGER-HOOK #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F01F23}> #<unavailable argument>) 60: (SB-DEBUG::RUN-HOOK *DEBUGGER-HOOK* #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F01F23}>) 61: (INVOKE-DEBUGGER #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F01F23}>) 62: (ERROR "Recursive lock attempt ~S." #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>>) 63: (SB-THREAD::%TRY-MUTEX #<unavailable argument> #<unavailable argument>) 64: (SB-THREAD:GET-MUTEX #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>> #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}> NIL NIL) 65: ((FLET #:WITHOUT-INTERRUPTS-BODY-89520 :IN SB-THREAD::CALL-WITH-MUTEX)) 66: ((SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT :AROUND (SWANK-BACKEND::SLIME-OUTPUT-STREAM)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT #)> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::CONSTANT-FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1)) :ARG-INFO (1)) :ARG-INFO (1) :VALUE NIL) :ARG-INFO (1)) #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 67: (FORCE-OUTPUT #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 68: (FORCE-OUTPUT #<TWO-WAY-STREAM :INPUT-STREAM #<SWANK-BACKEND::SLIME-INPUT-STREAM {1003280B23}> :OUTPUT-STREAM #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>>) 69: (SWANK::DEBUG-IN-EMACS #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F01B53}>) 70: (SWANK:INVOKE-SLIME-DEBUGGER #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F01B53}>) 71: (SWANK-BACKEND::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK:SWANK-DEBUGGER-HOOK) {1008F01E1B}>) 72: ((FLET SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/Users/sly/.emacs.d/site-lisp/slime/swank-sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK:SWANK-DEBUGGER-HOOK) {1008F01E1B}>) 73: (SWANK:SWANK-DEBUGGER-HOOK #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F01B53}> #<unavailable argument>) 74: (SB-DEBUG::RUN-HOOK *DEBUGGER-HOOK* #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F01B53}>) 75: (INVOKE-DEBUGGER #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F01B53}>) 76: (ERROR "Recursive lock attempt ~S." #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>>) 77: (SB-THREAD::%TRY-MUTEX #<unavailable argument> #<unavailable argument>) 78: (SB-THREAD:GET-MUTEX #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>> #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}> NIL NIL) 79: ((FLET #:WITHOUT-INTERRUPTS-BODY-89520 :IN SB-THREAD::CALL-WITH-MUTEX)) 80: ((SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT :AROUND (SWANK-BACKEND::SLIME-OUTPUT-STREAM)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT #)> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::CONSTANT-FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1)) :ARG-INFO (1)) :ARG-INFO (1) :VALUE NIL) :ARG-INFO (1)) #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 81: (FORCE-OUTPUT #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 82: (FORCE-OUTPUT #<TWO-WAY-STREAM :INPUT-STREAM #<SWANK-BACKEND::SLIME-INPUT-STREAM {1003280B23}> :OUTPUT-STREAM #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>>) 83: (SWANK::DEBUG-IN-EMACS #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F017A3}>) 84: (SWANK:INVOKE-SLIME-DEBUGGER #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F017A3}>) 85: (SWANK-BACKEND::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK:SWANK-DEBUGGER-HOOK) {1008F01A4B}>) 86: ((FLET SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/Users/sly/.emacs.d/site-lisp/slime/swank-sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK:SWANK-DEBUGGER-HOOK) {1008F01A4B}>) 87: (SWANK:SWANK-DEBUGGER-HOOK #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F017A3}> #<unavailable argument>) 88: (SB-DEBUG::RUN-HOOK *DEBUGGER-HOOK* #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F017A3}>) 89: (INVOKE-DEBUGGER #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F017A3}>) 90: (ERROR "Recursive lock attempt ~S." #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>>) 91: (SB-THREAD::%TRY-MUTEX #<unavailable argument> #<unavailable argument>) 92: (SB-THREAD:GET-MUTEX #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>> #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}> NIL NIL) 93: ((FLET #:WITHOUT-INTERRUPTS-BODY-89520 :IN SB-THREAD::CALL-WITH-MUTEX)) 94: ((SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT :AROUND (SWANK-BACKEND::SLIME-OUTPUT-STREAM)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT #)> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::CONSTANT-FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1)) :ARG-INFO (1)) :ARG-INFO (1) :VALUE NIL) :ARG-INFO (1)) #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 95: (FORCE-OUTPUT #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 96: (FORCE-OUTPUT #<TWO-WAY-STREAM :INPUT-STREAM #<SWANK-BACKEND::SLIME-INPUT-STREAM {1003280B23}> :OUTPUT-STREAM #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>>) 97: (SWANK::DEBUG-IN-EMACS #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F01413}>) 98: (SWANK:INVOKE-SLIME-DEBUGGER #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F01413}>) 99: (SWANK-BACKEND::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK:SWANK-DEBUGGER-HOOK) {1008F0169B}>) 100: ((FLET SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/Users/sly/.emacs.d/site-lisp/slime/swank-sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK:SWANK-DEBUGGER-HOOK) {1008F0169B}>) 101: (SWANK:SWANK-DEBUGGER-HOOK #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F01413}> #<unavailable argument>) 102: (SB-DEBUG::RUN-HOOK *DEBUGGER-HOOK* #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F01413}>) 103: (INVOKE-DEBUGGER #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F01413}>) 104: (ERROR "Recursive lock attempt ~S." #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>>) 105: (SB-THREAD::%TRY-MUTEX #<unavailable argument> #<unavailable argument>) 106: (SB-THREAD:GET-MUTEX #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>> #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}> NIL NIL) 107: ((FLET #:WITHOUT-INTERRUPTS-BODY-89520 :IN SB-THREAD::CALL-WITH-MUTEX)) 108: ((SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT :AROUND (SWANK-BACKEND::SLIME-OUTPUT-STREAM)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT #)> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::CONSTANT-FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1)) :ARG-INFO (1)) :ARG-INFO (1) :VALUE NIL) :ARG-INFO (1)) #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 109: (FORCE-OUTPUT #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 110: (FORCE-OUTPUT #<TWO-WAY-STREAM :INPUT-STREAM #<SWANK-BACKEND::SLIME-INPUT-STREAM {1003280B23}> :OUTPUT-STREAM #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>>) 111: (SWANK::DEBUG-IN-EMACS #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F010A3}>) 112: (SWANK:INVOKE-SLIME-DEBUGGER #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F010A3}>) 113: (SWANK-BACKEND::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK:SWANK-DEBUGGER-HOOK) {1008F0130B}>) 114: ((FLET SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/Users/sly/.emacs.d/site-lisp/slime/swank-sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK:SWANK-DEBUGGER-HOOK) {1008F0130B}>) 115: (SWANK:SWANK-DEBUGGER-HOOK #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F010A3}> #<unavailable argument>) 116: (SB-DEBUG::RUN-HOOK *DEBUGGER-HOOK* #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F010A3}>) 117: (INVOKE-DEBUGGER #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F010A3}>) 118: (ERROR "Recursive lock attempt ~S." #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>>) 119: (SB-THREAD::%TRY-MUTEX #<unavailable argument> #<unavailable argument>) 120: (SB-THREAD:GET-MUTEX #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>> #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}> NIL NIL) 121: ((FLET #:WITHOUT-INTERRUPTS-BODY-89520 :IN SB-THREAD::CALL-WITH-MUTEX)) 122: ((SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT :AROUND (SWANK-BACKEND::SLIME-OUTPUT-STREAM)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT #)> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::CONSTANT-FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1)) :ARG-INFO (1)) :ARG-INFO (1) :VALUE NIL) :ARG-INFO (1)) #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 123: (FORCE-OUTPUT #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 124: (FORCE-OUTPUT #<TWO-WAY-STREAM :INPUT-STREAM #<SWANK-BACKEND::SLIME-INPUT-STREAM {1003280B23}> :OUTPUT-STREAM #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>>) 125: (SWANK::DEBUG-IN-EMACS #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F00D53}>) 126: (SWANK:INVOKE-SLIME-DEBUGGER #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F00D53}>) 127: (SWANK-BACKEND::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK:SWANK-DEBUGGER-HOOK) {1008F00F9B}>) 128: ((FLET SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/Users/sly/.emacs.d/site-lisp/slime/swank-sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK:SWANK-DEBUGGER-HOOK) {1008F00F9B}>) 129: (SWANK:SWANK-DEBUGGER-HOOK #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F00D53}> #<unavailable argument>) 130: (SB-DEBUG::RUN-HOOK *DEBUGGER-HOOK* #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F00D53}>) 131: (INVOKE-DEBUGGER #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F00D53}>) 132: (ERROR "Recursive lock attempt ~S." #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>>) 133: (SB-THREAD::%TRY-MUTEX #<unavailable argument> #<unavailable argument>) 134: (SB-THREAD:GET-MUTEX #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>> #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}> NIL NIL) 135: ((FLET #:WITHOUT-INTERRUPTS-BODY-89520 :IN SB-THREAD::CALL-WITH-MUTEX)) 136: ((SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT :AROUND (SWANK-BACKEND::SLIME-OUTPUT-STREAM)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT #)> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::CONSTANT-FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1)) :ARG-INFO (1)) :ARG-INFO (1) :VALUE NIL) :ARG-INFO (1)) #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 137: (FORCE-OUTPUT #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 138: (FORCE-OUTPUT #<TWO-WAY-STREAM :INPUT-STREAM #<SWANK-BACKEND::SLIME-INPUT-STREAM {1003280B23}> :OUTPUT-STREAM #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>>) 139: (SWANK::DEBUG-IN-EMACS #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F00653}>) 140: (SWANK:INVOKE-SLIME-DEBUGGER #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F00653}>) 141: (SWANK-BACKEND::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK:SWANK-DEBUGGER-HOOK) {1008F008AB}>) 142: ((FLET SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/Users/sly/.emacs.d/site-lisp/slime/swank-sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK:SWANK-DEBUGGER-HOOK) {1008F008AB}>) 143: (SWANK:SWANK-DEBUGGER-HOOK #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F00653}> #<unavailable argument>) 144: (SB-DEBUG::RUN-HOOK *DEBUGGER-HOOK* #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F00653}>) 145: (INVOKE-DEBUGGER #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F00653}>) 146: (ERROR "Recursive lock attempt ~S." #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>>) 147: (SB-THREAD::%TRY-MUTEX #<unavailable argument> #<unavailable argument>) 148: (SB-THREAD:GET-MUTEX #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>> #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}> NIL NIL) 149: ((FLET #:WITHOUT-INTERRUPTS-BODY-89520 :IN SB-THREAD::CALL-WITH-MUTEX)) 150: ((SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT :AROUND (SWANK-BACKEND::SLIME-OUTPUT-STREAM)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT #)> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::CONSTANT-FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1)) :ARG-INFO (1)) :ARG-INFO (1) :VALUE NIL) :ARG-INFO (1)) #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 151: (FORCE-OUTPUT #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 152: (FORCE-OUTPUT #<TWO-WAY-STREAM :INPUT-STREAM #<SWANK-BACKEND::SLIME-INPUT-STREAM {1003280B23}> :OUTPUT-STREAM #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>>) 153: (SWANK::DEBUG-IN-EMACS #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008EFF353}>) 154: (SWANK:INVOKE-SLIME-DEBUGGER #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008EFF353}>) 155: (SWANK-BACKEND::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK:SWANK-DEBUGGER-HOOK) {1008EFFACB}>) 156: ((FLET SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/Users/sly/.emacs.d/site-lisp/slime/swank-sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK:SWANK-DEBUGGER-HOOK) {1008EFFACB}>) 157: (SWANK:SWANK-DEBUGGER-HOOK #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008EFF353}> #<unavailable argument>) 158: (SB-DEBUG::RUN-HOOK *DEBUGGER-HOOK* #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008EFF353}>) 159: (INVOKE-DEBUGGER #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008EFF353}>) 160: (ERROR "Recursive lock attempt ~S." #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>>) 161: (SB-THREAD::%TRY-MUTEX #<unavailable argument> #<unavailable argument>) 162: (SB-THREAD:GET-MUTEX #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>> #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}> NIL NIL) 163: ((FLET #:WITHOUT-INTERRUPTS-BODY-89520 :IN SB-THREAD::CALL-WITH-MUTEX)) 164: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK :IN STREAM-FORCE-OUTPUT) {6A6C17B}> #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>> #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}> NIL) 165: ((SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT :AROUND (SWANK-BACKEND::SLIME-OUTPUT-STREAM)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD STREAM-FORCE-OUTPUT #)> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::CONSTANT-FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1)) :ARG-INFO (1)) :ARG-INFO (1) :VALUE NIL) :ARG-INFO (1)) #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 166: (FORCE-OUTPUT #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) 167: (FLEXI-STREAMS-TEST::COMPARE-FILES :VERBOSE NIL) 168: (FLEXI-STREAMS-TEST:RUN-ALL-TESTS :VERBOSE NIL) 169: ((SB-PCL::EMF ASDF:PERFORM) #<unavailable argument> #<unavailable argument> #<ASDF:TEST-OP NIL {10033BB493}> #<ASDF:SYSTEM "flexi-streams">) 170: ((SB-PCL::FAST-METHOD ASDF::PERFORM-WITH-RESTARTS :AROUND (T T)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD ASDF::PERFORM-WITH-RESTARTS #)> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (2)) #<ASDF:TEST-OP NIL {10033BB493}> #<ASDF:SYSTEM "flexi-streams">) 171: ((LAMBDA NIL :IN ASDF::PERFORM-PLAN)) 172: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::%WITH-COMPILATION-UNIT)) 173: ((FLET #:WITHOUT-INTERRUPTS-BODY-89549 :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK)) 174: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::%WITH-COMPILATION-UNIT) {6A6C85B}> #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>>) 175: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 176: ((SB-PCL::FAST-METHOD ASDF::PERFORM-PLAN (LIST)) #<unused argument> #<unused argument> ((#1=#<ASDF:LOAD-OP NIL {1003B45813}> . #<ASDF:CL-SOURCE-FILE #2="trivial-gray-streams" "package">) (#1# . #<ASDF:CL-SOURCE-FILE #2# "mixin">) (#1# . #<ASDF:SYSTEM #2#>) (#3=#<ASDF:LOAD-OP NIL {100396A773}> . #4=#<ASDF:CL-SOURCE-FILE #5="flexi-streams" "packages">) (#3# . #6=#<ASDF:CL-SOURCE-FILE #5# "mapping">) (#3# . #7=#<ASDF:CL-SOURCE-FILE #5# "ascii">) (#3# . #8=#<ASDF:CL-SOURCE-FILE #5# "koi8-r">) (#3# . #9=#<ASDF:CL-SOURCE-FILE #5# "iso-8859">) (#3# . #10=#<ASDF:CL-SOURCE-FILE #5# "code-pages">) (#3# . #11=#<ASDF:CL-SOURCE-FILE #5# "specials">) (#3# . #12=#<ASDF:CL-SOURCE-FILE #5# "util">) (#3# . #13=#<ASDF:CL-SOURCE-FILE #5# "conditions">) (#3# . #14=#<ASDF:CL-SOURCE-FILE #5# "external-format">) (#3# . #15=#<ASDF:CL-SOURCE-FILE #5# "length">) (#3# . #16=#<ASDF:CL-SOURCE-FILE #5# "encode">) (#3# . #17=#<ASDF:CL-SOURCE-FILE #5# "decode">) (#3# . #18=#<ASDF:CL-SOURCE-FILE #5# "in-memory">) (#3# . #19=#<ASDF:CL-SOURCE-FILE #5# "stream">) (#3# . #20=#<ASDF:CL-SOURCE-FILE #5# "output">) (#3# . #21=#<ASDF:CL-SOURCE-FILE #5# "input">) (#3# . #22=#<ASDF:CL-SOURCE-FILE #5# "io">) (#3# . #23=#<ASDF:CL-SOURCE-FILE #5# "strings">) (#3# . #24=#<ASDF:SYSTEM #5#>) (#25=#<ASDF:TEST-OP NIL {10033BB493}> . #4#) (#25# . #6#) (#25# . #7#) (#25# . #8#) (#25# . #9#) (#25# . #10#) (#25# . #11#) (#25# . #12#) (#25# . #13#) (#25# . #14#) (#25# . #15#) (#25# . #16#) (#25# . #17#) (#25# . #18#) (#25# . #19#) (#25# . #20#) (#25# . #21#) (#25# . #22#) (#25# . #23#) (#25# . #24#))) 177: ((LAMBDA NIL :IN ASDF:OPERATE)) 178: (ASDF::CALL-WITH-SYSTEM-DEFINITIONS #<CLOSURE (LAMBDA NIL :IN ASDF:OPERATE) {10033BAA0B}>) 179: ((SB-PCL::FAST-METHOD ASDF:OPERATE (T T)) #<unused argument> #<unused argument> ASDF:TEST-OP FLEXI-STREAMS) 180: ((SB-PCL::EMF ASDF:OPERATE) #<unused argument> #<unused argument> ASDF:TEST-OP FLEXI-STREAMS) 181: (ASDF:TEST-SYSTEM FLEXI-STREAMS) 182: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF:TEST-SYSTEM (QUOTE FLEXI-STREAMS)) #<NULL-LEXENV>) 183: (EVAL (ASDF:TEST-SYSTEM (QUOTE FLEXI-STREAMS))) 184: (SWANK::EVAL-REGION "(asdf:test-system 'flexi-streams) ") 185: ((LAMBDA NIL :IN SWANK::REPL-EVAL)) 186: (SWANK::TRACK-PACKAGE #<CLOSURE (LAMBDA NIL :IN SWANK::REPL-EVAL) {10033BA50B}>) 187: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CLOSURE (LAMBDA NIL :IN SWANK::REPL-EVAL) {10033BA42B}>) 188: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA NIL :IN SWANK::REPL-EVAL) {10033BA3FB}>) 189: (SWANK::REPL-EVAL "(asdf:test-system 'flexi-streams) ") 190: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(asdf:test-system 'flexi-streams) ") #<NULL-LEXENV>) 191: (EVAL (SWANK:LISTENER-EVAL "(asdf:test-system 'flexi-streams) ")) 192: (SWANK:EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(asdf:test-system 'flexi-streams) ") "COMMON-LISP-USER" 4) 193: (SWANK::PROCESS-REQUESTS NIL) 194: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS)) 195: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS)) 196: (SWANK-BACKEND::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {10033B811B}>) 197: ((FLET SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/Users/sly/.emacs.d/site-lisp/slime/swank-sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {10033B811B}>) 198: (SWANK::CALL-WITH-BINDINGS ((*STANDARD-OUTPUT* . #1=#<SWANK-BACKEND::SLIME-OUTPUT-STREAM {1003394623}>) (*STANDARD-INPUT* . #2=#<SWANK-BACKEND::SLIME-INPUT-STREAM {1003280B23}>) (*TRACE-OUTPUT* . #1#) (*ERROR-OUTPUT* . #1#) (*DEBUG-IO* . #3=#<TWO-WAY-STREAM :INPUT-STREAM #2# :OUTPUT-STREAM #1#>) (*QUERY-IO* . #3#) (*TERMINAL-IO* . #3#)) #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {10033B813B}>) 199: (SWANK::HANDLE-REQUESTS #<SWANK::MULTITHREADED-CONNECTION {1009D824D3}> NIL) 200: ((FLET #:WITHOUT-INTERRUPTS-BODY-238909 :IN SB-THREAD:MAKE-THREAD)) 201: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD:MAKE-THREAD)) 202: ((FLET #:WITHOUT-INTERRUPTS-BODY-89520 :IN SB-THREAD::CALL-WITH-MUTEX)) 203: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD:MAKE-THREAD) {6A6DCCB}> #<SB-THREAD:MUTEX "thread result lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}>> #<SB-THREAD:THREAD "repl-thread" RUNNING {10033B0083}> T) 204: (SB-THREAD::INITIAL-THREAD-FUNCTION) 205: ("foreign function: call_into_lisp") 206: ("foreign function: new_thread_trampoline") 207: ("foreign function: _pthread_start") 208: ("foreign function: thread_start") ; Evaluation aborted on #<SIMPLE-ERROR "Recursive lock attempt ~S." {1008F02B53}>. CL-USER>
On May 11, 2012, at 2:44 AM, Helmut Eller wrote:
Index: slime/ChangeLog diff -u slime/ChangeLog:1.2336 slime/ChangeLog:1.2338 --- slime/ChangeLog:1.2336 Sun May 6 23:10:50 2012 +++ slime/ChangeLog Thu May 10 23:52:18 2012 @@ -1,3 +1,14 @@ +2012-05-11 Helmut Eller heller@common-lisp.net
- swank-sbcl.lisp (stream-force-output): Don't use
- with-deadline. Grab the world-lock instead.
- (condition-timed-wait): Use the :timeout argument for real.
+2012-05-11 Helmut Eller heller@common-lisp.net
- swank-backend.lisp (call-with-io-timeout): Not used. Deleted.
- swank-sbcl.lisp (call-with-io-timeout): Deleted.
2012-05-07 Helmut Eller heller@common-lisp.net
Ignore linebreaks for the macroexpand test.
slime-devel site list slime-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/slime-devel