为什么普通的lisp的“设定差异”不起作用？

Question

因此，我试图在通用Lisp (sbcl)中使用set-difference，它并不真正适用于结构列表。

例如,

* varr ;; =>
(#S(VAR :V S) #:$K520)

* pm ;; =>
(#S(VAR :V +) #S(VAR :V S) #S(VAR :V Y) #S(VAR :V X) #:$K520)

* (set-difference pm varr) ;; =>
(#S(VAR :V X) #S(VAR :V Y) #S(VAR :V S) #S(VAR :V +))

答案应该是：

(#S(VAR :V X) #S(VAR :V Y) #S(VAR :V +))

我怎么才能解决这个问题？

谢谢!

Answer 1

要使它发挥作用，这就是如何做到这一点：

(set-difference pm varr :test #'equalp)