* 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 a3e72c4b00ddc6c08b3643d3b086ba7b53eb96e5..6c1426ce5cb4b37cf99c168784303700de7ca929 100644 (file)
--- 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)
                  ))