07/12/15 20:36:48
>>424
最後の行が間違えてるね。assq=>assoc
(defun assoc (key alist)
(cond
((null alist) nil)
((equal key (car (car alist))) (car alist))
(t (assoc key (cdr alist)))))
07/12/15 20:36:48
>>424
最後の行が間違えてるね。assq=>assoc
(defun assoc (key alist)
(cond
((null alist) nil)
((equal key (car (car alist))) (car alist))
(t (assoc key (cdr alist)))))