CommonLispでは、別メモリに確保されている構造体は、equalでもtにならない。 (defstruct hoge name) (setf a (make-hoge :name "hoge")) (setf b (make-hoge :name "hoge")) (equal a b) ; => nilそこで、使うのがequalp。 (equalp a b) ; => t 定義 COMMON…