Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (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 (sym body)
- "Similar to `setq', except that it binds the BODY to the SYM
- function slot,making it callable as the CAR of an e-expression."
- `(fset (quote ,sym) ,body))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement