Marko Tapio Manninen wrote:
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?
I'm not sure of your level of familiarity with debugging, but usually when I get a backtrace I locate the area of code it's referring to and put break points or TRACE the function calls to see things a bit clearer. The fact that this involves an anonymous function call I'd say to pay close attention to lambda statements, LABELS, FLET's and the like. I would spend some time with the primary method for IO.MULTIPLEX:EVENT-DISPATCH as the backtrace indicates that was the most recent method called before the backtrace.
I've rarely used (*)MCL, so I'm not sure that I can be a big help on that end. Looking at the code I can't see any function calls with extra arguments, so it could be a bug local to your CCL or something else strange. Have you tried another lisp implementation to see if the problem is cross implementation?
elliott
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>))
iolib-devel mailing list iolib-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/iolib-devel