March 2008 - usocket-devel - mailman3.common-lisp.net

[usocket-devel] UDP support in usocket, ideas explained
by Erik Huelsmann 03 Oct '08

03 Oct '08

When looking at usocket.lisp, you'll find there is a datagram-usocket class commented out. I think this class (even without any additional slot definitions) should be used for UDP sockets. Then there's datagram-usocket-p, which should start returning T when the passed in object is a true descendant of DATAGRAM-USOCKET. Looking further, you'll find there are functions defined for creating stream and stream-server objects. A function like that should be created for UDP sockets. I think it's only sane to extend WAIT-FOR-INPUT to apply to UDP sockets as well as any of the currently supported sockets. The LispWorks variant of this function (for win32) is still on my laptop. I'll try to finish it up soon, so that you can all start testing it. I propose we implement recv()/recvfrom() as one function: SOCKET-RECEIVE. I think we shouldn't bother implementing recv() and recvfrom() as separate interfaces: I think we should return the recvfrom-address field as the second return value of SOCKET-RECEIVE. I also propose we implement send()/sendto() as one function: SOCKET-SEND. I think we should provide the sendto address as an optional parameter to the SOCKET-SEND function. Also, I think the function should check for connected-ness of the datagram socket. If the sendto address is specified on a connected socket AND the address specified is unequal to the connected address, the function should error. Oh. One last thing: local and peer address retrieval functions should be adapted to apply to UDP sockets as well as the currently supported stream sockets. I hope this is all a bit clear! If you have (m)any questions, please don't hesitate to ask. Bye, Erik.

2 9

[usocket-devel] Fwd: [usocket-cvs] r245 - usocket/trunk/backend
by Erik Huelsmann 23 Jul '08

23 Jul '08

Hi Douglas, I recently added some functionality in usocket and even though I think I could have copy-pasted from the CMU backend, I want to verify with you if this is true. The functions I added: - get-host-name (as you can see in the commit mail below based on copy-paste from CMU) - wait-for-input-internal which I didn't copy-paste yet. I would be especially gratefull if you could copy-paste and verify the latter for me and optionally even supply a patch. For testing of the multiplexing code, I use this 'script': (load "asdf.lisp") (asdf:oos 'asdf:load-op :usocket) (defvar sockets nil) (defparameter crlf (format nil "~C~C" #\Return #\Linefeed)) (defparameter host "mirror.w3media.nl") (defparameter offset-path "/apache") (dotimes (i 10) (let ((s (usocket:socket-connect host 80))) (format (usocket:socket-stream s) "GET http://~A~A/httpd/httpd-2.0.~A.tar.gz HTTP/1.0~%~%" host offset-path (+ 50 i)) (force-output (usocket:socket-stream s)) (push s sockets))) (let ((buffer (make-array 8192 :element-type 'character))) (loop (let ((ready (usocket:wait-for-input sockets :timeout 15))) (unless ready (sleep 1) (format t "No ready sockets!~%")) (dolist (r ready) (format t "Reading from ~A~%" r) (read-sequence buffer (usocket:socket-stream r)))))) HTH and thanks for your reaction in advance! bye, Erik. ---------- Forwarded message ---------- From: ehuelsmann(a)common-lisp.net <ehuelsmann(a)common-lisp.net> Date: May 18, 2007 12:03 AM Subject: [usocket-cvs] r245 - usocket/trunk/backend To: usocket-cvs(a)common-lisp.net Author: ehuelsmann Date: Thu May 17 18:03:55 2007 New Revision: 245 Modified: usocket/trunk/backend/scl.lisp Log: Add cl-smtp 'requirement': get-host-name (SCL backend); needs verification. Modified: usocket/trunk/backend/scl.lisp ============================================================================== --- usocket/trunk/backend/scl.lisp (original) +++ usocket/trunk/backend/scl.lisp Thu May 17 18:03:55 2007 @@ -129,3 +129,6 @@ (t (error 'ns-unknown-error :host-or-ip name :real-error errno)))))))) + +(defun get-host-name () + (unix:unix-gethostname)) _______________________________________________ usocket-cvs mailing list usocket-cvs(a)common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/usocket-cvs

4 8

[usocket-devel] Patch: Fix SYSCALLS loading on OpenMCL
by Hans Hübner 16 Apr '08

16 Apr '08

Hi, please consider this patch: http://bknr.net/trac/changeset/2795?format=diff&new=2795 It fixes loading of system calls for Linux and FreeBSD. I have opened a bug with Clozure to make them move to a unified system call loading interface so that applications do not need to dispatch on an architecture symbol, but until that went into CCL, the fix should be fine. Thanks, Hans

2 8

[usocket-devel] Timeouts in usocket?
by Hans Hübner 09 Apr '08

09 Apr '08

Hi, are there any concrete plans to support timeouts in usocket? CL implementations begin to provide both relative timeouts or absolute deadlines in their low level socket implementations, and it would be nice to be able to use them without having to resort to hacking usocket in application specific ways. In particular, SOCKET-CONNECT needs a timeout argument. If there are no current plans, I'll add timeouts to my list and add them. -Hans

2 1

[usocket-devel] Fwd: WITH-MAPPED-CONDITIONS and other WITH-* macros
by Hans Huebner 27 Mar '08

27 Mar '08

Here is an email I received from Tobias in response to my suggestion to wrap the body of invocations of WITH-CONNECTED-SOCKET with a WITH-MAPPED-CONDITIONS. We discussed his comment afterwards and came to the conclusion that it will be problematic to get nested occurences of WITH-CONNECTED-SOCKET to work if the all of the handlers for any of the involved conditions declines. For conditions signalled with ERROR (which is what usocket needs to do anyway) this will be no problem, as ERROR itself will invoke the debugger if all handlers decline. With SIGNAL, the behavior Tobias describes could be observed, which would clearly be unwanted. -Hans ---------- Forwarded message ---------- From: Tobias C. Rittweiler <tcr(a)freebits.de> Date: 26.03.2008 13:55 Subject: Re: WITH-MAPPED-CONDITIONS and other WITH-* macros To: Hans Hübner <hans.huebner(a)gmail.com> "Hans Hübner" <hans-zv1TXXZFLoBAfugRpC6u6w(a)public.gmane.org> writes: > Hi, > > how would you feel about adding a WITH-MAPPED-CONDITIONS to the > expansion of WITH-CONNECTED-SOCKET? The reason for that is that it is > possible that stream read/write operations on a socket stream generate > socket errors that need conversion. > > Thoughts? I'm not familiar with the usocket source base, but I found out yesterday the hard way that remapping conditions that work properly when being nested is entirely not trivial. CL-USER> (handler-bind ((warning #'(lambda (w) (format t "<1> ~S~%" w) (signal w)))) (handler-bind ((warning #'(lambda (w) (format t "<2> ~S~%" w) (signal (make-condition 'warning))))) (warn "FOO"))) <2> #<SIMPLE-WARNING {B7060A1}> ; created by the (warn "FOO") <1> #<WARNING {B706CE1}> ; created by the (make-condition 'warning) <1> #<SIMPLE-WARNING {B7060A1}> ; same as in <2> <-- WE DON'T WANT THIS TO HAPPEN WARNING: FOO NIL The problem is that handler <2> signals the conditions _anew_, but if this newly signalled condition isn't handled anywhere upwards, the condition that was originally signalled continues its search for a handler further upwards (causing handler <1> to be run twice.) The problem is that there's no RESIGNAL operator (or a DECLINE) operator in Common Lisp, making this really troublesome. My point is that: If WITH-CONNECTED-SOCKET is supposed to work when being nested (or if multiple WITH-MAPPED-CONDITIONS can appear in the extent of a WITH-CONNECTED-SOCKET), you have to be careful not to screw up. HTH, -T. -- Diese Nachricht wurde auf Viren und andere gefaerliche Inhalte untersucht und ist - aktuelle Virenscanner vorausgesetzt - sauber. Freebits E-Mail Virus Scanner

2 2

[usocket-devel] WITH-MAPPED-CONDITIONS and other WITH-* macros
by Hans Hübner 26 Mar '08

26 Mar '08

Hi, how would you feel about adding a WITH-MAPPED-CONDITIONS to the expansion of WITH-CONNECTED-SOCKET? The reason for that is that it is possible that stream read/write operations on a socket stream generate socket errors that need conversion. Thoughts? Hans

1 0

[usocket-devel] Extending USOCKET to support UDP (cmucl, sbcl, openmcl and lispworks is done)
by Chun Tian 19 Mar '08

19 Mar '08

Hi, USOCKET project Since your WAIT-FOR-INPUT is so good and portable, I'm extending you to support UDP which used in my project. I still much like a STREAM interface as the MESSAGE interface, so I implemented them BOTH. For "STREAM" interface, I made a SOCKET-CONNECT/UDP function: socket-connect/udp (host port &key (stream nil) (element-type '(unsigned-byte 8))) If one of host and port is NIL, it'll return a normal, unconnected UDP usocket, or it'll return a "connected" UDP socket, and if the STREAM key also is T, it'll return a STREAM which can be used like a TCP stream. The "MESSAGE" interface for UDP usocket is this two functions: socket-send ((socket datagram-usocket) buffer length &key address port) socket-receive ((socket datagram-usocket) buffer length) Their API is quite like those in SBCL. At present, SBCL, CMUCL, OpenMCL and LispWorks' "STREAM" interface is done and tested. The MESSAGE interface haven't been tested. All my work can be found here: (in a SVN repository) https://cl-net-snmp.svn.sourceforge.net/svnroot/cl-net-snmp/snmp/trunk/usoc… To support UDP server, I think a "iterate" UDP server support is much straightforward to write: Make a portable thread (use the bordeaux- threads project) and just receive and send message using the MESSAGE interface. Since I also have a SNMP server in my project, I planed to write this UDP server in my USOCKET-UDP directory. If the maintainer want to merge my code, just do it, or I'll keep them myself. Regards, Chun Tian (binghe)

1 0

[usocket-devel] Fwd: [usocket-cvs] r322 - usocket/trunk/backend
by Erik Huelsmann 06 Mar '08

06 Mar '08

This *should* fix CLISP on trunk... HTH, Erik. ---------- Forwarded message ---------- From: ehuelsmann(a)common-lisp.net <ehuelsmann(a)common-lisp.net> Date: Mar 5, 2008 11:13 PM Subject: [usocket-cvs] r322 - usocket/trunk/backend To: usocket-cvs(a)common-lisp.net Author: ehuelsmann Date: Wed Mar 5 17:13:31 2008 New Revision: 322 Modified: usocket/trunk/backend/clisp.lisp Log: Correct spelling of socket closing routine SOCKET-CLOSE -> SOCK-CLOSE. Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Wed Mar 5 17:13:31 2008 @@ -200,7 +200,7 @@ rv)) (defmethod socket-close ((usocket datagram-usocket)) - (rawsock:socket-close (socket usocket))) + (rawsock:sock-close (socket usocket))) ) _______________________________________________ usocket-cvs mailing list usocket-cvs(a)common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/usocket-cvs

1 0

[usocket-devel] Re: usocket-devel post from andrew.baine@gmail.com requires approval
by Erik Huelsmann 05 Mar '08

05 Mar '08

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(a)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. >

1 0

[usocket-devel] Error log
by Andrew Baine 05 Mar '08

05 Mar '08

Below is an error I got when I did (asdf:oos 'asdf:load-op 'usocket) using clisp-2.43 on Windows 2000. >>>> 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

1 0