编辑:找出了最初的问题现在它说没有函数sel2,我不确定为什么它认为我在调用sel2是一个列表的函数我觉得这是个名单。
我觉得我在做傻事,但为了我的生命,我想不出来我应该创建一个函数来反转列表(可以使用reverse函数)和一个函数来检测列表是否包含回文到目前为止,我已经:

 (defun Myreverse (sel)

    (return-from Myreverse (reverse sel))
)

(defun Palindrome (sel2)
    (if (= sel2 (reverse (sel2)))
        (return-from Palindrome (write "Yes"))
    )
    (write "No")
)

(Myreverse '(1 2 3 4))

有人知道我做错了什么吗如果是的话,你能告诉我正确的方向吗?
READ from #<INPUT CONCATENATED-STREAM #<INPUT UNBUFFERED FILE-STREAM CHARACTER @7>>: illegal character #\Null

多谢。

最佳答案

根据上面的评论解决了我自己的问题也解决了函数调用问题。
新代码:

(defun Myreverse (sel)

    (reverse sel)
)

(defun Palindrome (pal)
    (equal pal (reverse pal))
)

09-04 20:18