14.2.3 Example

This script saves an image hello.dll which is a Windows DLL:

-------------------- hello.lisp -------------------------

(in-package "CL-USER")

(load-all-patches)

;; The signature of this function is suitable for use with

;; rundll32.exe.

(fli:define-foreign-callable ("Hello"

                              :calling-convention :stdcall)

    ((hwnd w:hwnd)

     (hinst w:hinstance)

     (string :pointer)

     (cmd-show :int))

  (capi:display-message "Hello world"))

(save-image "hello"

            :dll-exports '("Hello")

            :environment nil)

---------------------------------------------------------

Run the script by

on the command line, or use the Application Builder tool.

(See Customization of LispWorks for more information about how to save an image.)

You can test the DLL by running

on the command line.

To see the dialog, you may need to dismiss the LispWorks splashscreen first.