[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 9445d7b: * lisp/emacs-lisp/cl-macs.el (fixnum, bignum): Fix type
From: |
Stefan Monnier |
Subject: |
master 9445d7b: * lisp/emacs-lisp/cl-macs.el (fixnum, bignum): Fix type definitions |
Date: |
Wed, 11 Aug 2021 22:42:14 -0400 (EDT) |
branch: master
commit 9445d7bf8c3f73a400e9eb6bb3617788d9421b62
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* lisp/emacs-lisp/cl-macs.el (fixnum, bignum): Fix type definitions
---
lisp/emacs-lisp/cl-macs.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index caf8bba..4ef1948 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'.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 9445d7b: * lisp/emacs-lisp/cl-macs.el (fixnum, bignum): Fix type definitions,
Stefan Monnier <=