Динамические функции 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