From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 14 Sep 2020 19:22:19 +0000 (+0200)
Subject: * lisp/emacs-lisp/cl-macs.el: Define fixnum and bignum.
X-Git-Tag: emacs-28.0.90~2727^2~441
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c9a9b0766f43d1acf56e2ff19eb9505b454423a0;p=emacs.git

* lisp/emacs-lisp/cl-macs.el: Define fixnum and bignum.

Define fixnum so `cl-typep' recognize it and the type check emitted by
`cl-the' is effective.
---

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 2730e8f24a3..e7c7374976a 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -3437,6 +3437,10 @@ The type name can then be used in `cl-typecase', `cl-check-type', etc."
           (cl-function (lambda (&cl-defs ('*) ,@arglist) ,@body)))))
 
 (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'.