feature/native-comp a3f2373: * lisp/emacs-lisp/comp.el (comp-known-predicates): Some more tweaking.

[Andrea Corallo]

branch: feature/native-comp
commit a3f2373bfb604af5570c86b4ffefb23296a5bfdd
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * lisp/emacs-lisp/comp.el (comp-known-predicates): Some more tweaking.
---
 lisp/emacs-lisp/comp.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 455fd72..3247b19 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)