私のlisp関数に何が問題なのですか？

Question

私はリストが回文であるかどうかをテストするpalindromeという関数を書いています。 （1 2 1）のような通常のリストでは100％で動作しますが、（1（2）1）を使用すると、引数型エラーが発生します。

は、ここに私の機能

(defun palindrome (x)      
    (if (NULL x) t       
    (let ((a (car x)) (b (lastelement x))) 
     (if (= a b)       
     (palindrome (cdr (butlast x)))  
     nil))))  

Answer 1

番号専用に予約されている機能=です。リストや他のタイプの要素とともに使用すると、エラーが返されます。代わりにeqlを使用してください。

なお、あなたの機能は非常に非効率的です。通常は宿題ではなく、リストの逆コピーを作成し、要素ごとに元のリストと比較します。