Wie lexikalische Bindungen von Funktionen an 'eval' in Emacs Lisp übergeben?

Question

In Emacs Lisp wird die lexikalische Umgebung durch einen Alist repräsentiert, der Symbole auf ihren Wert abbildet. Es kann als zweites Argument der 'eval'-Funktion an Evaluatoren übergeben werden.

(eval '(+ 3 var) 
     '((var . 4))) 
→ 7 

Allerdings kann ich nicht herausfinden, wie Funktionen übergeben, nicht Variablen, den Bewerter.

Zum Beispiel zeigt einer der folgenden Ausdrücke einen Fehler an.

(eval '(func 3) 
     '((func . (lambda (x) (+ 4 x))))) 
→ error: (void-function func) 
(eval '(func 3) 
     '((func . (closure (t) (x) (+ 4 x))))) 
→ error: (void-function func) 

Jede Hilfe wird geschätzt.

Answer 1

Wie wäre es damit:

(eval '(apply func (list 3)) 
     '((func . (lambda (x) (+ 4 x))))) 

Answer 2

Hier ist, wie Sie es tun können:

(defun my-eval (exp var-bindings fun-bindings) 
    (eval `(cl-flet ,(mapcar (lambda (x) (list (car x) `',(cdr x))) 
          fun-bindings) 
      (let ,(mapcar (lambda (x) (list (car x) `',(cdr x))) 
         var-bindings) 
      ,exp)) 
     t)) 

oder unter Verwendung von eval ‚s eingebaute Unterstützung für var-bindings:

(defun my-eval (exp var-bindings fun-bindings) 
    (eval `(cl-flet ,(mapcar (lambda (x) (list (car x) `',(cdr x))) 
          fun-bindings) 
      ,exp) 
     (or var-bindings t))) 

[BTW, Beachten Sie, dass es nicht immer wahr ist, dass in Emacs Lisp die lexikalische Umgebung durch dargestellt wird ein Alist: Nach der Byte-Kompilierung haben lexikalische Variablen keinen Namen mehr, sie werden auf "dem" Stapel gespeichert und sie werden direkt über ihre Position im Stapel erreicht. ]