Рад был помочь
На каком языке писать будете? На дельфи? Питоне?

Цитата

---

Alex :

Цитата

---

misha :Toy Lisp Interpreter

---

typedef obj *(cfunc_type)(obj *);

Вот тут я не понял, что за cfunc_type?

---

Это определение функционального типа. Но судя по использованию проще было определить так

typedef obj *(*cfunc_type)(obj *);

Цитата

---

Alex :
Извиняюсь, я немного затупил. Теперь мне уже все понятно.

---

Хорошо
А скомпилировать и протестировать пытался?

Книжка "Мир Лиспа", Хювёнен, Сеппянен
2-й том
глава 4.1 (Lisp на Lisp)

там есть готовые исходники но Copy/Paste не получится ибо книжка отсканирована но не распознана

Я немного опоздал (отмечал Новый Год), но определить defun макросом в CL, по-моему, можно, используя symbol-function

(setf (symbol-function 'fun) #'(lambda (x) (* x x)))

или в виде макро

(defmacro defoon (name lambda &body body)
`(setf (symbol-function ',name) #'(lambda ,lambda ,@body)))

наверное, есть какие-то подводные камни, но для простых случаев сойдет.