From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 5 Jul 2000 17:29:40 +0000 (+0000)
Subject: (cl-old-mapc): Removed; don't defalias mapc.
X-Git-Tag: emacs-pretest-21.0.90~2951
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e2b1c424356b717e6f4e9c6064065ff394c07131;p=emacs.git

(cl-old-mapc): Removed; don't defalias mapc.
(cl-mapc): Use mapc instead of cl-old-mapc.
---

diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el
index 79b6306bfc5..1784d65a9b6 100644
--- a/lisp/emacs-lisp/cl-extra.el
+++ b/lisp/emacs-lisp/cl-extra.el
@@ -152,15 +152,12 @@ the elements themselves."
 	(setq cl-list (cdr cl-list)))
       (nreverse cl-res))))
 
-(defvar cl-old-mapc (prog1 (symbol-function 'mapc)
-		      (defalias 'mapc 'cl-mapc)))
-
 (defun cl-mapc (cl-func cl-seq &rest cl-rest)
   "Like `mapcar', but does not accumulate values returned by the function."
   (if cl-rest
       (progn (apply 'map nil cl-func cl-seq cl-rest)
 	     cl-seq)
-    (funcall cl-old-mapc cl-func cl-seq)))
+    (mapc cl-func cl-seq)))
 
 (defun mapl (cl-func cl-list &rest cl-rest)
   "Like `maplist', but does not accumulate values returned by the function."