[Eclipse-cvs] CVS eclipse

[ihatchondo]

Update of /project/eclipse/cvsroot/eclipse
In directory cl-net:/tmp/cvs-serv3297

Modified Files:
	eclipse.lisp global.lisp misc.lisp 
Log Message:
Add: backtrace for sbcl and clisp

--- /project/eclipse/cvsroot/eclipse/eclipse.lisp	2009/02/23 00:00:36	1.28
+++ /project/eclipse/cvsroot/eclipse/eclipse.lisp	2009/11/17 22:40:49	1.29
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
-;;; $Id: eclipse.lisp,v 1.28 2009/02/23 00:00:36 ihatchondo Exp $
+;;; $Id: eclipse.lisp,v 1.29 2009/11/17 22:40:49 ihatchondo Exp $
 ;;;
 ;;; ECLIPSE. The Common Lisp Window Manager.
 ;;; Copyright (C) 2002 Iban HATCHONDO
@@ -98,7 +98,9 @@
 	(t t))
     (exit-eclipse (condition) (signal condition))
     (error (condition)
-      #+cmu (debug::backtrace)
+      #+:cmu (debug::backtrace)
+      #+:sbcl (sb-debug::backtrace)
+      #+:clisp (system::print-backtrace)
       (format *error-output* "~&~A~&" condition))))
 
 (defun initialize-manager (display root-window)
--- /project/eclipse/cvsroot/eclipse/global.lisp	2009/11/17 21:47:07	1.35
+++ /project/eclipse/cvsroot/eclipse/global.lisp	2009/11/17 22:40:49	1.36
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
-;;; $Id: global.lisp,v 1.35 2009/11/17 21:47:07 ihatchondo Exp $
+;;; $Id: global.lisp,v 1.36 2009/11/17 22:40:49 ihatchondo Exp $
 ;;;
 ;;; This file is part of Eclipse.
 ;;; Copyright (C) 2001, 2002 Iban HATCHONDO
@@ -270,7 +270,9 @@
 	  "X error ~A ~:[~;with id~]~%=> ~{~A ~}~%" 
 	  err resource-id keys)
   (unless asynchronous
-    ;;#+:cmu (debug::backtrace most-positive-fixnum *stderr*)
+    ;; #+:cmu (debug::backtrace most-positive-fixnum *stderr*)
+    ;; #+:sbcl (sb-debug::backtrace most-positive-fixnum *stderr*)
+    ;; #+:clisp (system::print-backtrace :out *stderr*)
     )
   (when resource-id
     (let* ((resource (xlib::lookup-window dpy resource-id))
@@ -282,6 +284,8 @@
 	    (format *stderr* "Dead window removed from table~%"))
 	  (when (member resource-id (netwm:net-client-list *root-window*))
 	    (remove-window-from-client-lists resource *root*)))))
-  ;; #+cmu (debug::backtrace)
+  ;; #+:cmu (debug::backtrace)
+  ;; #+:sbcl (sb-debug:backtrace)
+  ;; #+:clisp (system::print-backtrace)
   (finish-output *stderr*)
   (error 'already-handled-xerror))
--- /project/eclipse/cvsroot/eclipse/misc.lisp	2009/11/17 17:30:00	1.46
+++ /project/eclipse/cvsroot/eclipse/misc.lisp	2009/11/17 22:40:49	1.47
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
-;;; $Id: misc.lisp,v 1.46 2009/11/17 17:30:00 ihatchondo Exp $
+;;; $Id: misc.lisp,v 1.47 2009/11/17 22:40:49 ihatchondo Exp $
 ;;;
 ;;; This file is part of Eclipse.
 ;;; Copyright (C) 2002 Iban HATCHONDO
@@ -64,7 +64,9 @@
      (declare (ignorable condition))
      ,@(when verbose
 	`((format *stderr* "error - ~A - : ~A~%" ',type condition)
-          ;; #+cmu (debug::backtrace)
+          ;; #+:cmu (debug::backtrace most-positive-fixnum *stderr*)
+          ;; #+:sbcl (sb-debug:backtrace most-positive-fixnum *stderr*)
+          ;; #+:clisp (system::print-backtrace :out *stderr*)
 	  (finish-output *stderr*)))
      ,(unless return `(throw ',(or throw type) ,@(or body '(nil))))))