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.
(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))