Added intersect.lisp