Common Lisp. Проверка принадлежности ребра графа к списку рёбер

[HirurG.]

Подскажите пожалуйста как можно проверить принадлежит ли ребро графа, записанное в формате (u, v), где u и v - соседние вершины, списку рёбер в формате ((u1 v1) (u2 v2) ...). Функция member не помогает на

Код: [Выделить]

(member '(1 2) '((1 3) (1 2) (2 3)) выдаёт nil, а на

Код: [Выделить]

(member '2 '(1 2 3) как положено (2 3)

[andrey_p]

Надо добавить ключевую функцию на проверку равенства, как-то так, насколько я помню:

Код: [Выделить]

  (member '(a b) '((a b) (cd)) :test '#equal)

[HirurG.]

спасибо, работает!  только правильно
(member '(a b) '((a b) (cd)) :test #'equal)