LISP 동적 함수?

Question

나는 약간의 LISP를 가르치려고하고 있는데, 대부분 이해하고 있지만, 나는 eval 함수를 이해하는 데 어려움이있다. 나는 그것이 이미 우리를 위해 그것을하고 그것을 사용하는 것이 좋지 않다는 것을 안다. (그래서 나는 듣는다.) 그러나 나는 단지 어떻게 추가 할 함수를 만들까요?

지금까지 나는이 가고 정말 확실하지

(setf input-prompt "Enter addition epression: ") 
(setf output-prompt "The value is: ") 

(defun prompt-for-input (msg) 
    (format t msg)) 


(defun sum (expression) 
    (format t "Summing ~d and ~d.~%" x y) 
    (+ x y)) 


(defun add() 
    (prompt-for-input input-prompt) 
    (let ((expression (read))) 
     ((sum (expression))) 
    (add))) 

생각/시도했다, 어떤 도움에 감사드립니다.

Answer 1

(setf input-prompt "Enter addition expression: ") 
(setf output-prompt "The value is: ") 

(defun prompt-for-input (msg) 
    (format t msg) 
    (finish-output)) 

(defun sum (expression) 
    (let ((x (second expression)) 
     (y (third expression))) 
    (format t "~%Summing ~d and ~d.~%" x y) 
    (+ x y))) 

(defun add() 
    (prompt-for-input input-prompt) 
    (sum (read))) 

실행을 :

CL-USER > (add) 
Enter addition expression: (+ 1 2) 
Summing 1 and 2. 
3