From bc0dfa2163481481d2918aa3961f2ba886ebf204 Mon Sep 17 00:00:00 2001
From: Dave Cooper <david.cooper@genworks.com>
Date: Mon, 3 Aug 2026 21:02:08 -0400
Subject: [PATCH] Use lowercase nil in printer.lisp defvar (fixes load under
 readtable-case :preserve or :invert).

---
 printer.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/printer.lisp b/printer.lisp
index 7a1bfe0..6ea3550 100644
--- a/printer.lisp
+++ b/printer.lisp
@@ -76,7 +76,7 @@
                 (when (eql c #\>)
                   (setf state :text)))))))
 
-(defvar *generate-header-ids* NIL
+(defvar *generate-header-ids* nil
   "Whether ID attributes should be generated for header elements.")
 
 ;; todo: minimize extra newlines...