<br>Below is an error I got when I did (asdf:oos 'asdf:load-op 'usocket) using clisp-2.43 on Windows 2000.<br><br>>>>> snip <<<<<br><br>READ from #<INPUT BUFFERED FILE-STREAM CHARACTER #P"C:\\home\\lisp\\asdf-registry\\usocket\\backend\\clisp.lisp" @203>: #1=#<PACKAGE<br>
RAWSOCK> has no external symbol with name "SOCKET-CLOSE"<br> [Condition of type SYSTEM::SIMPLE-PACKAGE-ERROR]<br><br>Restarts:<br> 0: [RETRY] Retry performing #<ASDF:COMPILE-OP NIL #x19F82EF9> on #<ASDF:CL-SOURCE-FILE "clisp" #x19F82199>.<br>
1: [ACCEPT] Continue, treating #<ASDF:COMPILE-OP NIL #x19F82EF9> on #<ASDF:CL-SOURCE-FILE "clisp" #x19F82199> as having been successful.<br> 2: [ABORT] Return to SLIME's top level.<br> 3: [CLOSE-CONNECTION] Close SLIME connection<br>
<br>Backtrace:<br> 0: INVOKE-DEBUGGER<br> 1: SYSTEM::LPAR-READER<br> 2: SYSTEM::LPAR-READER<br> 3: SYSTEM::LPAR-READER<br> 4: SYSTEM::FEATURE-READER<br> 5: READ<br> 6: unwind-protect frame<br> 7: unwind-protect frame<br>
8: unwind-protect frame<br> 9: unwind-protect frame<br> 10: COMPILE-FILE<br> 11: (COMPILE-FILE ASDF:SOURCE-FILE :OUTPUT-FILE ASDF::OUTPUT-FILE)<br> 12: MULTIPLE-VALUE-BIND<br> 13: LET<br> 14: (:LAMBDA '#<ASDF:COMPILE-OP NIL #x19F82EF9> '#1=#<ASDF:CL-SOURCE-FILE "clisp" #x19F82199>)<br>
15: :LAMBDA (ASDF:OPERATION ASDF::C) (DECLARE (IGNORABLE ASDF:OPERATION ASDF::C)) (BLOCK ASDF:PERFORM (LET (# #) (MULTIPLE-VALUE-BIND # # # # #)))<br> 16: ((LAMBDA #1=(ASDF:OPERATION ASDF::C) (DECLARE (SYSTEM::SOURCE #)) #2=(DECLARE (IGNORABLE ASDF:OPERATION ASDF::C)) #3=(LET (# #) (MULTIPLE-VALUE-BIND # # # # #))) #:G4057 #:G4058)<br>
17: frame binding functions #<ADDRESS #x011218B0> binds (~ = dynamically):<br> | 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 # #))>><br>
Next environment: <br> | 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>><br>
| 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 # #))>><br>
18: SYSTEM::FUNCTION-MACRO-LET<br> 19: (:LAMBDA '#<COMPILED-FUNCTION #:COMPILED-FORM-322-1-1> '#<ASDF:COMPILE-OP NIL #x19F82EF9> '#1=#<ASDF:CL-SOURCE-FILE "clisp" #x19F82199>)<br> 20: :LAMBDA (#:G4056 #:G4057 #:G4058) (SYSTEM::FUNCTION-MACRO-LET ((CALL-NEXT-METHOD # #) (NEXT-METHOD-P # #)) ((LAMBDA # # #) #:G4057 #:G4058))<br>
21: #:COMPILED-FORM-322-1<br> 22: (ASDF:PERFORM ASDF::OP ASDF:COMPONENT)<br> 23: PROGN<br> 24: RETURN-FROM<br> 25: LET*<br> 26: nested tagbody frame #<ADDRESS #x011217B0> for<br> | #:G4154 --> ((RETURN-FROM #:RESTART-4155 (APPLY #'(LAMBDA NIL # # #) #:ARGS-4156)))<br>
| #:G4153 --> ((RETURN-FROM #1=#:RESTART-4155 (APPLY #'(LAMBDA NIL #) #2=#:ARGS-4156)) #:G4154 (RETURN-FROM #1# (APPLY #'(LAMBDA NIL # # #) #2#)))<br> Next environment: <br> | #(#:G4154 #:G4153) --> #<ADDRESS #x011217B0><br>
| #(#:LOOP-4152) --> #<ADDRESS #x01121724><br> | #(SYSTEM::END-LOOP SYSTEM::BEGIN-LOOP) --> #<ADDRESS #x011216D0><br> 27: TAGBODY<br> 28: LET<br> 29: nested block frame #<ADDRESS #x01121744> for #:RESTART-4155<br>
Next environment: <br> | #:RESTART-4155 --> #<ADDRESS #x01121744><br> | NIL --> #<ADDRESS #x011216F0><br> 30: BLOCK<br> 31: nested tagbody frame #<ADDRESS #x01121724> for<br> | #:LOOP-4152 --> ((BLOCK #1=#:RESTART-4155 (LET (#2=#:ARGS-4156) (TAGBODY # #3=#:G4153 # #4=#:G4154 #))) (GO #:LOOP-4152))<br>
Next environment: <br> | #(#:LOOP-4152) --> #<ADDRESS #x01121724><br> | #(SYSTEM::END-LOOP SYSTEM::BEGIN-LOOP) --> #<ADDRESS #x011216D0><br> 32: TAGBODY<br> 33: nested block frame #<ADDRESS #x011216F0> for NIL<br>
Next environment: <br> | NIL --> #<ADDRESS #x011216F0><br> 34: BLOCK<br> 35: nested tagbody frame #<ADDRESS #x011216D0> for<br> | SYSTEM::END-LOOP --> NIL<br> | 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)<br>
Next environment: <br> | #(SYSTEM::END-LOOP SYSTEM::BEGIN-LOOP) --> #<ADDRESS #x011216D0><br> 36: TAGBODY<br> 37: LET<br> 38: LET<br> 39: LET<br> 40: LET<br> 41: unwind-protect frame<br> 42: UNWIND-PROTECT<br>
43: PROGV<br> 44: LET<br> 45: LET<br> 46: LET*<br> 47: (ASDF:OPERATE 'ASDF:LOAD-OP 'USOCKET)<br> 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 # #)))<br>
49: (ASDF:OPERATE 'ASDF:LOAD-OP LIB)<br> 50: (ASDF 'USOCKET)<br> 51: ASDF (LIB) (DECLARE (SYSTEM::IN-DEFUN ASDF)) (BLOCK ASDF (ASDF:OPERATE 'ASDF:LOAD-OP LIB))<br> 52: (ASDF 'USOCKET)<br> 53: EVAL<br> 54: unwind-protect frame<br>
55: SWANK::EVAL-REGION<br> 56: SWANK::REPL-EVAL-1-1<br> 57: unwind-protect frame<br> 58: SWANK::TRACK-PACKAGE<br> 59: SWANK::REPL-EVAL-1<br> 60: #:|314 316 (DEFINTERFACE CALL-WITH-SYNTAX-HOOKS (FN) ...)-32-3-1|<br> 61: SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS<br>
62: SWANK::CALL-WITH-BUFFER-SYNTAX<br> 63: SWANK::REPL-EVAL<br> 64: SWANK:LISTENER-EVAL<br> 65: (SWANK:LISTENER-EVAL "(asdf 'usocket)<br> ")<br> 66: EVAL<br> 67: unwind-protect frame<br> 68: SWANK::EVAL-FOR-EMACS-1<br>
69: #:|588 593 (DEFINTERFACE CALL-WITH-DEBUGGER-HOOK (HOOK FUN) ...)-57-3-1|<br> 70: SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK<br> 71: SWANK::EVAL-FOR-EMACS<br> 72: SWANK::READ-FROM-EMACS<br> 73: catch frame for tag #:SIMPLE-RESTART-22247<br>
74: SWANK::HANDLE-REQUEST-1<br> 75: #:|588 593 (DEFINTERFACE CALL-WITH-DEBUGGER-HOOK (HOOK FUN) ...)-57-3-1|<br> 76: SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK<br> 77: SWANK::CALL-WITH-CONNECTION-1<br> 78: SWANK::CALL-WITH-REDIRECTED-IO<br>
79: SWANK::MAYBE-CALL-WITH-IO-REDIRECTION<br> 80: SWANK::CALL-WITH-CONNECTION<br> 81: SWANK::HANDLE-REQUEST<br> 82: SWANK::SIMPLE-SERVE-REQUESTS-2<br> 83: handler frame for conditions SWANK::SWANK-ERROR<br> 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)<br>
85: catch frame for tag #:SIMPLE-RESTART-22757<br> 86: unwind-protect frame<br> 87: SWANK::SIMPLE-SERVE-REQUESTS<br> 88: SWANK::SERVE-REQUESTS<br> 89: unwind-protect frame<br> 90: SWANK::SERVE-CONNECTION<br> 91: SWANK::SETUP-SERVER-SERVE<br>
92: SWANK::SETUP-SERVER<br> 93: SWANK:START-SERVER<br> 94: (FUNCALL (READ-FROM-STRING "swank:start-server") "c:/DOCUME~1/102508/LOCALS~1/Temp/slime.2292" :CODING-SYSTEM "iso-latin-1-unix")<br>
95: PROGN<br> 96: SYSTEM::READ-EVAL-PRINT<br> 97: compiled tagbody frame for #(NIL)<br> 98: catch frame for tag DEBUG<br><br>