6.3 ���_���X�g

*graph1*���\�����������C���������������_�����X�g�� ���������C���������C

(defun vertex-list (g)
  (cond
      ((null g) nil)
    ((null (cdr g)) (car g))
    (t (node-union (car g) (vertex-list (cdr g))))))

���������������`�������C

> (vertex-list *graph1*)
(s a c b f d e)

�����������������D