Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=52435&view=findpost&p=346133 Mon, 26 Apr 2004 09:03:40 +0000 lisp https://forum.sources.ru/index.php?showtopic=52435&view=findpost&p=346133 Гость kot Lisp https://forum.sources.ru/index.php?showtopic=52435&view=findpost&p=345756 Sun, 25 Apr 2004 17:58:38 +0000 lisp https://forum.sources.ru/index.php?showtopic=52435&view=findpost&p=345756
    (defun Def (Name Params Body)
      (eval (list
             'DEFUN
              Name
              Params
              Body
            )
      )
    )

Где:
Name - имя создаваемой функции;
Params - ее параметры;
Body - ее тело.

Пример использования:
    >(Def 'Func '(l) '(car l))
    Func
    >(Func '(a b))
    a
]]> C300G Lisp https://forum.sources.ru/index.php?showtopic=52435&view=findpost&p=345700 Sun, 25 Apr 2004 16:29:00 +0000 lisp https://forum.sources.ru/index.php?showtopic=52435&view=findpost&p=345700 Заранее спасибо]]> Гость kot Lisp