anchor.diff:  (defclass restart-kind (kind)
     ())
   
  +;; (defun register-restart-kind (kind))
  +;; (defun find-restart-kind (name &optional (noerr nil)))
  +;; (defun remove-restart-kind (kind))
  +
  +
   (defsingleton continue-restart-kind (restart-kind)
     ()
     (:default-initargs :name 'continue))
   
  +;; (register-restart-kind 'continue-restart-kind)
   
   (defclass lambda-kind (kind)
     ())
   
  +;; (defun register-lambda-kind (kind))
  +;; (defun find-lambda-kind (name &optional (noerr nil)))
  +;; (defun remove-lambda-kind (kind))
  +
  +
   (defsingleton restart-main-lambda-kind (lambda-kind)
     ()
     (:default-initargs :name :main))
  
positive.code: (defclass app-controller ()
    ())
  
  (defsingleton single-threaded-app-controller (app-controller)
    ())
  
  (defsingleton multi-threaded-app-controller (app-controller)
    ())
  
  
  
negative.code:   ())
  
  (defgeneric app-runtime-init-lambda (application))
  ;; (defgeneric app-runtime-next-lambda (application))
  (defgeneric app-runtime-exit-lambda (application))
  
  ;; NB: These may be approached, alternately, with funcallable instances
  