Hi Camm/Bill. A bunch of Windows probe-file, directory and server output below. Basically the server program is failing because accept won't deal with the "socket" it's being passed and on first glance I suspect that this is because it is not the right Winsock type. I'll look further later but I'm suspicious that there may be a lot of work ahead here for me.
Cheers Mike Thomas | As for bombing when the file is not there, this would appear to be an | error in probe-file on Windows. The 'server' example is supposed to | return a blank page and continue in this case. Please let me know if | there is a bug here. (si::use-fast-links nil) and :bt if thrown into | the debugger. (I do get an error on Linux when the file exists but | cannot be opened due to permissions, for example.) >(probe-file "/msys/1.0") #p"c:/msys/1.0" >(probe-file "/msys/1.0/") #p"c:/msys/1.0/" >(probe-file "c:/msys/1.0/") #p"c:/msys/1.0/" >(probe-file "c:/msys/1.0") #p"c:/msys/1.0" >(directory "c:/msys/1.0") (#p"c:/msys/1.0") >(directory "c:/msys/1.0/") (#p"c:/msys/1.0/bin" #p"c:/msys/1.0/doc" #p"c:/msys/1.0/etc" #p"c:/msys/1.0/home" #p"c:/msys/1.0/include" #p"c:/msys/1.0/lib" #p"c:/msys/1.0/local" #p"c:/msys/1.0/m.ico" #p"c:/msys/1.0/mingw" #p"c:/msys/1.0/msys.bat" #p"c:/msys/1.0/msys.bat~" #p"c:/msys/1.0/msys.ico" #p"c:/msys/1.0/share" #p"c:/msys/1.0/ssl" #p"c:/msys/1.0/uninstall") >(open "/etc" :if-does-not-exist nil) NIL >(open "c:/msys/1.0" :if-does-not-exist nil) NIL >(open "c:/msys/1.0/" :if-does-not-exist nil) NIL >(open "c:/msys/1.0/msys.bat" :if-does-not-exist nil) #<input stream "c:/msys/1.0/msys.bat"> >(bar 8085 #'foo) Error in LET [or a callee]: Error "No such file or directory" on accepting conne ction to #<two-way stream 104c969c> Broken at INVOKE-DEBUGGER. Type :H for Help. 1 (Abort) Return to top level. dbl:>>:bt #0 INVOKE-DEBUGGER {datum=#<conditions::internal-simple-stream-error.0>,argume nts=nil,loc2=#<condit...} [ihs=15] #1 ERROR {datum=conditions::internal-simple-stream-error,arguments=(:function- name let :f...} [ihs=14] #2 CLCS-UNIVERSAL-ERROR-HANDLER {error-name=:error,correctable=nil,function-na me=let,continue-format-string=("")...} [ihs=13] #3 ACCEPT {loc0=#<two-way stream 104c969c>} [ihs=12] #4 BAR {lambda-block=foo,} [ihs=7] #5 EVAL {loc0=nil,loc1=nil,loc2=nil,loc3=(lambda-block bar (p fn) ...),loc4=80 87,loc5=(l...} [ihs=6] #6 TOP-LEVEL {loc0=nil,loc1=0,loc2=0,loc3=nil,loc4=nil,loc5=nil,loc6=nil,loc7= "c:/cvs/stable/...} [ihs=5] #7 FUNCALL {loc0=#<compiled-function system:top-level>} [ihs=4] NIL dbl:>>:h _______________________________________________ Axiom-developer mailing list Axiom-developer@nongnu.org http://lists.nongnu.org/mailman/listinfo/axiom-developer