(defun adjacency-list (v g)
(node-remove v (adjacency-list-aux v g)))
(defun adjacency-list-aux (v g)
(cond
((null g) nil)
((node-member v (car g))
(node-union (car g)
(adjacency-list-aux v (cdr g))))
(t (adjacency-list-aux v (cdr g)))))
というように定義すると，
> (adjacency-list 's *graph1*) (d a) > (adjacency-list 'f *graph1*) (e)という具合になる．