7 lines
209 B
Text
7 lines
209 B
Text
(defvar x)
|
|
|
|
(defun eval-subtract-for-two-values-of-x (code-fragment x1 x0)
|
|
(- (let ((x x1)) (eval code-fragment))
|
|
(let ((x x0)) (eval code-fragment))))
|
|
|
|
(eval-subtract-for-two-values-of-x '(exp x) 1 2)
|