11.2.4.3 Running your own process on startup

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

   #+(or Win32 Linux) :environment #+(or Win32 Linux) nil

   )

(quit)