delete

gosh> (use srfi-1)
#<undef>
gosh> (define *p* (cons 1 2))
*p*
gosh> (delete *p* (list *p* *p* (cons 1 2) *p* *p*))
()
gosh> (delete *p* (list *p* *p* (cons 1 2) *p* *p*) eq?)
((1 . 2))

みたいな、第1引数を第2引数のリストから見つけて全部削除した残りのリストを返す。
memberと同じく、第3引数に等価述語を指定できる。指定しなかったらequal?っぽい。