anchor.diff:  
   (define-clim-debugger-command (com-invoke-restart :name "Invoke restart")
       ((restart 'restart))
  -  (setf *returned-restart* restart)
  +  (setf (returned-restart *application-frame*) restart)
     (frame-exit *application-frame*))
   
   (define-clim-debugger-command (com-toggle-stack-frame-view 
  
positive.code: (defclass debugger-pane (application-pane)
    ((condition-info :reader condition-info :initarg :condition-info)))
  
  ;; FIXME - These two variables should be removed!
  ;; Used to return the chosen restart in the debugger.
  (defparameter *returned-restart* nil)
  
  ;; Used to provide the clim frame with the condition info that
  ;; triggered the debugger.
  (defparameter *condition* nil)
  
  (defun make-debugger-pane ()
    (with-look-and-feel-realization ((frame-manager *application-frame*)
  				   *application-frame*) 
      (make-pane 'debugger-pane 
  	       :condition-info *condition*
  	       :display-function #'display-debugger
  	       :end-of-line-action :allow
  	       :end-of-page-action :scroll)))
  
  (define-application-frame clim-debugger ()
    ()
    (:panes
     (debugger-pane (make-debugger-pane)))
    (:layouts
     (default (vertically () (scrolling () debugger-pane))))
    (:geometry :height 480 :width #.(* 480 slim:+golden-ratio+)))
  
  (defun run-debugger-frame ()
    (run-frame-top-level
     (make-application-frame 'clim-debugger)))
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;   Presentation types   ;;;;;;;;;;;;;;;;;;;;;;
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
negative.code: ;;;
  ;;; - Goto source location is not supported, but I think this could be
  ;;;   done through slime.
  ;;;
  ;;; - There need to added keyboard shortcuts. 'q' should exit the
  ;;;   debugger with an abort. '0', '1' and so forth should activate
  