Been long enough, homework done, try:

(Defun remove (ele lst)
    (apply 'append (subst nil (list ele) (mapcar 'list lst)))
)