mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

* Define `cl-satisfies-deftype' mapping predicate -> type

Browse source 
* lisp/emacs-lisp/cl-macs.el (cl-satisfies-deftype): Define symbol
	property as reverse of `cl-deftype-satisfies'.
This commit is contained in:
Andrea Corallo 2020-12-29 11:39:26 +01:00
parent ba41a183dd
commit e83c6994e1
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -3198,7 +3198,8 @@ Of course, we really can't know that for sure, so it's just a heuristic."
;; FIXME: Do we really want to consider this a type? ;; FIXME: Do we really want to consider this a type?
(integer-or-marker . integer-or-marker-p) (integer-or-marker . integer-or-marker-p)
)) ))
(put type 'cl-deftype-satisfies pred)) (put type 'cl-deftype-satisfies pred)
(put pred 'cl-satisfies-deftype type))
;;;###autoload ;;;###autoload
(define-inline cl-typep (val type) (define-inline cl-typep (val type)