# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 962818180 0
# Node ID e06697d4135fc49585ac3a9aa07d32d3c137c1f7
# Parent  ed8f34a43649ee2b8501d3e0edf9a476179d293e
(cl-old-mapc): Removed; don't defalias mapc.
(cl-mapc): Use mapc instead of cl-old-mapc.

diff -r ed8f34a43649 -r e06697d4135f lisp/emacs-lisp/cl-extra.el
--- a/lisp/emacs-lisp/cl-extra.el	Wed Jul 05 17:24:19 2000 +0000
+++ b/lisp/emacs-lisp/cl-extra.el	Wed Jul 05 17:29:40 2000 +0000
@@ -152,15 +152,12 @@
 	(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."