anchor.diff:    (let ((*standard-output* pane))
       (slim:with-table (pane)
         (slim:row (slim:cell (bold (pane) (princ "Description:")))
  -		(slim:cell (princ (condition-message
  -				   (condition-info pane)))))
  +                (slim:cell (princ (condition-message
  +                                   (condition-info pane)))))
         (slim:row (slim:cell (bold (pane) (princ "Condition:")))
  -		(slim:cell (with-drawing-options (pane :ink clim:+red+)
  -			     (with-output-as-presentation
  +                (slim:cell (with-drawing-options (pane :ink clim:+red+)
  +                             (with-output-as-presentation
                                    (pane (the-condition (condition-info pane)) 'inspect)
                                  (princ (type-of-condition (condition-info pane)))))))
         (when (condition-extra (condition-info pane))
  -	(slim:row (slim:cell (bold (pane) (princ "Extra:")))
  -		  (slim:cell
  -		    (clim:with-text-family (pane :fix)
  -		      (format t "~A" (condition-extra (condition-info pane))))))))
  +        (slim:row (slim:cell (bold (pane) (princ "Extra:")))
  +                  (slim:cell
  +                    (clim:with-text-family (pane :fix)
  +                      (format t "~A" (condition-extra (condition-info pane))))))))
       (fresh-line)
   
       (with-text-family (pane :sans-serif)
  
positive.code: ;;;
  ;;; For at quick test, you can use this code snippet:
  ;;;
  ;;; (clim-debugger:with-debugger
  ;;;   (+ 3 'abc))
  ;;;
  ;;; This is also nice :-)
  ;;;
  ;;; (clim-debugger:with-debugger
  ;;;   (clim-listener:run-listener :new-process t))
  
  ;;;
  
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)())
  