Method: (UNREGISTER-APPLICATION STANDARD-SERVER APPLICATION)

Source

(defmethod unregister-application ((server standard-server) (app application))
  (with-lock-held (server.applications-lock server)
    (setf (server.applications server) (delete app (server.applications server) :test #'eq))))