Mercurial > hg > xemacs-beta
diff lisp/cl-macs.el @ 5438:8d29f1c4bb98
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 |
line wrap: on
line diff
--- a/lisp/cl-macs.el Mon Nov 15 22:33:52 2010 +0100 +++ b/lisp/cl-macs.el Fri Nov 26 06:43:36 2010 +0100 @@ -3114,6 +3114,8 @@ (cdr type)))) ((memq (car-safe type) '(member member*)) (list 'and (list 'member* val (list 'quote (cdr type))) t)) + ((eq (car-safe type) 'eql) + (list 'eql (cadr type) val)) ((eq (car-safe type) 'satisfies) (list (cadr type) val)) (t (error "Bad type spec: %s" type)))))