# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1041962789 0
# Node ID 80a582c1d40df31c8614f65da067b389bf4992c8
# Parent  8cf1af9a44688c9e150034f3b91fdaf70633550c
(cl-make-type-test): Use characterp.

diff -r 8cf1af9a4468 -r 80a582c1d40d lisp/emacs-lisp/cl-macs.el
--- a/lisp/emacs-lisp/cl-macs.el	Tue Jan 07 18:06:20 2003 +0000
+++ b/lisp/emacs-lisp/cl-macs.el	Tue Jan 07 18:06:29 2003 +0000
@@ -2241,7 +2241,7 @@
 	    ((eq type 'real) `(numberp ,val))
 	    ((eq type 'fixnum) `(integerp ,val))
 	    ;; FIXME: Should `character' accept things like ?\C-\M-a ?  -stef
-	    ((memq type '(character string-char)) `(char-valid-p ,val))
+	    ((memq type '(character string-char)) `(characterp ,val))
 	    (t
 	     (let* ((name (symbol-name type))
 		    (namep (intern (concat name "p"))))