RosettaCodeData/Task/Runtime-evaluation/Common-Lisp/runtime-evaluation-3.lisp

3 lines
90 B
Common Lisp

(defun add-four-by-function (a-number)
(funcall (eval '(lambda (n) (+ 4 n)))) a-number)