[usocket-devel] Re: usocket-devel post from andrew.baine at gmail.com requires approval
Erik Huelsmann
ehuels at gmail.com
Wed Mar 5 13:18:55 UTC 2008
Hi Andrew,
[ This mail got rerouted to the mailing list owner because you're not
subscribed. Only subscribers can post to the list, in order to prevent
SPAM. Thanks for your cooperation! ]
> Subject: Error log
>
> Below is an error I got when I did (asdf:oos 'asdf:load-op 'usocket) using
> clisp-2.43 on Windows 2000.
Looking at the trace-back, I see you're using usocket trunk, but if
you're reporting an error, please include the version number which you
use.
I'll have a look at the sources and fix the issue tonight. I think you
should search the backend\clisp.lisp file for the string
"rawsock:socket-close" and replace it with "socket:socket-close", but
this change is untested. Where I am now, I do not have clisp access to
test the right change.
As I said, I'll check the fix tonight and check in the result. Once I
did that, I'll ping you (and the list) through mail. If you don't want
to use UDP (which isn't done anyway), a good way to get a working
version would be to download one of the official releases.
HTH,
Erik.
> >>>> snip <<<<
>
> READ from #<INPUT BUFFERED FILE-STREAM CHARACTER
> #P"C:\\home\\lisp\\asdf-registry\\usocket\\backend\\clisp.lisp"
> @203>: #1=#<PACKAGE
> RAWSOCK> has no external symbol with name "SOCKET-CLOSE"
> [Condition of type SYSTEM::SIMPLE-PACKAGE-ERROR]
>
> Restarts:
> 0: [RETRY] Retry performing #<ASDF:COMPILE-OP NIL #x19F82EF9> on
> #<ASDF:CL-SOURCE-FILE "clisp" #x19F82199>.
> 1: [ACCEPT] Continue, treating #<ASDF:COMPILE-OP NIL #x19F82EF9> on
> #<ASDF:CL-SOURCE-FILE "clisp" #x19F82199> as having been successful.
> 2: [ABORT] Return to SLIME's top level.
> 3: [CLOSE-CONNECTION] Close SLIME connection
>
> Backtrace:
> 0: INVOKE-DEBUGGER
> 1: SYSTEM::LPAR-READER
> 2: SYSTEM::LPAR-READER
> 3: SYSTEM::LPAR-READER
> 4: SYSTEM::FEATURE-READER
> 5: READ
> 6: unwind-protect frame
> 7: unwind-protect frame
> 8: unwind-protect frame
> 9: unwind-protect frame
> 10: COMPILE-FILE
> 11: (COMPILE-FILE ASDF:SOURCE-FILE :OUTPUT-FILE ASDF::OUTPUT-FILE)
> 12: MULTIPLE-VALUE-BIND
> 13: LET
> 14: (:LAMBDA '#<ASDF:COMPILE-OP NIL #x19F82EF9> '#1=#<ASDF:CL-SOURCE-FILE
> "clisp" #x19F82199>)
> 15: :LAMBDA (ASDF:OPERATION ASDF::C) (DECLARE (IGNORABLE ASDF:OPERATION
> ASDF::C)) (BLOCK ASDF:PERFORM (LET (# #) (MULTIPLE-VALUE-BIND # # # # #)))
> 16: ((LAMBDA #1=(ASDF:OPERATION ASDF::C) (DECLARE (SYSTEM::SOURCE #))
> #2=(DECLARE (IGNORABLE ASDF:OPERATION ASDF::C)) #3=(LET (# #)
> (MULTIPLE-VALUE-BIND # # # # #))) #:G4057 #:G4058)
> 17: frame binding functions #<ADDRESS #x011218B0> binds (~ = dynamically):
> | CALL-NEXT-METHOD <--> #<FUNCTION-MACRO #<FUNCTION CALL-NEXT-METHOD
> (SYSTEM::<MACRO-FORM> SYSTEM::<ENV-ARG>) (DECLARE (CONS
> SYSTEM::<MACRO-FORM>)) (DECLARE (IGNORE SYSTEM::<ENV-ARG>)) (IF (NOT #)
> (SYSTEM::MACRO-CALL-ERROR SYSTEM::<MACRO-FORM>) (LET* # #))> #<FUNCTION
> CALL-NEXT-METHOD (&REST CLOS::NEW-ARGS) (IF CLOS::NEW-ARGS (IF # # #) (IF
> #:G4056 # #))>>
> Next environment:
> | NEXT-METHOD-P <--> #<FUNCTION-MACRO #<FUNCTION NEXT-METHOD-P
> (SYSTEM::<MACRO-FORM> SYSTEM::<ENV-ARG>) (DECLARE (CONS
> SYSTEM::<MACRO-FORM>)) (DECLARE (IGNORE SYSTEM::<ENV-ARG>)) (IF (NOT #)
> (SYSTEM::MACRO-CALL-ERROR SYSTEM::<MACRO-FORM>) (LET* NIL #))> #<FUNCTION
> NEXT-METHOD-P NIL #:G4056>>
> | CALL-NEXT-METHOD <--> #<FUNCTION-MACRO #<FUNCTION CALL-NEXT-METHOD
> (SYSTEM::<MACRO-FORM> SYSTEM::<ENV-ARG>) (DECLARE (CONS
> SYSTEM::<MACRO-FORM>)) (DECLARE (IGNORE SYSTEM::<ENV-ARG>)) (IF (NOT #)
> (SYSTEM::MACRO-CALL-ERROR SYSTEM::<MACRO-FORM>) (LET* # #))> #<FUNCTION
> CALL-NEXT-METHOD (&REST CLOS::NEW-ARGS) (IF CLOS::NEW-ARGS (IF # # #) (IF
> #:G4056 # #))>>
> 18: SYSTEM::FUNCTION-MACRO-LET
> 19: (:LAMBDA '#<COMPILED-FUNCTION #:COMPILED-FORM-322-1-1>
> '#<ASDF:COMPILE-OP NIL #x19F82EF9> '#1=#<ASDF:CL-SOURCE-FILE "clisp"
> #x19F82199>)
> 20: :LAMBDA (#:G4056 #:G4057 #:G4058) (SYSTEM::FUNCTION-MACRO-LET
> ((CALL-NEXT-METHOD # #) (NEXT-METHOD-P # #)) ((LAMBDA # # #) #:G4057
> #:G4058))
> 21: #:COMPILED-FORM-322-1
> 22: (ASDF:PERFORM ASDF::OP ASDF:COMPONENT)
> 23: PROGN
> 24: RETURN-FROM
> 25: LET*
> 26: nested tagbody frame #<ADDRESS #x011217B0> for
> | #:G4154 --> ((RETURN-FROM #:RESTART-4155 (APPLY #'(LAMBDA NIL # #
> #) #:ARGS-4156)))
> | #:G4153 --> ((RETURN-FROM #1=#:RESTART-4155 (APPLY #'(LAMBDA NIL #)
> #2=#:ARGS-4156)) #:G4154 (RETURN-FROM #1# (APPLY #'(LAMBDA NIL # # #) #2#)))
> Next environment:
> | #(#:G4154 #:G4153) --> #<ADDRESS #x011217B0>
> | #(#:LOOP-4152) --> #<ADDRESS #x01121724>
> | #(SYSTEM::END-LOOP SYSTEM::BEGIN-LOOP) --> #<ADDRESS #x011216D0>
> 27: TAGBODY
> 28: LET
> 29: nested block frame #<ADDRESS #x01121744> for #:RESTART-4155
> Next environment:
> | #:RESTART-4155 --> #<ADDRESS #x01121744>
> | NIL --> #<ADDRESS #x011216F0>
> 30: BLOCK
> 31: nested tagbody frame #<ADDRESS #x01121724> for
> | #:LOOP-4152 --> ((BLOCK #1=#:RESTART-4155 (LET (#2=#:ARGS-4156)
> (TAGBODY # #3=#:G4153 # #4=#:G4154 #))) (GO #:LOOP-4152))
> Next environment:
> | #(#:LOOP-4152) --> #<ADDRESS #x01121724>
> | #(SYSTEM::END-LOOP SYSTEM::BEGIN-LOOP) --> #<ADDRESS #x011216D0>
> 32: TAGBODY
> 33: nested block frame #<ADDRESS #x011216F0> for NIL
> Next environment:
> | NIL --> #<ADDRESS #x011216F0>
> 34: BLOCK
> 35: nested tagbody frame #<ADDRESS #x011216D0> for
> | SYSTEM::END-LOOP --> NIL
> | SYSTEM::BEGIN-LOOP --> ((WHEN (ENDP #1=#:LIST-4150) (GO
> SYSTEM::END-LOOP)) (SETQ ASDF::OP (CAR (SETQ #2=#:PATTERN-4151 #))
> ASDF:COMPONENT (CDR #2#)) (BLOCK NIL (TAGBODY #3=#:LOOP-4152 (BLOCK
> #4=#:RESTART-4155 #) (GO #3#))) (PSETQ #1# (CDR #1#)) (GO
> SYSTEM::BEGIN-LOOP) SYSTEM::END-LOOP)
> Next environment:
> | #(SYSTEM::END-LOOP SYSTEM::BEGIN-LOOP) --> #<ADDRESS #x011216D0>
> 36: TAGBODY
> 37: LET
> 38: LET
> 39: LET
> 40: LET
> 41: unwind-protect frame
> 42: UNWIND-PROTECT
> 43: PROGV
> 44: LET
> 45: LET
> 46: LET*
> 47: (ASDF:OPERATE 'ASDF:LOAD-OP 'USOCKET)
> 48: ASDF:OPERATE (ASDF::OPERATION-CLASS ASDF:SYSTEM &REST ASDF::ARGS &KEY
> (ASDF::VERBOSE T) ...) (DECLARE (SYSTEM::IN-DEFUN ASDF:OPERATE)) (BLOCK
> ASDF:OPERATE (LET* (# # #) (UNLESS # #) (LET # #)))
> 49: (ASDF:OPERATE 'ASDF:LOAD-OP LIB)
> 50: (ASDF 'USOCKET)
> 51: ASDF (LIB) (DECLARE (SYSTEM::IN-DEFUN ASDF)) (BLOCK ASDF (ASDF:OPERATE
> 'ASDF:LOAD-OP LIB))
> 52: (ASDF 'USOCKET)
> 53: EVAL
> 54: unwind-protect frame
> 55: SWANK::EVAL-REGION
> 56: SWANK::REPL-EVAL-1-1
> 57: unwind-protect frame
> 58: SWANK::TRACK-PACKAGE
> 59: SWANK::REPL-EVAL-1
> 60: #:|314 316 (DEFINTERFACE CALL-WITH-SYNTAX-HOOKS (FN) ...)-32-3-1|
> 61: SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS
> 62: SWANK::CALL-WITH-BUFFER-SYNTAX
> 63: SWANK::REPL-EVAL
> 64: SWANK:LISTENER-EVAL
> 65: (SWANK:LISTENER-EVAL "(asdf 'usocket)
> ")
> 66: EVAL
> 67: unwind-protect frame
> 68: SWANK::EVAL-FOR-EMACS-1
> 69: #:|588 593 (DEFINTERFACE CALL-WITH-DEBUGGER-HOOK (HOOK FUN)
> ...)-57-3-1|
> 70: SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK
> 71: SWANK::EVAL-FOR-EMACS
> 72: SWANK::READ-FROM-EMACS
> 73: catch frame for tag #:SIMPLE-RESTART-22247
> 74: SWANK::HANDLE-REQUEST-1
> 75: #:|588 593 (DEFINTERFACE CALL-WITH-DEBUGGER-HOOK (HOOK FUN)
> ...)-57-3-1|
> 76: SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK
> 77: SWANK::CALL-WITH-CONNECTION-1
> 78: SWANK::CALL-WITH-REDIRECTED-IO
> 79: SWANK::MAYBE-CALL-WITH-IO-REDIRECTION
> 80: SWANK::CALL-WITH-CONNECTION
> 81: SWANK::HANDLE-REQUEST
> 82: SWANK::SIMPLE-SERVE-REQUESTS-2
> 83: handler frame for conditions SWANK::SWANK-ERROR
> 84: compiled block frame for #S(RESTART :NAME SWANK::CLOSE-CONNECTION :TEST
> #<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-TEST> :INVOKE-TAG
> #:SIMPLE-RESTART-22757 :INVOKE-FUNCTION NIL :REPORT #<FUNCTION :LAMBDA
> (STREAM) (FORMAT STREAM "Close SLIME connection")> :INTERACTIVE
> #<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-INTERACTIVE>
> :MEANINGFULP T)
> 85: catch frame for tag #:SIMPLE-RESTART-22757
> 86: unwind-protect frame
> 87: SWANK::SIMPLE-SERVE-REQUESTS
> 88: SWANK::SERVE-REQUESTS
> 89: unwind-protect frame
> 90: SWANK::SERVE-CONNECTION
> 91: SWANK::SETUP-SERVER-SERVE
> 92: SWANK::SETUP-SERVER
> 93: SWANK:START-SERVER
> 94: (FUNCALL (READ-FROM-STRING "swank:start-server")
> "c:/DOCUME~1/102508/LOCALS~1/Temp/slime.2292"
> :CODING-SYSTEM "iso-latin-1-unix")
> 95: PROGN
> 96: SYSTEM::READ-EVAL-PRINT
> 97: compiled tagbody frame for #(NIL)
> 98: catch frame for tag DEBUG
>
>
>
> ---------- Forwarded message ----------
> From: usocket-devel-request at common-lisp.net
> To:
> Date:
> Subject: confirm ef7998fa3354a5fff1723eeee3363d7ee4d6e0b2
> If you reply to this message, keeping the Subject: header intact,
> Mailman will discard the held message. Do this if the message is
> spam. If you reply to this message and include an Approved: header
> with the list password in it, the message will be approved for posting
> to the list. The Approved: header can also appear in the first line
> of the body of the reply.
>
More information about the usocket-devel
mailing list