The
unregister-server
function updates the Windows registry to remove the appropriate keys for all the class factories registered in the current Lisp image. For Automation components, the type libraries are unregistered as well.
This function should be called when an application is uninstalled, usually by detecting the
/UnRegServer
command line argument.
When running on 64-bit Windows, 32-bit LispWorks updates the 32-bit registry view and 64-bit LispWorks updates the 64-bit registry view. LispWorks does not change the registry reflection settings.
(defun start-up-function ()
(cond ((member "/UnRegServer"
system:*line-arguments-list*
:test 'equalp)
(unregister-server))
((member "/RegServer"
system:*line-arguments-list*
:test 'equalp)
(register-server))
(t
(co-initialize)
(start-factories)
(start-application-main-loop)))
(quit))