性能优化求大神指导

Emacs 26.1 以及之前的 pcase 用的是 eq,不知道后来怎么就改成 eql 了,好像 NEWS 也没有解释

~ $ emacs-26.1 -Q --batch --eval "(print (macroexpand '(pcase 1 (1 t))))"

(if (eq 1 1) (progn t) nil)
~ $ emacs -Q --batch --eval "(print (macroexpand '(pcase 1 (1 t))))"

(if (eql 1 1) (progn t) nil)