anchor.diff:    (frame-exit *application-frame*))
   
   (define-clim-debugger-command (com-toggle-stack-frame-view
  -			       :name "Toggle stack frame view")
  +                               :name "Toggle stack frame view")
       ((stack-frame 'stack-frame))
   
     (let ((dbg-pane (clim:find-pane-named *application-frame* 'debugger-pane)))
  
positive.code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (define-clim-debugger-command (com-more :name "More backtraces"
  					:keystroke :more)
      ()
    (let ((pane (clim:find-pane-named *application-frame* 'debugger-pane)))
      (setf #1=(shown-frames pane)
  	  (min (+ #1# 10) (length (backtrace (condition-info pane)))))))
  
  (define-clim-debugger-command (com-invoke-inspector
  			       :name "Invoke inspector")
      ((obj inspect))
    (clouseau:inspector obj :new-process t))
  
  (define-clim-debugger-command (com-refresh :name "Refresh" :menu t
  					   :keystroke #\r) ()
    (change-space-requirements (frame-panes *application-frame*)))
  
  (define-clim-debugger-command (com-next :keystroke :next)
  
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)())
  