Add TOKEN-ATOMIC for better tokenization statistics
This commit is contained in:
parent
2b0bcecc66
commit
352f9e897e
1 changed files with 3 additions and 1 deletions
|
@ -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)
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue