From b6ac33834f1751cba7a151cedfc50035cfcde300 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Wed, 4 Mar 2026 20:25:29 +0100
Subject: [PATCH] reader: honor *read-suppress* in #\foo:bar reader

---
 src/c/reader/rtab_cl.d | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/c/reader/rtab_cl.d b/src/c/reader/rtab_cl.d
index ed0f4d2aa..5bbad94db 100644
--- a/src/c/reader/rtab_cl.d
+++ b/src/c/reader/rtab_cl.d
@@ -214,11 +214,16 @@ sharp_backslash_reader(cl_object in, cl_object c, cl_object d)
 {
   const cl_env_ptr the_env = ecl_process_env();
   cl_object token, string;
-  if (d != ECL_NIL && !read_suppress) {
+  bool suppress = read_suppress;
+  if (d != ECL_NIL && !suppress) {
     unlikely_if (!ECL_FIXNUMP(d) || d != ecl_make_fixnum(0)) {
       FEreader_error("~S is an illegal CHAR-FONT.", in, 1, d);
     }
   }
+  if(suppress) {
+    ecl_read_token(in, 1);
+    return ECL_NIL;
+  }
   token = ecl_read_token(in, 1);
   string = token->token.string;
   if (TOKEN_STRING_FILLP(string) == 1) {