diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-09-14 21:22:19 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-09-14 23:06:42 +0200 |
| commit | c9a9b0766f43d1acf56e2ff19eb9505b454423a0 (patch) | |
| tree | 5aa12c86e7f3ab6066c52845e6e5d65cdf58476a /lisp/emacs-lisp | |
| parent | 95312717c726e390de26bd85341a17b163b40fd7 (diff) | |
| download | emacs-c9a9b0766f43d1acf56e2ff19eb9505b454423a0.tar.gz emacs-c9a9b0766f43d1acf56e2ff19eb9505b454423a0.tar.bz2 emacs-c9a9b0766f43d1acf56e2ff19eb9505b454423a0.zip | |
* 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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 4 |
1 files changed, 4 insertions, 0 deletions
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'. |