From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 19 May 2015 19:37:14 +0000 (-0400)
Subject: * emacs-lisp/generator.el (cps--gensym, cps--transform-1): Silence compiler
X-Git-Tag: emacs-25.0.90~2046
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a0823e4374ed260ed90c7eaccfbab186b8a4a949;p=emacs.git

* emacs-lisp/generator.el (cps--gensym, cps--transform-1): Silence compiler
---

diff --git a/lisp/emacs-lisp/generator.el b/lisp/emacs-lisp/generator.el
index 8251682590e..c8e61f3be03 100644
--- a/lisp/emacs-lisp/generator.el
+++ b/lisp/emacs-lisp/generator.el
@@ -90,7 +90,7 @@
   ;; Change this function to use `cl-gensym' if you want the generated
   ;; code to be easier to read and debug.
   ;; (cl-gensym (apply #'format fmt args))
-  `(make-symbol ,fmt))
+  `(progn (ignore ,@args) (make-symbol ,fmt)))
 
 (defvar cps--dynamic-wrappers '(identity)
   "List of transformer functions to apply to atomic forms we
@@ -308,14 +308,14 @@ don't yield.")
                           collect (if (symbolp binding)
                                       (list binding nil)
                                     binding)))
-             (temps (cl-loop for (var value-form) in bindings
+             (temps (cl-loop for (var _value-form) in bindings
                        collect (cps--add-binding var))))
         (cps--transform-1
          `(let* ,(append
-                  (cl-loop for (var value-form) in bindings
+                  (cl-loop for (_var value-form) in bindings
                      for temp in temps
                      collect (list temp value-form))
-                  (cl-loop for (var binding) in bindings
+                  (cl-loop for (var _binding) in bindings
                      for temp in temps
                      collect (list var temp)))
             ,@body)