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
|
||||
|
||||
(defclass token-atomic (token) ())
|
||||
|
||||
(defmacro define-atomic-token (name)
|
||||
`(defclass ,name (token) ()))
|
||||
`(defclass ,name (token-atomic) ()))
|
||||
|
||||
(define-atomic-token token-end-of-statement)
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue