Steel Bank Common Lisp

A little over a year ago I posted about problems with using sbcl with  
SLIME on windows. I did get some help, but was still not able to get  
our system working then, so I gave up and have just recently turned to  
it.

The problem seems to be with sb-bsd-sockets and save-lisp-and-die. I  
give a transcript below that loads sb-bsd-sockets and everything is  
working fine, but after save-lisp-and-die and running the saved  
executable, get-protocol-by-name now fails. I checked that this works  
on Mac OS X. It also works if sb-bsd-sockets is loaded after  
restarting a saved executable, but we really want to deliver  
executables that don't have to load anything.

Is there something that needs to be reinitialized after starting a  
saved executable? Any suggestions?

Thanks,
Stephen Westfold
Kestrel Institute


C:\>sbcl
sbcl
This is SBCL 1.0.9, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.

This is experimental prerelease support for the Windows platform: use
at your own risk.  "Your Kitten of Death awaits!"
* (require :sb-bsd-sockets)

("SB-BSD-SOCKETS" "SB-GROVEL" "ASDF")
* (sockint::getprotobyname "tcp")

#<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X00249650 :TYPE (*
                                                         (STRUCT
                                                          SB-BSD- 
SOCKETS-INTERNAL::PROTOENT
                                                          (SB-BSD- 
SOCKETS-INTERNAL::NAME
                                                           (C-STRING
                                                            :EXTERNAL- 
FORMAT
                                                            :DEFAULT
                                                            :ELEMENT- 
TYPE
                                                            CHARACTER))
                                                          (SB-BSD- 
SOCKETS-INTERNAL::ALIASES
                                                           (* (* T)))
                                                          (SB-BSD- 
SOCKETS-INTERNAL::PROTO
                                                           (SIGNED 16))
                                                          (SB-BSD- 
SOCKETS-INTERNAL::PADDING4
                                                           (ARRAY  
(SIGNED 8)
                                                            2))))>
* (SB-BSD-SOCKETS:GET-PROTOCOL-BY-NAME "tcp")

6
* (sb-ext::save-lisp-and-die "c:/Test.exe" :executable t)
[undoing binding stack and other enclosing state... done]
[saving current Lisp image into c:\Test.exe:
writing 1960 bytes from the read-only space at 0x02000000
writing 1640 bytes from the static space at 0x02100000
writing 24018944 bytes from the dynamic space at 0x09000000
done]

C:\>c:/Test.exe
c:/Test.exe

This is experimental prerelease support for the Windows platform: use
at your own risk.  "Your Kitten of Death awaits!"
* (sockint::getprotobyname "tcp")

#<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X00000000 :TYPE (*
                                                         (STRUCT
                                                          SB-BSD- 
SOCKETS-INTERNAL::PROTOENT
                                                          (SB-BSD- 
SOCKETS-INTERNAL::NAME
                                                           (C-STRING
                                                            :EXTERNAL- 
FORMAT
                                                            :DEFAULT
                                                            :ELEMENT- 
TYPE
                                                            CHARACTER))
                                                          (SB-BSD- 
SOCKETS-INTERNAL::ALIASES
                                                           (* (* T)))
                                                          (SB-BSD- 
SOCKETS-INTERNAL::PROTO
                                                           (SIGNED 16))
                                                          (SB-BSD- 
SOCKETS-INTERNAL::PADDING4
                                                           (ARRAY  
(SIGNED 8)
                                                            2))))>
* (SB-BSD-SOCKETS:GET-PROTOCOL-BY-NAME "tcp")

debugger invoked on a SB-BSD-SOCKETS:UNKNOWN-PROTOCOL: Protocol not  
found: "tcp"

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
   0: [ABORT] Exit debugger, returning to top level.

(SB-BSD-SOCKETS:GET-PROTOCOL-BY-NAME "tcp")
0]