emacsでcmmon lispのプログラムを作成します。

emacsでcmmon lispのプログラムを作成します。
my-equal(A, B)=
if A is an atom then
if B is an atom then (eq A B)
else if B is an atom then nil
else if (car A)=(car B) then (cdr A)=(cdr B)
else nil　というのです。自分が考えたのは、
defun my-equal(x, y)=
(cond ((atom x) (atom y)) (eq x, y)
(atom) (t, nil)
((car x)=(car y) (cdr x)=(cdr y)) (nil))　というのでよろしいのでしょうか？
また、４行目（この全文の）の意味がいまいち分かりません。

No.1 ベストアンサー 回答者： Tacosan 回答日時： 2010/05/11 18:23

「よろしいのでしょうか？」で何を聞いているのかちょっとわかりかねるのですが, 「これで正しい Common Lisp のプログラムになっているか」ということでしょうか? もしそうなら正しくないです. 1行目の

defun my-equal(x, y)=
というところからしておかしい. Common Lisp における関数定義の書き方を調べてください. 他にも突込みどころはいっぱいありますが....
「４行目（この全文の）」は
if B is an atom then (eq A B)
ですか?
... おっと, 元のやつからおかしいのか. A がアトムじゃないときにどうするのかわからん.

この回答への補足

申し訳ございません。１行分まちがえてました。意味が分からないのは、５行目でした。

補足日時：2010/05/11 20:32

No.2 回答者： Tacosan 回答日時： 2010/05/11 23:56

確かにわからん.

でも, それを聞くべきは「この設問をした人」ではないか?