anchor.diff:      (let ((%application-lambda%
              (app-runtime-next-lambda *application*)))
         (restart-bind ((continue
  -                      (app-continue-restart-main-lambda *application*)
  +                      (restart-function :main 'continue *application*)
                          :interactive
  -                       (app-continue-restart-interactive-lambda *application*)
  -                       :report
  -                       (app-continue-restart-report-lambda *application*)
  +                       (restart-function :interactive 'continue *application*)
  +                        :report
  +                       (restart-function :report 'continue *application*)
                          :test
  -                       (app-continue-restart-test-lambda *application*)))
  +                       (restart-function :test 'continue *application*)))
           (handler-bind ((condition (lambda (cdn)
                                       (handler-dispatch cdn app))))
             (funcall %application-lambda%))))))
  
positive.code: 
  (in-package #:ltp/dobelle/app)
  
  ;; ----
  
  (defgeneric controller-registered-applications (controller))
  
  (defclass app-controller ()
    ())
  
negative.code: ;; - application runtime init or next (main) or exit lambda
  ;; - application condition handling lambda
  
  
  ;; TO DO: Define a reasonable default for each of the following methods
  ;; such that will serve to provide a normal restart-handling protocol
  ;; for modular applications.
  ;; i.e
  #+NIL
  (eval-when ()
    (compute-restart-lambda :main 'continue *application*)
    (compute-restart-lambda :interactive 'continue *application*)
    (compute-restart-lambda :report 'continue *application*)
    (compute-restart-lambda :test 'continue *application*)
    )
  
  
  ;; ---- application main exec
  