13.3.1 The save-image script

Now create a save-image script which is a file save-image.lisp containing something like:

(in-package "CL-USER")

(load-all-patches)

(load #-mswindows "/tmp/my-configuration.lisp"

      #+mswindows "C:/temp/my-configuration.lisp")

#+:cocoa

(compile-file-if-needed

 (sys:example-file

  "configuration/macos-application-bundle")

 :load t)

(save-image #+:cocoa

            (write-macos-application-bundle

             "/Applications/LispWorks 5.1/My LispWorks.app")

            #-:cocoa "my-lispworks")

The script shown loads my-configuration.lisp from a temporary directory. You may need to modify this.