(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)という具合になる.