mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/cl-macs.el (list): Predefine predicate by hand

Browse source
This commit is contained in:
Stefan Monnier 2024-03-28 12:27:54 -04:00
parent 6c1a11078b
commit de9e913f9e
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -3470,6 +3470,10 @@ Of course, we really can't know that for sure, so it's just a heuristic."
(keyword . keywordp) ;Would need `keyword-with-pos`. (keyword . keywordp) ;Would need `keyword-with-pos`.
(natnum . natnump) ;Subtype of fixnum & bignum. (natnum . natnump) ;Subtype of fixnum & bignum.
(real . numberp) ;Not clear where it would fit. (real . numberp) ;Not clear where it would fit.
;; This one is redundant, but we keep it to silence a
;; warning during the early bootstrap when `cl-seq.el' gets
;; loaded before `cl-preloaded.el' is defined.
(list . listp)
)) ))
(put type 'cl-deftype-satisfies pred)) (put type 'cl-deftype-satisfies pred))