Как в Лиспе вызвать функцию по имени?

Э не понял - а сделать типа:

CL-USER> (defun Ѧ (Ѫ Ѣ) (+ Ѫ Ѣ))
Ѧ
CL-USER> (Ѧ 1 2)
3
CL-USER> 

В Питоне такое делается eval(). Что, в Лиспе не так?

Ну, а теперь вызови Ѧ, используя строку "Ѧ".

[1]> (defun foo () t)
FOO
[2]> (funcall (symbol-function (intern "foo")))

*** - SYMBOL-FUNCTION: undefined function |foo|
The following restarts are available:
USE-VALUE      :R1      You may input a value to be used instead of (FDEFINITION '|foo|).
RETRY          :R2      Retry
STORE-VALUE    :R3      You may input a new value for (FDEFINITION '|foo|).
ABORT          :R4      ABORT
Break 1 [3]> abort
[4]> (funcall (symbol-function (intern "FOO")))
T

CL-USER> (defun asdf (x) (+ x x))
ASDF
CL-USER> (find-symbol "asdf")
NIL
NIL
CL-USER> (find-symbol "ASDF")
ASDF
:INTERNAL
CL-USER> (funcall (symbol-function (find-symbol "ASDF")) 1)
2

Блин, долбаный регистр....

* (defun foo () t)

FOO
* (funcall (symbol-function (read-from-string "foo")))

T

Изврат, но с таким подходом - хуже не будет.

(string-upcase "foo") ?

(funcall (symbol-function (find-symbol (string-upcase "foo"))))

:)

(defmacro funcall-by-string (name &rest args)
  `(funcall (intern (string-upcase ,name)) ,@args))

Так вот теперь сиди и слушай Он не желал ей зла Он не хотел запасть ей в душу И тем лишить ее сна Он приносил по выходным ей сладости Читал в ее ладонях линии И он не знал на свете больше радости Чем в Лиспе функции вызывать по имени

> CL-USER> (funcall (symbol-function (find-symbol "ASDF")) 1)

я что-то непонимаю, если для тупого вызова функции нужно столько кода написать то на кой оно нужно? помниться когда нам в универе lisp давали было все просто, что-то вроде:
defun f (x) (+ x x)
f (1)

но там был не common lisp, а какой-то другой диалект.

ЗАЧЕТ!!!! =)))))

Доброе утро, это вызов функции по строке.

Не выспался что-ли ? Человек спросил как в Лиспе вызвать функцию по имени. Функции в Лиспе привязаны к символам, символы разложены по пакетам. FIND-SYMBOL находит символ по имени, SYMBOL-FUNCTION берет функцию из символа, FUNCALL вызывает функцию. Еще можно использовать INTERN, но он создаст новый символ, если не обнаружит уже имеющийся, что не есть Тру.

Кстати, для Лиспа f(1) - сомнительный синтаксис. Скорее вам давали (f 1).