[mcclim-cvs] CVS mcclim/Apps/Debugger

[ahefner]

Update of /project/mcclim/cvsroot/mcclim/Apps/Debugger
In directory clnet:/tmp/cvs-serv32572

Modified Files:
	clim-debugger.lisp 
Log Message:
Patch from Cyrus Harmon:

"The following patch fixes the mcclim debugger to work with swank. The
condition-references slot is now gone, although there is some remnant
of this in the 'compiler-condition and in the condition-extras. I
think the right thing to do is to remove the slot from 'debugger-info,
BICBW."



--- /project/mcclim/cvsroot/mcclim/Apps/Debugger/clim-debugger.lisp	2005/04/26 03:19:34	1.1
+++ /project/mcclim/cvsroot/mcclim/Apps/Debugger/clim-debugger.lisp	2008/01/27 04:52:11	1.2
@@ -106,8 +106,6 @@
 	              :initarg  :type-of-condition)
    (condition-extra :accessor condition-extra
 	            :initarg  :condition-extra)
-   (condition-references :accessor condition-references
-	                 :initarg  :condition-references)
    (restarts :accessor restarts
 	     :initarg :restarts)
    (backtrace :accessor backtrace
@@ -273,10 +271,6 @@
                                                             pane)))
       (when (condition-extra (condition-info pane))
         (std-form pane "Extra:" (condition-extra (condition-info pane))
-                  :family :fix))
-      (when (condition-references (condition-info pane))
-        (std-form pane "References:" (condition-references (condition-info
-                                                            pane))
                   :family :fix)))
     (fresh-line)
     
@@ -389,7 +383,6 @@
 	      :type-of-condition    (type-of condition)
 	      :condition-message    (swank::safe-condition-message condition)
 	      :condition-extra      (swank::condition-extras       condition)
-	      :condition-references (swank::condition-references   condition)
 	      :restarts             (compute-restarts)
 	      :backtrace            (compute-backtrace 0 20)))
 	    (run-debugger-frame))