14.2.5.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

            :environment nil)

(quit)