Commit 6b80ff3c authored by Stefan Monnier's avatar Stefan Monnier

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

parent 3f990c3c
Pipeline #5996 failed with stage
in 14 seconds
......@@ -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)
))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment