From b1f45eadfda713f9ae82f41560d416794feaf094 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Wed, 11 Aug 2004 09:28:57 +0000
Subject: [PATCH] Make format.x.22 case insensitive

---
 ansi-tests/format-x.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ansi-tests/format-x.lsp b/ansi-tests/format-x.lsp
index 51d4f8ad..54e6137c 100644
--- a/ansi-tests/format-x.lsp
+++ b/ansi-tests/format-x.lsp
@@ -319,7 +319,7 @@
    (loop for i from 0 to 10
 	 for args = (make-list i)
 	 for s = (apply #'format nil "~#x" #x1b3fe args)
-	 collect s))
+	 collect (string-upcase s)))
   "1B3FE"
   "1B3FE"
   "1B3FE"
-- 
GitLab