diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-11-30 09:20:17 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-11-30 09:20:17 +0000 |
| commit | dc338e19802af00c7f07fe1a6b12e87f6259d7f8 (patch) | |
| tree | 47dfeb76375917bf02d8c92addccb4f8f5017f27 /lisp/emacs-lisp | |
| parent | 72397ff1a9b0d94ccf77c9bda86bd37657d21ffc (diff) | |
| download | emacs-dc338e19802af00c7f07fe1a6b12e87f6259d7f8.tar.gz emacs-dc338e19802af00c7f07fe1a6b12e87f6259d7f8.tar.bz2 emacs-dc338e19802af00c7f07fe1a6b12e87f6259d7f8.zip | |
(cl-make-type-test): Fix paren typo.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 2 |
1 files changed, 1 insertions, 1 deletions
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")))) |