何度もすんませんorz

>>156
つまりexpand-condのなかでは自分で定義したmycondを使うのではなく言語に
もとから実装されているcondを使う、ということなんでしょうか？


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

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