procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Andrea Corallo 2019-12-07 17:31:54 +01:00
parent f4de790bee
commit e2855d93ee
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/comp.el
View file

@ -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)