Call-By-Name

(defvar *C* 10)

(defvar *D* 20)

(defun funktion-a (n)
  (format t "Funktion A erhält: ~a~%" n))

(defun funktion-b (n)
  (format t "Funktion B erhält: ~a~%" n))

(defun call-by-name (funktion variable)
  (funcall (symbol-function (intern (string-upcase funktion)))
       (symbol-value (intern variable))))

(defun run()
  (call-by-name "funktion-b" "*C*"))