[Openmcl-devel] yielding to a thread

Wed Jun 30 10:50:01 PDT 2004

Gary Byers <gb at clozure.com> writes:

> If you still have that lisp running, could you drop into the kernel
> debugger:

i don't have that particular lisp up anymore, but i was able to
create the problem this way (run from the terminal):

mb at codoxime ~/work/idi/www $ openmcl 
; loading system definition from /Users/mb/lisp/systems/asdf-install.asd into
; #<Package "ASDF263">
; registering #<SYSTEM ASDF-INSTALL #x63978BE> as ASDF-INSTALL
Welcome to OpenMCL Version (Beta: Darwin) 0.14.2-p1!
? (asdf:oos 'asdf:load-op :swank)
; loading system definition from /Users/mb/lisp/systems/swank.asd into
; #<Package "ASDF266">
; registering #<SYSTEM :SWANK #x63B2676> as SWANK
; Warning: These Swank interfaces are unimplemented:
;           (ADD-FD-HANDLER ADD-SIGIO-HANDLER FRAME-VAR-VALUE LIST-CALLEES MACROEXPAND-ALL PROFILE PROFILE-PACKAGE PROFILE-REPORT PROFILE-RESET PROFILED-FUNCTIONS REMOVE-FD-HANDLERS REMOVE-SIGIO-HANDLERS SLDB-STEP UNPROFILE WHO-BINDS WHO-CALLS WHO-MACROEXPANDS WHO-REFERENCES WHO-SETS WHO-SPECIALIZES)
; While executing: SWANK-BACKEND::WARN-UNIMPLEMENTED-INTERFACES
NIL
? (swank:create-swank-server 0)
;; Swank started at port: 63120.
63120
? (swank-backend:spawn (lambda () (error "FOO")))
#<PROCESS Anonymous (Swank)(4) [Active] #x645CC9E>
? 
> Error in process Anonymous (Swank)(4): FOO
> While executing: #<Anonymous Function #x645CEE6>

;;;
;;; #<PROCESS Anonymous (Swank)(4) [Active] #x645CC9E> requires access to Shared Terminal Input
;;;

(:Y 4)
? (:Y 4)
? (:Y)
? :PROC
4 :    Anonymous (Swank)  [semaphore wait] 
2 :    Swank        [Active] 
1 : -> listener     [Active] 
0 :    Initial      [Active] 
? (ccl::dbg)
Lisp Breakpoint
 While executing: #<Function DBG #x06019e36>
? for help
[15951] OpenMCL kernel debugger: B

(#xF0135C20) #x00004D7C : (subprimitive _ret1valn)
(#xF0135C30) #x0210F994 : #<Function CALL-CHECK-REGS #x06117e0e> + 72
(#xF0135C40) #x00004D7C : (subprimitive _ret1valn)
(#xF0135C50) #x0210E554 : #<Function TOPLEVEL-EVAL #x06116246> + 152
(#xF0135C60) #x0210EB10 : #<Function READ-LOOP #x06116846> + 844
(#xF0135C70) #x0210EB48 : #<Function READ-LOOP #x06116846> + 900
(#xF0135C80) #x0210EB74 : #<Function READ-LOOP #x06116846> + 944
(#xF0135C90) #x0210EBA0 : #<Function READ-LOOP #x06116846> + 988
(#xF0135CA0) #x0210F8E0 : #<Function TOPLEVEL-LOOP #x06117bde> + 44
(#xF0135CB0) #x0210F8E8 : #<Function TOPLEVEL-LOOP #x06117bde> + 52
(#xF0135CC0) #x020F8720 : #<Anonymous Function #x060f8b36> + 68
(#xF0135CD0) #x00004D7C : (subprimitive _ret1valn)
(#xF0135CE0) #x021223EC : #<Anonymous Function #x0613f64e> + 592
(#xF0135CF0) #x021221EC : #<Anonymous Function #x0613f64e> + 80
(#xF0135D00) #x020FD044 : #<Function RUN-PROCESS-INITIAL-FORM #x06101c0e> + 400
(#xF0135D10) #x020FD080 : #<Function RUN-PROCESS-INITIAL-FORM #x06101c0e> + 460
(#xF0135D20) #x020FD194 : #<Function RUN-PROCESS-INITIAL-FORM #x06101c0e> + 736
(#xF0135D30) #x00004D7C : (subprimitive _ret1valn)
(#xF0135D40) #x020FD314 : #<Anonymous Function #x06101d3e> + 152
(#xF0135D50) #x020FD2FC : #<Anonymous Function #x06101d3e> + 128
(#xF0135D60) #x020F5450 : #<Anonymous Function #x060f491e> + 172
(#xF0135D70) #x0000881C : (subprimitive toplevel_loop)
(#xF0135D80) #x00008828 : (subprimitive toplevel_loop)
(#xf0135d90) #x000088F4 : _start_lisp + 180
(#xf0135e50) #x00012CAC : _lisp_thread_entry + 152
(#xf0135eb0) #x90020C28 : __pthread_body + 40
(#xf0135f00) #x00000000 : (null) + 0

cstack area #x00081b80

(#xF04CEC60) #x020E587C : #<Function %WAIT-ON-SEMAPHORE-PTR #x060e2a7e> + 120
(#xF04CEC70) #x020FC8B4 : #<Function PROCESS-WAIT #x0610123e> + 216
(#xF04CEC80) #x020FC84C : #<Function PROCESS-WAIT #x0610123e> + 112
(#xF04CEC90) #x020E8628 : #<Function %ACQUIRE-SHARED-RESOURCE #x060e5f0e> + 708
(#xF04CECA0) #x0210DF9C : #<Function BREAK-LOOP-HANDLE-ERROR #x06115ca6> + 320
(#xF04CECB0) #x00004D7C : (subprimitive _ret1valn)
(#xF04CECC0) #x020BC408 : #<Function %%STANDARD-COMBINED-METHOD-DCODE #x0608e88e> + 148
(#xF04CECD0) #x00006FA0 : (subprimitive _popj)
(#xF04CECE0) #x0213A09C : #<Function %ERROR #x06162bee> + 104
(#xF04CECF0) #x0645CED8 : #<Anonymous Function #x0645cee6> + 28
(#xF04CED00) #x020FD044 : #<Function RUN-PROCESS-INITIAL-FORM #x06101c0e> + 400
(#xF04CED10) #x020FD080 : #<Function RUN-PROCESS-INITIAL-FORM #x06101c0e> + 460
(#xF04CED20) #x020FD194 : #<Function RUN-PROCESS-INITIAL-FORM #x06101c0e> + 736
(#xF04CED30) #x00004D7C : (subprimitive _ret1valn)
(#xF04CED40) #x020FD314 : #<Anonymous Function #x06101d3e> + 152
(#xF04CED50) #x020FD2FC : #<Anonymous Function #x06101d3e> + 128
(#xF04CED60) #x020F5450 : #<Anonymous Function #x060f491e> + 172
(#xF04CED70) #x0000881C : (subprimitive toplevel_loop)
(#xF04CED80) #x00008828 : (subprimitive toplevel_loop)
(#xf04ced90) #x000088F4 : _start_lisp + 180
(#xf04cee50) #x00012CAC : _lisp_thread_entry + 152
(#xf04ceeb0) #x90020C28 : __pthread_body + 40
(#xf04cef00) #x00000000 : (null) + 0

cstack area #x00082540

(#xF0268C60) #x020E1B4C : #<Function FD-INPUT-AVAILABLE-P #x060df146> + 344
(#xF0268C70) #x020E2004 : #<Function PROCESS-INPUT-WAIT #x060df676> + 240
(#xF0268C80) #x0213E6A0 : #<Function SOCKET-ACCEPT #x06167586> + 108
(#xF0268C90) #x0213E488 : #<Function ACCEPT-SOCKET-CONNECTION #x06167396> + 164
(#xF0268CA0) #x0213E428 : #<Function ACCEPT-SOCKET-CONNECTION #x06167396> + 68
(#xF0268CB0) #x00004D7C : (subprimitive _ret1valn)
(#xF0268CC0) #x020B36C0 : #<Function %%CHECK-KEYWORDS #x06086606> + 172
(#xF0268CD0) #x00006FA0 : (subprimitive _popj)
(#xF0268CE0) #x0641A3E0 : #<Function SERVE-CONNECTION #x0641a486> + 44
(#xF0268CF0) #x0641A7A8 : #<Anonymous Function #x0641a7c6> + 44
(#xF0268D00) #x020FD044 : #<Function RUN-PROCESS-INITIAL-FORM #x06101c0e> + 400
(#xF0268D10) #x020FD080 : #<Function RUN-PROCESS-INITIAL-FORM #x06101c0e> + 460
(#xF0268D20) #x020FD194 : #<Function RUN-PROCESS-INITIAL-FORM #x06101c0e> + 736
(#xF0268D30) #x00004D7C : (subprimitive _ret1valn)
(#xF0268D40) #x020FD314 : #<Anonymous Function #x06101d3e> + 152
(#xF0268D50) #x020FD2FC : #<Anonymous Function #x06101d3e> + 128
(#xF0268D60) #x020F5450 : #<Anonymous Function #x060f491e> + 172
(#xF0268D70) #x0000881C : (subprimitive toplevel_loop)
(#xF0268D80) #x00008828 : (subprimitive toplevel_loop)
(#xf0268d90) #x000088F4 : _start_lisp + 180
(#xf0268e50) #x00012CAC : _lisp_thread_entry + 152
(#xf0268eb0) #x90020C28 : __pthread_body + 40
(#xf0268f00) #x00000000 : (null) + 0

cstack area #x0007bc90

(#xBFFFF9B0) #x020F6248 : #<Function %NANOSLEEP #x060f5946> + 268
(#xBFFFF9C0) #x020F8588 : #<Anonymous Function #x060f8a5e> + 300
(#xBFFFF9D0) #x020F85AC : #<Anonymous Function #x060f8a5e> + 336
(#xBFFFF9E0) #x020F85B4 : #<Anonymous Function #x060f8a5e> + 344
(#xBFFFF9F0) #x020F85E8 : #<Anonymous Function #x060f8a5e> + 396
(#xBFFFFA00) #x0000881C : (subprimitive toplevel_loop)
(#xBFFFFA10) #x00008828 : (subprimitive toplevel_loop)
(#xbffffa20) #x000088F4 : _start_lisp + 180
[15951] OpenMCL kernel debugger: 

-- 
-Marco
Ring the bells that still can ring.
Forget your perfect offering.
There is a crack in everything.
That's how the light gets in.
     -Leonard Cohen