Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 12:31:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

lisp/emacs-lisp/cl-macs.el (cl-typep): Undo accidental change

Browse source
This commit is contained in:
Stefan Monnier 2026-04-08 16:38:19 -04:00
parent 24ff3398c8
commit 1df537e8eb
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/emacs-lisp/cl-macs.el
View file

@ -3626,11 +3626,11 @@ Of course, we really can't know that for sure, so it's just a heuristic."
(let* ((name (symbol-name type))
(namep (intern (concat name "p"))))
(cond
;; ((cl--macroexp-fboundp namep) (inline-quote (funcall #',namep ,val)))
;; ((cl--macroexp-fboundp
;; (setq namep (intern (concat name "-p"))))
;; (inline-quote (funcall #',namep ,val)))
;; ((cl--macroexp-fboundp type) (inline-quote (funcall #',type ,val)))
((cl--macroexp-fboundp namep) (inline-quote (funcall #',namep ,val)))
((cl--macroexp-fboundp
(setq namep (intern (concat name "-p"))))
(inline-quote (funcall #',namep ,val)))
((cl--macroexp-fboundp type) (inline-quote (funcall #',type ,val)))
(t (error "Unknown type %S" type))))
nil nil type))
(type (error "Bad type spec: %S" type)))))