diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-08-11 22:42:06 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-08-11 22:42:06 -0400 |
| commit | 9445d7bf8c3f73a400e9eb6bb3617788d9421b62 (patch) | |
| tree | 754e1aeed5eabe0a7bb5595095c6952d02f3decb /lisp/emacs-lisp | |
| parent | 8dd6120594569a1d8186211963094f53caa7a6ed (diff) | |
| download | emacs-9445d7bf8c3f73a400e9eb6bb3617788d9421b62.tar.gz emacs-9445d7bf8c3f73a400e9eb6bb3617788d9421b62.tar.bz2 emacs-9445d7bf8c3f73a400e9eb6bb3617788d9421b62.zip | |
* lisp/emacs-lisp/cl-macs.el (fixnum, bignum): Fix type definitions
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 6 |
1 files changed, 3 insertions, 3 deletions
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'. |