diff options
| author | Andrea Corallo <akrl@sdf.org> | 2021-01-02 13:22:30 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2021-01-02 13:53:10 +0100 |
| commit | a3f2373bfb604af5570c86b4ffefb23296a5bfdd (patch) | |
| tree | 64fc2e5971acce50e67b03528878789ac44a95b3 /lisp/emacs-lisp | |
| parent | 43d0e8483e5b51aec1347b8a2ed53acae34a9811 (diff) | |
| download | emacs-a3f2373bfb604af5570c86b4ffefb23296a5bfdd.tar.gz emacs-a3f2373bfb604af5570c86b4ffefb23296a5bfdd.tar.bz2 emacs-a3f2373bfb604af5570c86b4ffefb23296a5bfdd.zip | |
* lisp/emacs-lisp/comp.el (comp-known-predicates): Some more tweaking.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 455fd72efcd..3247b19c5e2 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -503,15 +503,15 @@ Useful to hook into pass checkers.") (defconst comp-known-predicates '((arrayp . array) (atom . atom) - (characterp . base-char) + (characterp . fixnum) (booleanp . boolean) (bool-vector-p . bool-vector) (bufferp . buffer) - (natnump . character) + (natnump . (integer 0 *)) (char-table-p . char-table) (hash-table-p . hash-table) (consp . cons) - (integerp . fixnum) + (integerp . integer) (floatp . float) (functionp . (or function symbol)) (integerp . integer) @@ -519,7 +519,7 @@ Useful to hook into pass checkers.") (listp . list) (numberp . number) (null . null) - (numberp . real) + (numberp . number) (sequencep . sequence) (stringp . string) (symbolp . symbol) |