mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-10 08:10:21 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
Define fixnum so `cl-typep' recognize it and the type check emitted by
`cl-the' is effective.
This commit is contained in:
Andrea Corallo 2020-09-14 21:22:19 +02:00
parent 95312717c7
commit c9a9b0766f
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/cl-macs.el
View file

@ -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'.