[Openmcl-devel] traceback help

[Marko Tapio Manninen]

Hi,

every now and then i get the mysterious traceback with emacs and slime  
and i cant always figure out, how to detect the problem. In this case  
anonymous function is called with invalid arguments, but how do i  
know, what is the specific function, where it is and so on? This error  
comes, when using iolib tutorial socket server and while it talk about  
ccl threads, i thought if you could help with it:

Invalid program: Too many arguments in call to #<Anonymous Function  
#x30004108C64F>:
1 arguments provided, at most 0 accepted.
    [Condition of type CCL::SIMPLE-PROGRAM-ERROR]

Backtrace:
   0: (IO.MULTIPLEX::MIN-TIMEOUT 6397.371749698D0 6402.371506881D0 1)
       Locals:
         IO.MULTIPLEX::TIMEOUTS = (6397.371749698D0 6402.371506881D0 1)
   1: (#<STANDARD-METHOD IO.MULTIPLEX:EVENT-DISPATCH  
(IO.MULTIPLEX:EVENT-BASE)> #<event base, 1 FDs monitored, using:  
#<kqueue(2) multiplexer> #x3000415EC40D> ':ONE-SHOT 'NIL ':TIMEOUT 10  
':MAX-TIMEOUT 1)
       Locals:
         IO.MULTIPLEX::ONE-SHOT = NIL
         IO.MULTIPLEX::TIMEOUT = 10
         IO.MULTIPLEX::MAX-TIMEOUT = 1
         IO.MULTIPLEX::GOT-FD-EVENTS-P = NIL
         IO.MULTIPLEX::GOT-FD-TIMEOUTS-P = NIL
         IO.MULTIPLEX::GOT-TIMERS-P = NIL
   2: (CCL::%CALL-NEXT-METHOD '(NIL
        #<STANDARD-METHOD IO.MULTIPLEX:EVENT-DISPATCH  
(IO.MULTIPLEX:EVENT-BASE)>
        . 2638791))
       Locals:
         CCL::ARGS = NIL
         CCL::*INTERRUPT-LEVEL* = 0
         CCL::*INTERRUPT-LEVEL* = -1
         CDR = NIL
         METHOD-FUNCTION = #<METHOD-FUNCTION IO.MULTIPLEX:EVENT- 
DISPATCH (IO.MULTIPLEX:EVENT-BASE)>
       Catch-tags:
         NIL
   3: (CCL::%%STANDARD-COMBINED-METHOD-DCODE '(#<STANDARD-METHOD  
IO.MULTIPLEX:EVENT-DISPATCH :AROUND (IO.MULTIPLEX:EVENT-BASE)>
        #<STANDARD-METHOD IO.MULTIPLEX:EVENT-DISPATCH  
(IO.MULTIPLEX:EVENT-BASE)>) 2638791)
       Locals:
         CCL::CELL-2 = (#<STANDARD-METHOD IO.MULTIPLEX:EVENT-DISPATCH  
(IO.MULTIPLEX:EVENT-BASE)> . 2638791)
         #:G47718 = #<METHOD-FUNCTION IO.MULTIPLEX:EVENT- 
DISPATCH :AROUND (IO.MULTIPLEX:EVENT-BASE)>
   4: ((:INTERNAL ECHO-SERVER::%RUN-SERVER ECHO-SERVER:RUN-SERVER))
       Locals:
         ECHO-SERVER::TIMEOUT = 10
         ECHO-SERVER::PORT = 7000
         ECHO-SERVER::HOST = @0.0.0.0
         CCL::*INTERRUPT-LEVEL* = 0
         CCL::*INTERRUPT-LEVEL* = -1
       Catch-tags:
         NIL
   5: (CCL::RUN-PROCESS-INITIAL-FORM #<PROCESS Anonymous(7) [Active]  
#x3000417C327D> '(#<COMPILED-LEXICAL-CLOSURE (:INTERNAL
                                    CCL::%PROCESS-RUN-FUNCTION)  
#x3000417C310F>))
       Locals:
         CCL::INITIAL-FORM = (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL  
CCL::%PROCESS-RUN-FUNCTION) #x30004163AA0F>)
         CCL::EXITED = NIL
         #:G59697 = (PROCESS-RESET)
         CCL::%HANDLERS% = NIL
         #:ABORT = #<RESTART ABORT #x1632B5D>
         #:ABORT-BREAK = #<RESTART ABORT-BREAK #x1632B0D>
         CCL::%RESTARTS% = NIL
       Catch-tags:
         (:RESTART ABORT-BREAK)
         NIL
   6: ((:INTERNAL CCL::%PROCESS-PRESET-INTERNAL) #<PROCESS  
Anonymous(7) [Active] #x3000417C327D> '(#<COMPILED-LEXICAL-CLOSURE  
(:INTERNAL
                                    CCL::%PROCESS-RUN-FUNCTION)  
#x3000417C310F>))
       Locals:
         CCL::INITIAL-FORM = (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL  
CCL::%PROCESS-RUN-FUNCTION) #x30004163AA0F>)
         *CURRENT-PROCESS* = #<PROCESS Initial(0) [Active]  
#x300040432DAD>
         CCL::SYMS = (CCL::*FREE-XPS* CCL::*FREE-CIRCULARITY-HASH- 
TABLES* CCL::*VINSN-VARPARTS* CCL::*VINSN-LABEL-FREELIST* CCL::*VINSN- 
FREELIST* CCL::*LCELL-FREELIST* ...)
         VALUES = (NIL NIL #<POOL  #x300041640DFD> #<POOL   
#x300041640DCD> #<POOL  #x300041640D9D> #<POOL  #x300041640D6D> ...)
       Catch-tags:
         NIL
   7: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))
       Locals:
         CCL::TCR = 144432
         CCL::THREAD = #<LISP-THREAD Anonymous [tcr @ #x11A180]  
#x30004163ADBD>
         CCL::*CURRENT-LISP-THREAD* = #<LISP-THREAD Initial [tcr @  
#x1007A0] #x3000404020ED>
         CCL::INITIAL-FUNCTION = (#<Compiled-function (:INTERNAL CCL:: 
%PROCESS-PRESET-INTERNAL) (Non-Global)  #x30004043065F> #<PROCESS  
Anonymous(7) [Active] #x30004163AA9D> (#<COMPILED-LEXICAL-CLOSURE  
(:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x30004163AA0F>))