From 41def4d262a64eff5d04352055573f98b9ce611b Mon Sep 17 00:00:00 2001 From: emarsden <emarsden> Date: Mon, 23 Aug 2004 11:37:52 +0000 Subject: [PATCH] When naming a component in FIND-COMPONENT-NAME, don't require the component's context to be printable readably. Fixes a bug triggered by cl-pdf, where the context is a CLOS object which is not readably printable. --- compiler/ir1util.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp index 58f46068d..c7791cca1 100644 --- a/compiler/ir1util.lisp +++ b/compiler/ir1util.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/compiler/ir1util.lisp,v 1.105 2004/04/23 03:28:29 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1util.lisp,v 1.106 2004/08/23 11:37:52 emarsden Exp $") ;;; ;;; ********************************************************************** ;;; @@ -2088,7 +2088,7 @@ these can be NIL if unavailable or inapplicable.") (declare (ignore form)) (let ((*print-level* 2) (*print-pretty* nil)) - (format nil "~{~{~S~^ ~}~^ => ~}" context))))) + (format nil "~{~{~A~^ ~}~^ => ~}" context))))) ;;;; Condition system interface: -- GitLab