From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 12 Aug 2021 02:42:06 +0000 (-0400)
Subject: * lisp/emacs-lisp/cl-macs.el (fixnum, bignum): Fix type definitions
X-Git-Tag: emacs-28.0.90~1544
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9445d7bf8c3f73a400e9eb6bb3617788d9421b62;p=emacs.git

* 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 caf8bba2f8c..4ef1948b0fe 100644
--- 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'.