diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2005-07-16 11:35:33 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2005-07-16 11:35:33 +0000 |
| commit | 578f8106451f0099d4eb8749500938b78676a445 (patch) | |
| tree | dd142a6a05a661f84781b1274d79b1b9e48d5689 /lisp/emacs-lisp | |
| parent | af621bc3f0794b78dc2f272ebd9c8c44e3b46a19 (diff) | |
| download | emacs-578f8106451f0099d4eb8749500938b78676a445.tar.gz emacs-578f8106451f0099d4eb8749500938b78676a445.tar.bz2 emacs-578f8106451f0099d4eb8749500938b78676a445.zip | |
(cl-make-type-test): Add `atom' type.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 952ca6ebeac..db8c66105db 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -2384,6 +2384,7 @@ The type name can then be used in `typecase', `check-type', etc." (cl-make-type-test val (funcall (get type 'cl-deftype-handler)))) ((memq type '(nil t)) type) ((eq type 'null) `(null ,val)) + ((eq type 'atom) `(atom ,val)) ((eq type 'float) `(floatp-safe ,val)) ((eq type 'real) `(numberp ,val)) ((eq type 'fixnum) `(integerp ,val)) |