anchor.diff:    ()
     (:default-initargs :name :report))
   
  -(defsingleton restart-test-kind (lambda-kind)
  +(defsingleton restart-test-lambda-kind (lambda-kind)
     ()
     (:default-initargs :name :test))
   
  +;; (register-lambda-kind ...) ....
  +
   
   (defgeneric compute-restart-lambda (lambda-kind restart-kind application)
  -  #+NIL ;; rough prototype - need to do name mangling for each symbol
     (:method ((lambda-kind symbol) (restart-kind symbol)
               (application application))
  -    (let ((lk-singleton (find-class lambda-kind))
  -          (rk-singleton (find-clsss restart-kind)))
  +    (let ((lk-singleton (find-restart-lambda-kind lambda-kind))
  +          (rk-singleton (find-restart-kind restart-kind)))
         (compute-restart-lambda lk-singleton rk-singleton application))))
   
   
  -(defgeneric restart-function (lamba-kind restart-kind application)
  -(defgeneric (setf restart-function) (function lamba-kind restart-kind
  -                                     application))
  +(defgeneric restart-function (lambda-kind restart-kind application)
  +(defgeneric (setf restart-function) (function lambda-kind restart-kind application))
   
   
   ;; ----
  
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
  