diff --git a/code/debug.lisp b/code/debug.lisp index 2d814cc3b97ec53ef6978aeafdd8f3a1381d7016..2c1b307b673c48af9a1c91a09d956d5de5643b04 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