diff options
| author | Stefan Monnier | 2001-11-30 09:20:17 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2001-11-30 09:20:17 +0000 |
| commit | dc338e19802af00c7f07fe1a6b12e87f6259d7f8 (patch) | |
| tree | 47dfeb76375917bf02d8c92addccb4f8f5017f27 | |
| parent | 72397ff1a9b0d94ccf77c9bda86bd37657d21ffc (diff) | |
| download | emacs-dc338e19802af00c7f07fe1a6b12e87f6259d7f8.tar.gz emacs-dc338e19802af00c7f07fe1a6b12e87f6259d7f8.zip | |
(cl-make-type-test): Fix paren typo.
| -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." | |||
| 2241 | ((eq type 'real) `(numberp ,val)) | 2241 | ((eq type 'real) `(numberp ,val)) |
| 2242 | ((eq type 'fixnum) `(integerp ,val)) | 2242 | ((eq type 'fixnum) `(integerp ,val)) |
| 2243 | ;; FIXME: Should `character' accept things like ?\C-\M-a ? -stef | 2243 | ;; FIXME: Should `character' accept things like ?\C-\M-a ? -stef |
| 2244 | ((memq type '(character string-char))) `(char-valid-p ,val) | 2244 | ((memq type '(character string-char)) `(char-valid-p ,val)) |
| 2245 | (t | 2245 | (t |
| 2246 | (let* ((name (symbol-name type)) | 2246 | (let* ((name (symbol-name type)) |
| 2247 | (namep (intern (concat name "p")))) | 2247 | (namep (intern (concat name "p")))) |