fif function from On Lisp

[weber]

Hi folks.
For some reason this function from On Lisp doesn't work:

(defun fif (a b &optional c)
  '(lambda (x)
        (if (funcall a x)
                (funcall b x)
                (unless (null c) (funcall c x)))))

I should be able to call it like this:

(mapcar (fif 'zerop '1+ 1-) '(0 1 2 3) => (1 0 1 2)

but i'm probably missing something that is differs from Common Lisp to
Elisp.

Thanks in advance,
weber