The
register-server
function updates the Windows registry to contain the appropriate keys for all the class factories registered in the current Lisp image. For Automation components, the type libraries are registered as well. During development, the type library will be found whereever the system definition specified, but after using Lispworks delivery it must be located in the directory containing the application's executable or DLL.
This function should be called when an application is installed, usually by detecting the
/RegServer
command line argument.
(defun start-up-function ()
(cond ((member "/RegServer"
system:*line-arguments-list*
:test 'equalp)
(register-server))
((member "/UnRegServer"
system:*line-arguments-list*
:test 'equalp)
(unregister-server))
(t
(co-initialize)
(start-factories)
(start-application-main-loop)))
(quit))