From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 8 Sep 2019 15:13:48 +0000 (+0200)
Subject: add defconst support
X-Git-Tag: emacs-28.0.90~2727^2~1197
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c6272373d4e5a6fbb8668f4980bbafbdc28405e;p=emacs.git

add defconst support
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index c5c36e9eda8..12c8ca63699 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -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)