code for complement macro, new utility

[Surendra Singhi]

Hello,

Below is a code for, potentially useful macro for emacs, similar to the
complement function in common lisp. It takes a function of any number of
arguments and returns a function which is the complement of that function.

(defmacro complement (fn) `(lambda (&rest args) (not (apply ,fn args))))

-- 
Surendra Singhi 

www.public.asu.edu/~sksinghi/

"O thou my friend! The prosperity of Crime is like unto the lightning, whose
traitorous brilliancies embellish the atmosphere but for an instant, in order
to hurl into death's very depths the luckless one they have dazzled." --
Marquis de Sade