From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 7 Dec 2019 16:31:54 +0000 (+0100)
Subject: renaming comp-decrypt-lambda-list -> comp-decrypt-arg-list
X-Git-Tag: emacs-28.0.90~2727^2~928
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e2855d93ee41bf23a72fdcb49bd5347512989f6f;p=emacs.git

renaming comp-decrypt-lambda-list -> comp-decrypt-arg-list
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 273bda8220f..30db2f18918 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -391,8 +391,8 @@ Put PREFIX in front of it."
                           (rx (not (any "0-9a-z_"))) "" human-readable)))
     (concat prefix crypted "_" human-readable)))
 
-(defun comp-decrypt-lambda-list (x)
-  "Decript lambda list X."
+(defun comp-decrypt-arg-list (x)
+  "Decript argument list X."
   (unless (fixnump x)
     (signal 'native-compiler-error
             "can't native compile a non lexical scoped function"))
@@ -427,9 +427,9 @@ Put PREFIX in front of it."
       (let ((lap (alist-get nil byte-to-native-lap)))
         (cl-assert lap)
         (comp-log lap 2)
-        (let ((lambda-list (aref (comp-func-byte-func func) 0)))
+        (let ((arg-list (aref (comp-func-byte-func func) 0)))
           (setf (comp-func-args func)
-                (comp-decrypt-lambda-list lambda-list)
+                (comp-decrypt-arg-list arg-list)
                 (comp-func-lap func)
                 lap
                 (comp-func-frame-size func)