From: Vibhav Pant <vibhavp@gmail.com>
Date: Fri, 3 Feb 2017 17:53:28 +0000 (+0530)
Subject: Revert "Use maphash instead of cl-loop."
X-Git-Tag: emacs-26.0.90~867
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=de456d1e4a1d7e34be6d040e0d8a04c42b14e62e;p=emacs.git

Revert "Use maphash instead of cl-loop."

This reverts commit bfa88520136dd6b187ba101e6db5a5f8f0d5e874.
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index f0a6289e667..53622a47d7a 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -917,10 +917,10 @@ CONST2 may be evaluated multiple times."
       (if (> (car bytes-tail) 255) (error "Bytecode overflow")))
 
     (dolist (hash-table byte-compile-jump-tables)
-      (maphash #'(lambda (k tag)
-                   (setq pc (car tag))
-                   (puthash k (cons (logand pc 255) (lsh pc -8)) hash-table))
-               hash-table))
+      (cl-loop for k being the hash-keys of hash-table do
+               (let ((tag (cdr (gethash k hash-table))))
+                 (setq pc (car tag))
+                 (puthash k (cons (logand pc 255) (lsh pc -8)) hash-table))))
     (apply 'unibyte-string (nreverse bytes))))