diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 1 |
2 files changed, 5 insertions, 0 deletions
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 <bojohan@users.sourceforge.net> (tiny change) + + * emacs-lisp/cl-macs.el (cl-make-type-test): Add `atom' type. + 2005-07-15 Luc Teirlinck <teirllm@auburn.edu> * 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)) |