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 · ベストアンサー

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

補足

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

回答No.2

Tacosan

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