andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(cl-generic-generalizers): Skip types that need arguments

Browse source 
* lisp/emacs-lisp/cl-lib.el (cl-generic-generalizers) "cl-types-of":
make sure the atomic derived type is valid.
This commit is contained in:
Stefan Monnier 2025-05-06 22:53:01 -04:00
parent fc4d8ce951
commit 147113b3b5
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/emacs-lisp/cl-lib.el
View file

@ -568,10 +568,13 @@ If ALIST is non-nil, the new pairs are prepended to it."
nil
(declare-function cl--type-generalizers "cl-extra" (type))
(cl-defmethod cl-generic-generalizers :extra "cl-types-of" (type)
"Support for dispatch on cl-types."
(if (and (symbolp type) (cl-type-class-p (cl--find-class type)))
(cl--type-generalizers type)
(cl-call-next-method))))
"Support for dispatch on cl-types."
(if (and (symbolp type) (cl-type-class-p (cl--find-class type))
;; Make sure this derived type can be used without arguments.
(let ((expander (get type 'cl-deftype-handler)))
(and expander (ignore-error (funcall expander)))))
(cl--type-generalizers type)
(cl-call-next-method))))
(defun cl--old-struct-type-of (orig-fun object)
(or (and (vectorp object) (> (length object) 0)