fix compilation of devar defconst with doc string

lisp/emacs-lisp/bytecomp.el

@@ -2276,7 +2276,7 @@ we output that argument and the following argument
 QUOTED says that we have to put a quote before the
 list that represents a doc string reference.
 `defvaralias', `autoload' and `custom-declare-variable' need that."
-  (when byte-native-compiling
+  (when (and byte-native-compiling name)
     ;; Spill bytecode output for the native compiler here
     (push (cons name (apply #'vector form))
           byte-to-native-bytecode))

lisp/emacs-lisp/comp.el

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