From dc338e19802af00c7f07fe1a6b12e87f6259d7f8 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 30 Nov 2001 09:20:17 +0000 Subject: [PATCH] (cl-make-type-test): Fix paren typo. --- lisp/emacs-lisp/cl-macs.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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")))) -- 2.39.5