RE: [Axiom-developer] RE: [Gcl-devel] Re: axiom porting

[Mike Thomas]

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