anchor.diff:      (swank-backend::call-with-debugging-environment
        (lambda ()
          (unwind-protect
  -	    (setf (the-condition debugger-frame)
  -		  (make-instance
  -		   'debugger-info
  -		   :the-condition        condition
  -		   :type-of-condition    (type-of condition)
  -		   :condition-message    (swank::safe-condition-message condition)
  -		   :condition-extra      (swank::condition-extras       condition)
  -		   :restarts             (compute-restarts)
  -		   :backtrace (compute-backtrace 0 nil)))
  -	 (run-frame-top-level debugger-frame)
  -	 (let ((restart (returned-restart debugger-frame)))
  -	   (if restart
  -	       (let ((*debugger-hook* me-or-my-encapsulation))
  -		 (invoke-restart-interactively restart))
  -	       (abort))))))))
  +            (setf (the-condition debugger-frame)
  +                  (make-instance
  +                   'debugger-info
  +                   :the-condition        condition
  +                   :type-of-condition    (type-of condition)
  +                   :condition-message    (swank::safe-condition-message condition)
  +                   :condition-extra      (swank::condition-extras       condition)
  +                   :restarts             (compute-restarts)
  +                   :backtrace (compute-backtrace 0 nil)))
  +         (run-frame-top-level debugger-frame)
  +         (let ((restart (returned-restart debugger-frame)))
  +           (if restart
  +               (let ((*debugger-hook* me-or-my-encapsulation))
  +                 (invoke-restart-interactively restart))
  +               (abort))))))))
   
   (defmacro with-debugger (options &body body)
  -  (declare (ignore options))
  -  `(let ((*debugger-hook* #'debugger)
  -	 #+sbcl (sb-ext:*invoke-debugger-hook* #'debugger))
  +  (assert (null options) nil "Options should be empty.")
  +  `(let ((bt:*default-special-bindings*
  +          (list* '(*debugger-hook* . #'debugger)
  +                 #+sbcl '(sb-ext:*invoke-debugger-hook* . #'debugger)
  +                 bt:*default-special-bindings*))
  +         (*debugger-hook* #'debugger)
  +         #+sbcl
  +         (sb-ext:*invoke-debugger-hook* #'debugger))
        ,@body))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
positive.code:     (setf #1=(active-frame pane) (max (1- #1#) 0))))
  
  (define-clim-debugger-command (com-eval :name "Eval in frame" :menu t
  					:keystroke :eval) ((form clim:string))
    (let* ((dbg-pane (clim:find-pane-named *application-frame* 'debugger-pane))
           (active-frame (active-frame dbg-pane)))
      (swank:eval-string-in-frame
       form active-frame (swank-backend:frame-package active-frame))))
  
  (define-clim-debugger-command (com-quit :name "Quit" :menu t
  					:keystroke :exit) ()
    (frame-exit *application-frame*))
  
  (define-clim-debugger-command (com-invoke-restart :name "Invoke restart")
  
negative.code: 
  (defclass debugger-info ()
    ((the-condition :accessor the-condition
                    :initarg :the-condition)
     (condition-message :accessor condition-message
                        :initarg  :condition-message)
     (type-of-condition :accessor type-of-condition
                        :initarg  :type-of-condition)
     (condition-extra :accessor condition-extra
                      :initarg  :condition-extra)
     (restarts :accessor restarts
               :initarg :restarts)
     (backtrace :accessor backtrace
                :initarg :backtrace)))
  
  (defclass minimized-stack-frame-view (textual-view)())
  (defclass maximized-stack-frame-view (textual-view)())
  