(cl-make-type-test): Add `atom' type.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e2481a466428323bae7b834534eec29358cfc6c5..a605f906662dd69299ea4587361ec55ca69ce85a 100644 (file)
--- 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 952ca6ebeaca180ad5f68d903197f07c848ea752..db8c66105db917ed8d13dccf23ae046a5b637f1c 100644 (file)
--- 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))