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))))))