elisp macros

(defmacro nor (&rest args)
  "Equivalent to an IC nor gate. Takes multiple inputs. Lazy
evaluation of the args expressions."
  `(not ,(cons 'or args)))

(defmacro nand (&rest args)
  "Equivalent to an IC nand gate. Takes multiple inputs. Lazy
evaluation of the args expressions."
  `(not ,(cons 'and args)))

(defmacro fsetq (name definition)
  "Set NAME’s function definition to DEFINITION, and return DEFINITION."
  (let ((def (gensym)))
    `(let ((def ,definition))
       (when (functionp def)
         (setf (symbol-function (quote ,name)) def)))))