From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 4 Dec 2015 13:28:39 +0000 (-0500)
Subject: * lisp/emacs-lisp/cl-macs.el (character): Can't be negative
X-Git-Tag: emacs-25.0.90~547
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3a9df7589ae189fc34a5fab98e82d85d2d40433f;p=emacs.git

* lisp/emacs-lisp/cl-macs.el (character): Can't be negative

Fixes (bug#21701)
---

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 09d2d3f9a5e..c8aad3aafc8 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2885,7 +2885,7 @@ Of course, we really can't know that for sure, so it's just a heuristic."
 (put 'real 'cl-deftype-satisfies #'numberp)
 (put 'fixnum 'cl-deftype-satisfies #'integerp)
 (put 'base-char 'cl-deftype-satisfies #'characterp)
-(put 'character 'cl-deftype-satisfies #'integerp)
+(put 'character 'cl-deftype-satisfies #'natnump)
 
 
 ;;;###autoload