(eval-and-compile
-;; As a result of profiling, CCL is slower than Emacs-Lisp, sigh...
+;; Although CCL program is not well optimized,
+;; as a result of profiling, CCL is bit slower than Emacs-Lisp, sigh...
(setq lex-ccl-execute nil)
(defvar lex-ccl-execute
((read r0)
(r2 += 1)
,(apply
- 'natset-gen-ccl-branch
+ 'natset-gen-ccl-branch ; 'natset-gen-ccl-branch256 produce quote big codes.
'r0
'(end)
(mapcar