<cl> (defstruct test a b c) TEST <cl> (setq a (make-test :a '(a b) :b "ab" :c 2)) #s(TEST :A (A B) :B "ab" :C 2) <cl> (setq b (make-test :a '(a b) :b "ab" :c 2)) #s(TEST :A (A B) :B "ab" :C 2) <cl> (eq a b) NIL <cl> (eql a b) NIL <cl> (equal a b) NIL <cl> (equalp a b) T