From f1f596337bb2ef67234e9ecbe822bde51fc6eea4 Mon Sep 17 00:00:00 2001
From: "R. Matthew Emerson" <rme@acm.org>
Date: Thu, 23 May 2024 21:46:03 -0700
Subject: [PATCH] Allow non-terminating macro chars in read-symbol-token

---
 level-1/l1-reader.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/level-1/l1-reader.lisp b/level-1/l1-reader.lisp
index 4cbd9a10..2a27919f 100644
--- a/level-1/l1-reader.lisp
+++ b/level-1/l1-reader.lisp
@@ -2818,7 +2818,7 @@ initially NIL.")
     (declare (fixnum attr))
     (with-token-buffer (tb)
       (if (or (= attr $CHT_ILL)
-              (logbitp $cht_macbit attr)
+              (= attr $cht_tmac)
               (multiple-value-bind (escapes explicit-package nondots)
                   (%collect-xtoken tb stream firstch)
                 (declare (ignore nondots))