здравствуйте, уважаемые программисты! Я опять появился тут с вопросом. Меня интересует следующее: есть функция assoc, все из того же примера риммских цифр (для тех, кто видел и помог мне в решение), как она работает и что делает я понимаю. Я хочу переделать ее без этой функции, возможно ли вообще это, и если да, то как? пробовал применять setq, но что-то не выходит, то ли неправильно делаю что-то... Заранее спасибо!

> Я хочу переделать ее без этой функции, возможно ли вообще это, и если да, то как?

(defmacro assoc (key alist)

 `(loop for cons in ,alist

         if (eql (car cons) ,key)

         do (return cons)))

Тогда все assoc'и раскроются в loop'ы. Это можно, это легко, но это не нужно.

(defun ASSOC (key alist)

 (cond

  ((null alist) nil)

  ((equal key (caar alist)) (car alist))

  (T (ASSOC key (cdr alist)))))