Mark, That is what i was attmepting to do. Damn! I cant find my "foreach" test. (I must have destroyed it.) But it was craaaazy.
Look at this one:
"(mapcar 'if (not (cond (eval x))) (setq x (princ "this one")) '(a b c d))"
Dahell is that?!!!
Kids, do you see what cold med's do to your mind. They make you go nuts!