From 578f8106451f0099d4eb8749500938b78676a445 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 16 Jul 2005 11:35:33 +0000 Subject: [PATCH] (cl-make-type-test): Add `atom' type. --- lisp/ChangeLog | 4 ++++ lisp/emacs-lisp/cl-macs.el | 1 + 2 files changed, 5 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e2481a46642..a605f906662 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2005-07-16 Johan Bockgard (tiny change) + + * emacs-lisp/cl-macs.el (cl-make-type-test): Add `atom' type. + 2005-07-15 Luc Teirlinck * emacs-lisp/easy-mmode.el (define-minor-mode): Avoid constructing 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)) -- 2.39.2