All pastes #2048266 Raw Edit

Unnamed

public text v1 · immutable
#2048266 ·published 2011-04-19 14:15 UTC
rendered paste body
 (defun mimember (x l) 
                  (cond (NULL x) NIL)  
                       (equal (x l) (cons (first l) (mimember(rest l)
                       (T (mimember (x rest l)))
)
)
)
)