Mercurial > hg > xemacs-beta

comparison lisp/cl-macs.el @ 5438:8d29f1c4bb98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with 21.5 trunk.
author Mats Lidell <matsl@xemacs.org>
date Fri, 26 Nov 2010 06:43:36 +0100
parents 002cb5224e4f 09fed7053634
children 6506fcb40fcf
comparison
equal deleted inserted replaced
5437:002cb5224e4f 5438:8d29f1c4bb98
3112 (cons (car type) 3112 (cons (car type)
3113 (mapcar #'(lambda (x) (cl-make-type-test val x)) 3113 (mapcar #'(lambda (x) (cl-make-type-test val x))
3114 (cdr type)))) 3114 (cdr type))))
3115 ((memq (car-safe type) '(member member*)) 3115 ((memq (car-safe type) '(member member*))
3116 (list 'and (list 'member* val (list 'quote (cdr type))) t)) 3116 (list 'and (list 'member* val (list 'quote (cdr type))) t))
3117 ((eq (car-safe type) 'eql)
3118 (list 'eql (cadr type) val))
3117 ((eq (car-safe type) 'satisfies) (list (cadr type) val)) 3119 ((eq (car-safe type) 'satisfies) (list (cadr type) val))
3118 (t (error "Bad type spec: %s" type))))) 3120 (t (error "Bad type spec: %s" type)))))
3119 3121
3120 ;;;###autoload 3122 ;;;###autoload
3121 (defun typep (object type) ; See compiler macro below. 3123 (defun typep (object type) ; See compiler macro below.