# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 956183481 0
# Node ID 0569ba69aa2bda3b02409a45ab86847d4fc6db85
# Parent  3408e0502727fbd2a2e72d3ee0735d1016c84399
(cl-old-mapc): Fix definition.
(cl-mapc): Rename from mapc.  Fix the funcall.

diff -r 3408e0502727 -r 0569ba69aa2b lisp/emacs-lisp/cl-extra.el
--- a/lisp/emacs-lisp/cl-extra.el	Wed Apr 19 22:27:27 2000 +0000
+++ b/lisp/emacs-lisp/cl-extra.el	Wed Apr 19 22:31:21 2000 +0000
@@ -152,14 +152,15 @@
 	(setq cl-list (cdr cl-list)))
       (nreverse cl-res))))
 
-(defvar cl-old-mapc (symbol-function 'mapc))
+(defvar cl-old-mapc (prog1 (symbol-function 'mapc)
+		      (defalias 'mapc 'cl-mapc)))
 
-(defun mapc (cl-func cl-seq &rest cl-rest)
+(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)))
+    (funcall cl-old-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."