Allow non-terminating macro chars in read-symbol-token

Clozure · May 24, 2024 · f1f5963 · f1f5963
1 parent d72be15
commit f1f5963
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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))