Mercurial > hg > xemacs-beta

comparison lisp/cl-macs.el @ 5339:ba62563ec7c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Accept more complex TYPEs in #'concatenate, cl-extra.el lisp/ChangeLog addition: 2011-01-15 Aidan Kehoe <kehoea@parhasard.net> * cl-extra.el (concatenate): Accept more complicated TYPEs in this function, handing the sequences over to #'coerce if we don't understand them here. * cl-macs.el (inline): Don't proclaim #'concatenate as inline, its compiler macro is more useful than doing that. tests/ChangeLog addition: 2011-01-15 Aidan Kehoe <kehoea@parhasard.net> * automated/lisp-tests.el (list): Test #'concatenate, especially with more complicated TYPEs, which were previously not accepted by the function.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 15 Jan 2011 15:45:46 +0000
parents 8608eadee6ba
children 174aed57a32a a9094f28f9a9
comparison
equal deleted inserted replaced
5338:8608eadee6ba 5339:ba62563ec7c7
3829 (cadaar car cdaar) (cadadr car cdadr) (caddar car cddar) 3829 (cadaar car cdaar) (cadadr car cdadr) (caddar car cddar)
3830 (cadddr car cdddr) (cdaaar cdr caaar) (cdaadr cdr caadr) 3830 (cadddr car cdddr) (cdaaar cdr caaar) (cdaadr cdr caadr)
3831 (cdadar cdr cadar) (cdaddr cdr caddr) (cddaar cdr cdaar) 3831 (cdadar cdr cadar) (cdaddr cdr caddr) (cddaar cdr cdaar)
3832 (cddadr cdr cdadr) (cdddar cdr cddar) (cddddr cdr cdddr))) 3832 (cddadr cdr cdadr) (cdddar cdr cddar) (cddddr cdr cdddr)))
3833 3833
3834 ;;; Things that are inline. 3834 ;;; Things that are inline. XEmacs; the functions that used to be here have
3835 (proclaim '(inline acons map concatenate 3835 ;;; compiler macros or are built-in.
3836 ;; XEmacs omission: gethash is builtin 3836 (proclaim '(inline cl-set-elt))
3837 cl-set-elt revappend nreconc))
3838 3837
3839 ;;; Things that are side-effect-free. Moved to byte-optimize.el 3838 ;;; Things that are side-effect-free. Moved to byte-optimize.el
3840 ;(mapcar (function (lambda (x) (put x 'side-effect-free t))) 3839 ;(mapcar (function (lambda (x) (put x 'side-effect-free t)))
3841 ; '(oddp evenp signum last butlast ldiff pairlis gcd lcm 3840 ; '(oddp evenp signum last butlast ldiff pairlis gcd lcm
3842 ; isqrt floor* ceiling* truncate* round* mod* rem* subseq 3841 ; isqrt floor* ceiling* truncate* round* mod* rem* subseq