From 064d60028a917ba1fb061c232e5bbf1a50188e8e Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Fri, 23 Apr 2004 03:28:29 +0000
Subject: [PATCH] Change the ~A to ~S in FIND-COMPONENT-NAME, in case the
 context cannot be printed with ~A.  Hope this doesn't cause other problems,
 but this shows up when the context contains something like a condition object
 with unbound slots.

---
 compiler/ir1util.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp
index 0d6b796a3..58f46068d 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.104 2004/04/16 15:09:10 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1util.lisp,v 1.105 2004/04/23 03:28:29 rtoy 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 "~{~{~A~^ ~}~^ => ~}" context)))))
+	(format nil "~{~{~S~^ ~}~^ => ~}" context)))))
 
 
 ;;;; Condition system interface:
-- 
GitLab