From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 6 Jul 2020 22:04:54 +0000 (-0400)
Subject: * lisp/emacs-lisp/cl-macs.el (cl-deftype-satisfies): Add `keyword`
X-Git-Tag: emacs-28.0.90~7060
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6b80ff3c465f87a31ccaaf41b2b521075f43632d;p=emacs.git

* lisp/emacs-lisp/cl-macs.el (cl-deftype-satisfies): Add `keyword`
---

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index a3e72c4b00d..6c1426ce5cb 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -3138,23 +3138,29 @@ Of course, we really can't know that for sure, so it's just a heuristic."
                (cdr (assq sym byte-compile-macro-environment))))))
 
 (pcase-dolist (`(,type . ,pred)
-               '((null		. null)
+               ;; Mostly kept in alphabetical order.
+               '((array		. arrayp)
                  (atom		. atom)
-                 (real		. numberp)
-                 (fixnum	. integerp)
                  (base-char	. characterp)
+                 (boolean	. booleanp)
+                 (bool-vector	. bool-vector-p)
+                 (buffer	. bufferp)
                  (character	. natnump)
-                 ;; "Obvious" mappings.
-                 (string	. stringp)
-                 (list		. listp)
+                 (char-table	. char-table-p)
                  (cons		. consp)
-                 (symbol	. symbolp)
+                 (fixnum	. integerp)
+                 (float		. floatp)
                  (function	. functionp)
                  (integer	. integerp)
-                 (float		. floatp)
-                 (boolean	. booleanp)
+                 (keyword	. keywordp)
+                 (list		. listp)
+                 (number	. numberp)
+                 (null		. null)
+                 (real		. numberp)
+                 (sequence	. sequencep)
+                 (string	. stringp)
+                 (symbol	. symbolp)
                  (vector	. vectorp)
-                 (array		. arrayp)
                  ;; FIXME: Do we really want to consider this a type?
                  (integer-or-marker . integer-or-marker-p)
                  ))