From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 30 Nov 2001 09:20:17 +0000 (+0000)
Subject: (cl-make-type-test): Fix paren typo.
X-Git-Tag: ttn-vms-21-2-B4~18013
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dc338e19802af00c7f07fe1a6b12e87f6259d7f8;p=emacs.git

(cl-make-type-test): Fix paren typo.
---

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index c4761e93bc6..873032efdff 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2241,7 +2241,7 @@ The type name can then be used in `typecase', `check-type', etc."
 	    ((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"))))