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