martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 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
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)))))