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

[Stefan Monnier]

branch: master
commit 6b80ff3c465f87a31ccaaf41b2b521075f43632d
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * lisp/emacs-lisp/cl-macs.el (cl-deftype-satisfies): Add `keyword`
---
 lisp/emacs-lisp/cl-macs.el | 26 ++++++++++++++++----------
 1 file changed, 16 insertions(+), 10 deletions(-)

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index a3e72c4..6c1426c 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)
                  ))