This script saves a LispWorks image which starts multiprocessing on restart and runs a user-defined process.
(load-all-patches)
(load "my-server-code")
(push '("Start Server" () start-my-server)
mp:*initial-processes*)
(save-image "my-server"
:remarks "My Server"
:restart-function 'mp:initialize-multiprocessing
:environment nil)
(quit)