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

fix compilation of devar defconst with doc string

Browse source
This commit is contained in:
Andrea Corallo 2019-10-05 14:48:15 +02:00
parent 65c0d931f7
commit 0ae14c17a2
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -408,7 +408,7 @@ Put PREFIX in front of it."
('defvar (cdr x))
('defconst (cdr x))))
byte-to-native-top-level-forms)))
(cl-loop for (name . bytecode) in (remove-if-not #'car byte-to-native-bytecode)
(cl-loop for (name . bytecode) in byte-to-native-bytecode
for lap = (alist-get name byte-to-native-lap)
for lambda-list = (aref bytecode 0)
for func = (make-comp-func :symbol-name name