anchor.diff:  ;; - application runtime init or next (main) or exit lambda
   ;; - application condition handling lambda
   
  -;; TO DO: Define a reasonable default for each of the following generic
  -;; functions, such that will serve to provide a normal restart-handling
  -;; protocol for modular applications. (DEFINE-RESTART-HANDLER ?)
   
  -(defgeneric app-continue-restart-main-lambda (TBD))
  -(defgeneric app-continue-restart-interactive-lambda (TBD))
  -(defgeneric app-continue-restart-report-lambda (TBD))
  -(defgeneric app-continue-restart-test-lambda (TBD))
  +;; 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
  
positive.code: 
  (in-package #:ltp/dobelle/app)
  
  ;; ----
  
  (defgeneric controller-registered-applications (controller))
  
  (defclass app-controller ()
    ())
  
negative.code:     (let ((%application-lambda%
             (app-runtime-next-lambda *application*)))
        (restart-bind ((continue
                        (restart-function :main 'continue *application*)
                         :interactive
                         (restart-function :interactive 'continue *application*)
                          :report
                         (restart-function :report 'continue *application*)
                         :test
                         (restart-function :test 'continue *application*)))
          (handler-bind ((condition (lambda (cdn)
                                      (handler-dispatch cdn app))))
            (funcall %application-lambda%))))))
  