# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1007112017 0
# Node ID b0754865d85c0bc5f83be53ca18ab65d1645a744
# Parent  722fe545e535d299f2ab65fc117cbf30abc06b6d
(cl-make-type-test): Fix paren typo.

diff -r 722fe545e535 -r b0754865d85c lisp/emacs-lisp/cl-macs.el
--- a/lisp/emacs-lisp/cl-macs.el	Fri Nov 30 09:13:21 2001 +0000
+++ b/lisp/emacs-lisp/cl-macs.el	Fri Nov 30 09:20:17 2001 +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)) `(char-valid-p ,val))
 	    (t
 	     (let* ((name (symbol-name type))
 		    (namep (intern (concat name "p"))))