Fix or remove outdated comments

* src/eval.c (funcall_lambda): Rewrite obsolete comment.
* src/bytecode.c (exec_byte_code): Remove lying comment and
unneeded #define.
* lisp/emacs-lisp/byte-opt.el: Remove car.  Keep pig.
(byte-compile-log-lap-1): Remove obsolete and irrelevant comment.

1 files changed, 8 insertions, 12 deletions

diff --git a/src/eval.c b/src/eval.c
index 7472e649afe..d3342289fbb 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -3243,19 +3243,15 @@ funcall_lambda (Lisp_Object fun, ptrdiff_t nargs,
   else if (COMPILEDP (fun))
     {
       syms_left = AREF (fun, COMPILED_ARGLIST);
+      /* Bytecode objects using lexical binding have an integral
+         ARGLIST slot value: pass the arguments to the byte-code
+         engine directly.  */
       if (FIXNUMP (syms_left))
-        /* A byte-code object with an integer args template means we
-           shouldn't bind any arguments, instead just call the byte-code
-           interpreter directly; it will push arguments as necessary.
-
-           Byte-code objects with a nil args template (the default)
-           have dynamically-bound arguments, and use the
-           argument-binding code below instead (as do all interpreted
-           functions, even lexically bound ones).  */
-        {
-          return fetch_and_exec_byte_code (fun, XFIXNUM (syms_left),
-                                           nargs, arg_vector);
-        }
+        return fetch_and_exec_byte_code (fun, XFIXNUM (syms_left),
+                                         nargs, arg_vector);
+      /* Otherwise the bytecode object uses dynamic binding and the
+         ARGLIST slot contains a standard formal argument list whose
+         variables are bound dynamically below.  */
       lexenv = Qnil;
     }
 #ifdef HAVE_MODULES