* lisp/emacs-lisp/cl-macs.el (fixnum, bignum): Fix type definitions

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index caf8bba2f8c8b4850b0473721ddd873c8f7de3b0..4ef1948b0fe46da25cf4f6fe0d05550546c46b64 100644 (file)
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -3332,14 +3332,16 @@ Of course, we really can't know that for sure, so it's just a heuristic."
                '((array                . arrayp)
                  (atom         . atom)
                  (base-char    . characterp)
+                 (bignum       . bignump)
                  (boolean      . booleanp)
                  (bool-vector  . bool-vector-p)
                  (buffer       . bufferp)
                  (character    . natnump)
                  (char-table   . char-table-p)
+                 (command      . commandp)
                  (hash-table   . hash-table-p)
                  (cons         . consp)
-                 (fixnum       . integerp)
+                 (fixnum       . fixnump)
                  (float                . floatp)
                  (function     . functionp)
                  (integer      . integerp)
@@ -3597,8 +3599,6 @@ The type name can then be used in `cl-typecase', `cl-check-type', etc."
 (cl-deftype extended-char () '(and character (not base-char)))
 ;; Define fixnum so `cl-typep' recognize it and the type check emitted
 ;; by `cl-the' is effective.
-(cl-deftype fixnum () 'fixnump)
-(cl-deftype bignum () 'bignump)
 
 ;;; Additional functions that we can now define because we've defined
 ;;; `cl-defsubst' and `cl-typep'.