[slime-cvs] CVS slime

[CVS User tnorderhaug]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv13011

Modified Files:
	swank-rpc.lisp 
Log Message:
Eliminate swank-protocol-error.backtrace and call to safe-backtrace from swank-rpc.

--- /project/slime/cvsroot/slime/swank-rpc.lisp	2010/01/19 20:13:58	1.3
+++ /project/slime/cvsroot/slime/swank-rpc.lisp	2010/01/20 18:32:28	1.4
@@ -22,7 +22,6 @@
     #:destructure-case
     #:swank-protocol-error
     #:swank-protocol-error.condition
-    #:swank-protocol-error.backtrace
     #:make-swank-protocol-error
     #:*log-events*
     #:*log-output*
@@ -160,17 +159,13 @@
 
 ;;;;; Error handling
 
-;; A condition to include backtrace information
 (define-condition swank-protocol-error (error) 
-  ((condition :initarg :condition :reader swank-protocol-error.condition)
-   (backtrace :initarg :backtrace :reader swank-protocol-error.backtrace))
+  ((condition :initarg :condition :reader swank-protocol-error.condition))
   (:report (lambda (condition stream)
              (princ (swank-protocol-error.condition condition) stream))))
 
 (defun make-swank-protocol-error (condition)
-  (make-condition 'swank-protocol-error :condition condition
-                  ; should be eliminated from here and covered in swank module:
-                  :backtrace (funcall (intern "SAFE-BACKTRACE" "SWANK"))))
+  (make-condition 'swank-protocol-error :condition condition))
 
 ;;;;; Logging