From 8c236b1522dd3fb38f1d4d7829b0e78c9bd152f3 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Fri, 23 May 2008 00:01:59 +0000 Subject: [PATCH] Include the object address when there's an error in printing the object. --- code/debug.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/code/debug.lisp b/code/debug.lisp index 2d814cc3b..2c1b307b6 100644 --- a/code/debug.lisp +++ b/code/debug.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.64 2004/08/30 14:55:38 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.65 2008/05/23 00:01:59 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -618,7 +618,9 @@ See the CMU Common Lisp User's Manual for more information. object) (error (cond) (declare (ignore cond)) - (make-unprintable-object "error printing object")))) + (make-unprintable-object + (format nil "error printing object {~X}" + (kernel:get-lisp-obj-address object)))))) (defun frame-call-arg (var location frame) (lambda-var-dispatch var location -- GitLab