Mercurial > hg > xemacs-beta

comparison lisp/cl-macs.el @ 5660:796f2a8fdced

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove a stray parenthesis, cl-macs.el; thank you Vin! 2012-05-08 Aidan Kehoe <kehoea@parhasard.net> * cl-macs.el (rassoc): Remove a stray parenthesis here, thank you Vin!
author Aidan Kehoe <kehoea@parhasard.net>
date Tue, 08 May 2012 09:34:14 +0100
parents e63bb7b22c8f
children 7f4c8574a590
comparison
equal deleted inserted replaced
5659:e63bb7b22c8f 5660:796f2a8fdced
3263 (if (or (cl-equal-equivalent-to-eq-p (cl-const-expr-val elt pi)) 3263 (if (or (cl-equal-equivalent-to-eq-p (cl-const-expr-val elt pi))
3264 (not (find-if-not #'cl-equal-equivalent-to-eq-p 3264 (not (find-if-not #'cl-equal-equivalent-to-eq-p
3265 (cl-const-expr-val list '((nil . 1.0))) 3265 (cl-const-expr-val list '((nil . 1.0)))
3266 :key #'cl-cdr-or-pi))) 3266 :key #'cl-cdr-or-pi)))
3267 (cons 'rassq (cdr form)) 3267 (cons 'rassq (cdr form))
3268 form))) 3268 form))
3269 3269
3270 (macrolet 3270 (macrolet
3271 ((define-star-compiler-macros (&rest macros) 3271 ((define-star-compiler-macros (&rest macros)
3272 "For `member*', `assoc*' and `rassoc*' with constant ITEM or 3272 "For `member*', `assoc*' and `rassoc*' with constant ITEM or
3273 :test arguments, use the versions with explicit tests if that makes sense." 3273 :test arguments, use the versions with explicit tests if that makes sense."