mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 06:20:43 -08:00
Code Issues Projects Releases Wiki Activity

add defconst support

Browse source
This commit is contained in:
Andrea Corallo 2019-09-08 17:13:48 +02:00
parent f74ab3e9ef
commit 4c6272373d
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -283,9 +283,9 @@ Put PREFIX in front of it."
(byte-compile-file filename)
(setf (comp-ctxt-top-level-defvars comp-ctxt)
(reverse (mapcar (lambda (x)
(if (eq (car x) 'defvar)
(cdr x)
(cl-assert nil)))
(ecase (car x)
('defvar (cdr x))
('defconst (cdr x))))
byte-to-native-top-level-forms)))
(cl-loop for (name lap bytecode) in byte-to-native-output
for lambda-list = (aref bytecode 0)