Add TOKEN-ATOMIC for better tokenization statistics

This commit is contained in:
John Lorentzson 2025-07-09 14:37:47 +02:00
parent 2b0bcecc66
commit 352f9e897e

View file

@ -65,8 +65,10 @@ reading immediately. Should be a subset of *SPECIAL-TOKEN-CHARS*.")
;; Special syntax tokens ;; Special syntax tokens
(defclass token-atomic (token) ())
(defmacro define-atomic-token (name) (defmacro define-atomic-token (name)
`(defclass ,name (token) ())) `(defclass ,name (token-atomic) ()))
(define-atomic-token token-end-of-statement) (define-atomic-token token-end-of-statement)