Mercurial > emacs
comparison lisp/emacs-lisp/cl-macs.el @ 64364:467ac2466cf1
(cl-make-type-test): Add `atom' type.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 16 Jul 2005 11:34:50 +0000 |
| parents | 18a818a2ee7c |
| children | f5c6d3e91a14 |
comparison
equal
deleted
inserted
replaced
| 64363:71c7519df9b7 | 64364:467ac2466cf1 |
|---|---|
| 2382 (if (symbolp type) | 2382 (if (symbolp type) |
| 2383 (cond ((get type 'cl-deftype-handler) | 2383 (cond ((get type 'cl-deftype-handler) |
| 2384 (cl-make-type-test val (funcall (get type 'cl-deftype-handler)))) | 2384 (cl-make-type-test val (funcall (get type 'cl-deftype-handler)))) |
| 2385 ((memq type '(nil t)) type) | 2385 ((memq type '(nil t)) type) |
| 2386 ((eq type 'null) `(null ,val)) | 2386 ((eq type 'null) `(null ,val)) |
| 2387 ((eq type 'atom) `(atom ,val)) | |
| 2387 ((eq type 'float) `(floatp-safe ,val)) | 2388 ((eq type 'float) `(floatp-safe ,val)) |
| 2388 ((eq type 'real) `(numberp ,val)) | 2389 ((eq type 'real) `(numberp ,val)) |
| 2389 ((eq type 'fixnum) `(integerp ,val)) | 2390 ((eq type 'fixnum) `(integerp ,val)) |
| 2390 ;; FIXME: Should `character' accept things like ?\C-\M-a ? -stef | 2391 ;; FIXME: Should `character' accept things like ?\C-\M-a ? -stef |
| 2391 ((memq type '(character string-char)) `(char-valid-p ,val)) | 2392 ((memq type '(character string-char)) `(char-valid-p ,val)) |