From f1f1f1b8bf03048bdae6c6f528ec692865443338 Mon Sep 17 00:00:00 2001
From: camm <camm@localhost>
Date: Fri, 30 Jan 2004 04:49:33 +0000
Subject: [PATCH] Avoid ~P escape with no arguments in ansi-tests/rt.lsp --
 FIXME --  this should be made to work

---
 ansi-tests/rt.lsp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ansi-tests/rt.lsp b/ansi-tests/rt.lsp
index 6c81ce5e..84f34d2a 100644
--- a/ansi-tests/rt.lsp
+++ b/ansi-tests/rt.lsp
@@ -260,7 +260,8 @@
                       ~{~S~^~%~15t~}.~%"
 			    (length r) r)))
 	     (format t "~A" s))
-	   (error () (format t "Actual value~P: #<error during printing>~%"))
+	   (error () #+gcl (format t "Actual value: #<error during printing>~%")
+		     #-gcl (format t "Actual value~P: #<error during printing>~%"))
 	   )))))
   (when (not (pend entry)) *test*))
 
-- 
GitLab