Common Lispの "functorの不正な引数"とは何ですか？

Question

注学習のLisp

私はこのエラーを取得しています：このから

Illegal argument in functor position: (EVALEXP (CDR MAIN-LIST) BIND-LIST) 
in ((EVALEXP(CDR MAIN-LIST) BIND-LIST)) 

：

(defun evalexp (main-list bind-list) 

(if (eq nil (cdr main-list)) 
    ( (if (eq nil (atom (car main-list))) (evalexp (car main-list) bind-list))) 

((print (car main-list)) 
    (evalexp (cdr main-list) bind-list)) 
) 

メインリストは、このリストが含まれています

は何

(and 1 (or a b)) 

バインドリストでは私はまだそれを使用していないので、問題です。私は各車のリストをループさせようとしています。なぜこのエラーが発生しているのですか？

Answer 1

余分な括弧。

通常、開始括弧の後の最初のものは関数名です。いくつかのケースでは、別のカッコがありますが、これは構文エラーです。

また、文ブロックが必要なようです。 prognはしばしば請求書に適合します。内部ブロックifのブロックを使用することはできますが、実際には1つのステートメントしか含まれていないため、実際には必要ありません。

(defun evalexp (main-list bind-list) 
    (if (eq nil (cdr main-list)) 
     (if (eq nil (atom (car main-list))) (evalexp (car main-list) bind-list)) 
     (progn 
     (print (car main-list)) 
     (evalexp (cdr main-list) bind-list)) 
) 
)