From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 16 Jul 2005 11:35:33 +0000 (+0000)
Subject: (cl-make-type-test): Add `atom' type.
X-Git-Tag: emacs-pretest-22.0.90~8112
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=578f8106451f0099d4eb8749500938b78676a445;p=emacs.git

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

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))