Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 19:07:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/emacs-lisp/cl-generic.el (cl-generic--oclosure-generalizer): Fix precedence

Browse source
This commit is contained in:
Stefan Monnier 2021-12-18 23:05:26 -05:00
parent afa68def26
commit e65e2bd0aa
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/emacs-lisp/cl-generic.el
View file

@ -1279,6 +1279,9 @@ Used internally for the (major-mode MODE) context specializers."
;;; Dispatch on OClosure type
;; It would make sense to put this into `oclosure.el' except that when
;; `oclosure.el' is loaded `cl-defmethod' is not available yet.
(defun cl--generic-oclosure-tag (name &rest _)
`(oclosure-type ,name))
@ -1289,7 +1292,11 @@ Used internally for the (major-mode MODE) context specializers."
(cl--class-allparents class)))))
(cl-generic-define-generalizer cl-generic--oclosure-generalizer
50 #'cl--generic-oclosure-tag
;; Give slightly higher priority than the struct specializer, so that
;; for a generic function with methods dispatching structs and on OClosures,
;; we first try `oclosure-type' before `type-of' since `type-of' will return
;; non-nil for an OClosure as well.
51 #'cl--generic-oclosure-tag
#'cl-generic--oclosure-specializers)
(cl-defmethod cl-generic-generalizers :extra "oclosure-struct" (type)