# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1121513690 0
# Node ID 467ac2466cf104872a20db6b521026e0be1ff976
# Parent  71c7519df9b78831fa80b7a652922939c9e138d4
(cl-make-type-test): Add `atom' type.

diff -r 71c7519df9b7 -r 467ac2466cf1 lisp/emacs-lisp/cl-macs.el
--- a/lisp/emacs-lisp/cl-macs.el	Sat Jul 16 11:25:43 2005 +0000
+++ b/lisp/emacs-lisp/cl-macs.el	Sat Jul 16 11:34:50 2005 +0000
@@ -2384,6 +2384,7 @@
 	     (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))