Add cl-struct specific optimizations to pcase.
commitd7d72624b29f0eeb2c242e976703e4755c6d7bef
authorStefan Monnier <monnier@iro.umontreal.ca>
Tue, 24 Mar 2015 03:40:06 +0000 (23 23:40 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Tue, 24 Mar 2015 03:40:06 +0000 (23 23:40 -0400)
treed08fe0858f3ddff12aed30604dd52f47efc870e9
parentae277259b1cf8d913893417e4ca284040f5a543f
Add cl-struct specific optimizations to pcase.

* lisp/emacs-lisp/cl-macs.el (cl--struct-all-parents)
(cl--pcase-mutually-exclusive-p): New functions.
(pcase--mutually-exclusive-p): Advise to optimize cl-struct patterns.

* lisp/emacs-lisp/pcase.el (pcase--split-pred): Handle quoted string.
lisp/ChangeLog
lisp/emacs-lisp/cl-macs.el
lisp/emacs-lisp/pcase.el