Mercurial > hg > xemacs-beta

comparison lisp/cl/cl-extra.el @ 187:b405438285a2 r20-3b20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b20
author cvs
date Mon, 13 Aug 2007 09:56:28 +0200
parents 364816949b59
children
comparison
equal deleted inserted replaced
186:24ac94803b48 187:b405438285a2
161 (while cl-list 161 (while cl-list
162 (cl-push (funcall cl-func cl-list) cl-res) 162 (cl-push (funcall cl-func cl-list) cl-res)
163 (setq cl-list (cdr cl-list))) 163 (setq cl-list (cdr cl-list)))
164 (nreverse cl-res)))) 164 (nreverse cl-res))))
165 165
166 (defun mapc (cl-func cl-seq &rest cl-rest) 166
167 "Like `mapcar', but does not accumulate values returned by the function." 167 ;; mapc is now in C, renamed from `mapc-internal'.
168 (if cl-rest 168
169 (apply 'map nil cl-func cl-seq cl-rest) 169 ;(defun mapc (cl-func cl-seq &rest cl-rest)
170 ;; XEmacs change: we call mapc-internal, which really doesn't 170 ; "Like `mapcar', but does not accumulate values returned by the function."
171 ;; accumulate any results. 171 ; (if cl-rest
172 (mapc-internal cl-func cl-seq)) 172 ; (apply 'map nil cl-func cl-seq cl-rest)
173 cl-seq) 173 ; ;; XEmacs change: we call mapc-internal, which really doesn't
174 ; ;; accumulate any results.
175 ; (mapc-internal cl-func cl-seq))
176 ; cl-seq)
174 177
175 (defun mapl (cl-func cl-list &rest cl-rest) 178 (defun mapl (cl-func cl-list &rest cl-rest)
176 "Like `maplist', but does not accumulate values returned by the function." 179 "Like `maplist', but does not accumulate values returned by the function."
177 (if cl-rest 180 (if cl-rest
178 (apply 'maplist cl-func cl-list cl-rest) 181 (apply 'maplist cl-func cl-list cl-rest)