lset-intersection!

[procedure] lset-intersection! elt= list1 list2 ...

SRFI-1: linear-update variant of lset-intersection.