Lexical jumps

src/function.c

@@ -373,7 +373,7 @@ static ALWAYS_INLINE void push_optional_argument_to_lexenv(LispVal *spec,
 
 static ALWAYS_INLINE void
 push_missing_optional_argument_to_lexenv(LispVal *spec) {
-    new_lexical_variable(XCAR(spec), Feval(SECOND(spec), Vlexical_environment));
+    new_lexical_variable(XCAR(spec), eval(SECOND(spec)));
     if (!NILP(THIRD(spec))) {
         new_lexical_variable(THIRD(spec), Qnil);
     }
@@ -449,7 +449,7 @@ LispFunction *coerce_to_function(LispVal *orig_name, LispVal *func) {
     if (SYMBOLP(func)) {
         fobj = Fsymbol_function(func, Qt);
     } else if (CONSP(func) && EQ(XCAR(func), Qlambda)) {
-        fobj = Feval(func, Vlexical_environment);
+        fobj = eval(func);
     }
     if (NILP(fobj)) {
         lisp_signal(Qvoid_function_error, LIST(orig_name));