From ed264a27262baeed493cdde338873bf4afc3721c Mon Sep 17 00:00:00 2001
From: cxxxr <g23tlm@gmail.com>
Date: Wed, 16 Aug 2023 22:32:00 +0900
Subject: [PATCH] *print-case* = :downcase

---
 micros.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/micros.lisp b/micros.lisp
index 9695ab8..449d12b 100644
--- a/micros.lisp
+++ b/micros.lisp
@@ -2599,7 +2599,8 @@ Record compiler notes signalled as `compiler-condition's."
     (*print-escape* . t)
     (*print-lines* . nil)
     (*print-level* . nil)
-    (*print-length* . nil)))
+    (*print-length* . nil)
+    (*print-case* . :downcase)))
 
 (defun apply-macro-expander (expander string)
   (with-buffer-syntax ()