Aufruf Funktion aus einer Liste von zitierte Lambda-Ausdrücke

Question

Wenn ich eine Liste der Lambda-Ausdrücke wie dieses:

CL-USER> (DEFPARAMETER list-of-lambda-exp '(#'(lambda (x) x) #'(lambda (x) (* x x)))) 

Dann wie kann ich auf ein Element dieser Liste FUNCALL?

Die folgende scheint nicht zu funktionieren:

CL-USER> (funcall (FIRST list-of-lambda-exp) 2) 

gibt den Fehler

; Evaluation aborted on #<TYPE-ERROR expected-type: (OR FUNCTION SYMBOL) datum: #'(LAMBDA (X) X)>. 

..., die mit dem Aufruf von functionp auf (first list-of-lambda-exp) konsistent ist. (Das obige gilt auch, wenn ich die #' vor den Lambda-Ausdrücken entferne.)

Wie ändere ich (first list-of-lambda-exp) in eine Funktion? Ich kann mir nicht vorstellen, wie man ein Makro schreibt, das das auch tut. Ich denke, ich mache einen dummen Fehler, kann aber keinen Ausweg finden.

Answer 1

Es gibt zwei Arten von Dingen, die hier passieren. Erstens, denken Sie daran, dass Zitat, die mit ' abgekürzt werden kann, gibt ihr Argument nicht ausgewertet. Dann denken Sie daran, dass # ' eine Abkürzung für Funktion ist. Das heißt, # '(Lambda (x) ...) ist eine Abkürzung für (Funktion (Lambda (x) ...)), nicht nur eine Variante der Liste (Lambda (x) ...). Also:

CL-USER> (quote ((function (lambda (x) x)) (function (lambda (x) (* x x))))) 
;=> (#'(LAMBDA (X) X) #'(LAMBDA (X) (* X X))) 

So entweder Sie mehrere Ebenen in die Liste gehen können die tatsächlichen Lambda-Ausdruck zu erhalten (nur eine Liste, beginnend mit Lambda), die Sie dann coerce in eine Funktion, die Sie aufrufen können:

CL-USER> (let ((fs '(#'(lambda (x) x) #'(lambda (x) (* x x))))) 
      (list (funcall (coerce (second (first fs)) 'function) 42) 
       (funcall (coerce (second (second fs)) 'function) 8))) 
;=> (42 64)