>>119
うーん・・本に書いてある例↓だと158の例のmycondになってる部分(マクロの定義でもexpand-condの中のでも）
condになっているんですがこれは本のプログラムが間違ってるということなんでしょうか？

(defmacro cond (&rest clauses)
　(expand-cond clauses))

(defun expand-cond (clauses)
　　(cond ((null clauses) nil)
　　　　　　((eq (caar clauses) 't)
　　　　　　　(cons 'progn (cdar clauses)) )
　　　　　　(t (list 'if
　　　　　　　　　　　(caar clauses)
　　　　　　　　　　　(cons 'progn (cdar clauses))
　　　　　　　　　　　(expand-cond (cdr clauses )) ))))