;; Some special punctuation sequences are single tokens.
("..." (values :ellipsis nil))
+ ("==" (values :eq))
+ ("!=" (values :ne))
+ ("<=" (values :le))
+ (">=" (values :ge))
+ ("&&" (values :and))
+ ("||" (values :or))
+ ("<<" (values :shl))
+ (">>" (values :shr))
;; Any other character is punctuation.
(:any (values it nil))