anchor.diff:    (setf (returned-restart *application-frame*) restart)
     (frame-exit *application-frame*))
   
  -(define-clim-debugger-command (com-toggle-stack-frame-view 
  +(define-clim-debugger-command (com-toggle-stack-frame-view
   			       :name "Toggle stack frame view")
       ((stack-frame 'stack-frame))
   
  
positive.code: (defun simple-break ()
    (with-simple-restart  (continue "Continue from interrupt.")
      (with-debugger
        (invoke-debugger 
         (make-condition 'simple-error 
                         :format-control "Debugger test")))))
  
  
negative.code: 
  (defun make-debugger-pane ()
    (with-look-and-feel-realization ((frame-manager *application-frame*)
  				   *application-frame*)
      (make-pane 'debugger-pane
  	       :condition-info (the-condition *application-frame*)
  	       :display-function #'display-debugger
  	       :end-of-line-action :allow
  