June 2008 - iolib-devel - mailman3.common-lisp.net

[iolib-devel] SBCL compilation problem
by Marko Tapio Manninen 07 Jun '08

07 Jun '08

I got this error when trying to compile iolib with SBCL .17: ; registering #<SYSTEM BORDEAUX-THREADS {11955E71}> as BORDEAUX-THREADS ; registering #<SYSTEM BORDEAUX-THREADS-TEST {1213D521}> as ; BORDEAUX-THREADS-TEST debugger invoked on a TYPE-ERROR in thread #<THREAD "initial thread" {116DF7A9}>: The value NIL is not of type PACKAGE. Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [TRY-RECOMPILING] Try recompiling grovel 1: [RETRY ] Retry performing #<ASDF:COMPILE-OP NIL {11F9AF29}> on #<CFFI-GROVEL:GROVEL-FILE "grovel" {11E002A9}>. 2: [ACCEPT ] Continue, treating #<ASDF:COMPILE-OP NIL {11F9AF29}> on #<CFFI-GROVEL:GROVEL-FILE "grovel" {11E002A9}> as having been successful. 3: [ABORT ] Exit debugger, returning to top level. ((LABELS CFFI-GROVEL::PROCESS-FORM) (IN-PACKAGE :NET.SOCKETS)) 0]

2 2

[iolib-devel] traceback help
by Marko Tapio Manninen 06 Jun '08

06 Jun '08

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>))

2 2

[iolib-devel] UTF-8 CRLF and UTF-8 CR tests fails
by Marko Tapio Manninen 04 Jun '08

04 Jun '08

When i run asdf:test-op for iolib, i got several tests failed, but they share common things: ;; Test "unicode_demo_utf-8_cr.txt" UTF-8 CR [INPUT] --> UTF-8 CRLF [OUTPUT]. ;; Test "unicode_demo_utf-8_cr.txt" UTF-8 CR [INPUT] --> UTF-8 CR [OUTPUT]. so every test where there is UTF-8 CRLF [OUTPUT] or UTF-8 CR [OUTPUT] fails. Im using openmcl 64bit on macbook. Id also like to see tutorial for making simple socket server and client for sending messages and triggering events with iolib. If someone could direct, id appreciate that. -Marko

2 2

[iolib-devel] series related error on loading iolib (openmcl 64bit)
by Marko Tapio Manninen 04 Jun '08

04 Jun '08

Hi, i got this error, when trying to load iolib: No MAKE-LOAD-FORM method is defined for #<CCL::SIMPLE-PROGRAM-ERROR #x3000413AE9BD> [Condition of type SIMPLE-ERROR] Backtrace: 0: (CCL::NO-MAKE-LOAD-FORM-FOR #<CCL::SIMPLE-PROGRAM-ERROR #x3000413AE9BD>) Locals: CCL::OBJECT = #<CCL::SIMPLE-PROGRAM-ERROR #x3000413AE9BD> 1: (CCL::FASL-SCAN-USER-FORM #<CCL::SIMPLE-PROGRAM-ERROR #x3000413AE9BD>) [No Locals] 2: (CCL::FASL-SCAN-CLFUN #<Anonymous Function #x3000413AE92F>) Locals: CCL::F = #<Anonymous Function #x3000413AE92F> CCL::NCODE-WORDS = 9 3: (CCL::FASL-SCAN-CLFUN #<Anonymous Function #x3000413AE09F>) Locals: CCL::F = #<Anonymous Function #x3000413AE09F> CCL::NCODE-WORDS = 18 4: (CCL::FASL-SCAN '((23 83) (47 "home:lisp;libs;series-2.2.9;s- code.lisp.newest") (4 #<Anonymous Function #x30004121A8FF>) (41 SERIES:*SUPPRESS-SERIES-WARNINGS* NIL "Suppress warnings when the restrictions are violated.") (41 SERIES:*SERIES-EXPRESSION-CACHE* T "Avoids multiple expansions") (41 SERIES:*LAST-SERIES-LOOP* NIL "Loop most recently created by SERIES.") (41 SERIES:*LAST-SERIES-ERROR* NIL "Info about error found most recently by SERIES.") ..)))) Locals: CCL::FORMS = ((23 83) (47 "home:lisp;libs;series-2.2.9;s- code.lisp.newest") (4 #<Anonymous Function #x30004121A8FF>) (41 SERIES:*SUPPRESS-SERIES-WARNINGS* NIL "Suppress warnings when the restrictions are violated.") (41 SERIES:*SERIES-EXPRESSION-CACHE* T "Avoids multiple expansions") (41 SERIES:*LAST-SERIES-LOOP* NIL "Loop most recently created by SERIES.") ...) CCL::*FASDUMP-HASH* = #<Unbound> CCL::*MAKE-LOAD-FORM-HASH* = #<Unbound> CCL::*FASDUMP-READ-PACKAGE* = #<Unbound> CCL::*FASDUMP-GLOBAL-OFFSETS* = #<Unbound> CCL::OP = (4 #<Anonymous Function #x3000413AE09F>) 5: (CCL::FASL-SCAN-FORMS-AND-DUMP-FILE '((23 83) (47 "home:lisp;libs;series-2.2.9;s-code.lisp.newest") (4 #<Anonymous Function #x30004121A8FF>) (41 SERIES:*SUPPRESS-SERIES-WARNINGS* NIL "Suppress warnings when the restrictions are violated.") (41 SERIES:*SERIES-EXPRESSION-CACHE* T "Avoids multiple expansions") (41 SERIES:*LAST-SERIES-LOOP* NIL "Loop most recently created by SERIES.") (41 SERIES:*LAST-SERIES-ERROR* NIL "Info about error found most recently by SERIES.") ..))) "/ Users/mmstud/lisp/libs/series-2.2.9/s-code.dx64fsl" #<LEXICAL- ENVIRONMENT #x30004121AE5D>) 6: (CCL::%COMPILE-FILE "/Users/mmstud/lisp/libs/series-2.2.9/s- code.lisp" "/Users/mmstud/lisp/libs/series-2.2.9/s-code.dx64fsl" 'T 'NIL 'NIL 'NIL 'T 'T 'NIL 'NIL #<BACKEND DARWINX8664 #x30004071783D> ':DEFAULT) 7: (COMPILE-FILE #P"/Users/mmstud/lisp/libs/series-2.2.9/s- code.lisp" ':OUTPUT-FILE #P"/Users/mmstud/lisp/libs/series-2.2.9/s- code.dx64fsl" ':VERBOSE 'T ':PRINT 'NIL ':LOAD 'NIL ':FEATURES 'NIL ':TARGET ':DARWINX8664 ':SAVE-LOCAL-SYMBOLS 'NIL ':SAVE-DOC-STRINGS 'T ':SAVE-DEFINITIONS 'T ':EXTERNAL-FORMAT 'NIL ':FORCE ':DEFAULT) 8: (#<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE)> #<COMPILE- OP NIL #x3000411F9FED> #<CL-SOURCE-FILE "s-code" #x3000411FB94D>) 9: (CCL::%%BEFORE-AND-AFTER-COMBINED-METHOD-DCODE '(NIL #<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE)> . 4265093)) 10: (CCL::%%STANDARD-COMBINED-METHOD-DCODE '((#<STANDARD-METHOD ASDF:PERFORM :BEFORE (ASDF:COMPILE-OP ASDF:SOURCE-FILE)>) (#<STANDARD-METHOD ASDF:PERFORM :AFTER (ASDF:OPERATION ASDF:COMPONENT)>) #<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE)>) 4265093) 11: (ASDF:OPERATE 'ASDF:LOAD-OP ':IOLIB-TESTS) 12: (#<STANDARD-METHOD ASDF:PERFORM (ASDF:TEST-OP (EQL #<SYSTEM "iolib-tests" #x300040F9786D>))> #<TEST-OP NIL #x300040F97E3D> #<SYSTEM "iolib- tests" #x300040F9786D>) 13: (CCL::%%BEFORE-AND-AFTER-COMBINED-METHOD-DCODE '(NIL #<STANDARD-METHOD ASDF:PERFORM (ASDF:TEST-OP (EQL #<SYSTEM "iolib-tests" #x300040F9786D>))> . 4265152)) 14: (CCL::%%STANDARD-COMBINED-METHOD-DCODE '(NIL (#<STANDARD-METHOD ASDF:PERFORM :AFTER (ASDF:OPERATION ASDF:COMPONENT)>) #<STANDARD-METHOD ASDF:PERFORM (ASDF:TEST-OP (EQL #<SYSTEM "iolib-tests" #x300040F9786D>))>) 4265152) 15: (ASDF:OPERATE 'ASDF:TEST-OP ':IOLIB-TESTS) 16: (CCL::%%BEFORE-AND-AFTER-COMBINED-METHOD-DCODE '(NIL #<STANDARD-METHOD ASDF:PERFORM (ASDF:TEST-OP (EQL #<SYSTEM "iolib" #x300040F9488D>))> . 4265212)) 17: (CCL::%%STANDARD-COMBINED-METHOD-DCODE '(NIL (#<STANDARD-METHOD ASDF:PERFORM :AFTER (ASDF:OPERATION ASDF:COMPONENT)>) #<STANDARD-METHOD ASDF:PERFORM (ASDF:TEST-OP (EQL #<SYSTEM "iolib" #x300040F9488D>))>) 4265212) 18: (ASDF:OPERATE 'ASDF:TEST-OP ':IOLIB) 19: (CCL::CALL-CHECK-REGS 'ASDF:OOS 'ASDF:TEST-OP ':IOLIB) 32: (SWANK::CALL-WITH-CONNECTION #<CONNECTION #x300040EDCC8D> #<Compiled-function (:INTERNAL SWANK::HANDLE-REQUEST) (Non-Global) #x300040E6C25F>) 33: (SWANK::HANDLE-REQUEST #<CONNECTION #x300040EDCC8D>) 34: (SWANK::REPL-LOOP #<CONNECTION #x300040EDCC8D>) 35: (SWANK::CALL-WITH-BINDINGS 'NIL #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::SPAWN-REPL-THREAD) #x300040EFCC8F>) 36: (CCL::RUN-PROCESS-INITIAL-FORM #<PROCESS repl-thread(5) [Active] #x300040ECAE5D> '(#<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x300040ECADCF>)) 37: ((:INTERNAL CCL::%PROCESS-PRESET-INTERNAL) #<PROCESS repl- thread(5) [Active] #x300040ECAE5D> '(#<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x300040ECADCF>)) 38: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION)) I used most recent packages and repositories available today, and thought if it is worth of reporting. Im sending this message to both series-users (which seems not very active) and iolib-devel (which seems active).

2 2

[iolib-devel] receiving signed integers
by elliott 03 Jun '08

03 Jun '08

Hi, I've reached a point in writing some code where I must read a singed 32bit integer from a socket. I've been using NET.SOCKETS:RECEIVE-FROM to read '(unsigned-byte 8) values. Can anyone suggest a good library (or alternate method) to help with the conversion? elliott

2 2