- basic.DefSubr (set_value, "set", 2, 2);
- basic.DefSubr (set_value, "=", 2, 2);
- basic.DefSpecial (and, "and", 1, -1);
- basic.DefSpecial (and, "&&", 1, -1);
- basic.DefSpecial (or, "or", 1, -1);
- basic.DefSpecial (or, "||", 1, -1);
- basic.DefSubr (not, "not", 1, 1);
- basic.DefSubr (not, "!", 1, 1);
- basic.DefSubr (add, "add", 2, -1);
- basic.DefSubr (add, "+", 2, -1);
- basic.DefSubr (mul, "mul", 2, -1);
- basic.DefSubr (mul, "*", 2, -1);
- basic.DefSubr (sub, "sub", 1, -1);
- basic.DefSubr (sub, "-", 1, -1);
- basic.DefSubr (div, "div", 2, -1);
- basic.DefSubr (div, "/", 2, -1);
- basic.DefSubr (mod, "mod", 2, 2);
- basic.DefSubr (mod, "%", 2, 2);
- basic.DefSubr (logior, "logior", 2, -1);
- basic.DefSubr (logior, "|", 2, -1);
- basic.DefSubr (logand, "logand", 2, -1);
- basic.DefSubr (logand, "&", 2, -1);
- basic.DefSubr (add_set, "add-set", 2, -1);
- basic.DefSubr (add_set, "+=", 2, -1);
- basic.DefSubr (mul_set, "mul-set", 2, -1);
- basic.DefSubr (mul_set, "*=", 2, -1);
- basic.DefSubr (sub_set, "sub-set", 2, -1);
- basic.DefSubr (sub_set, "-=", 2, -1);
- basic.DefSubr (div_set, "div-set", 2, -1);
- basic.DefSubr (div_set, "/=", 2, -1);
- basic.DefSubr (mod_set, "mod-set", 2, 2);
- basic.DefSubr (mod_set, "%=", 2, 2);
- basic.DefSubr (logior_set, "logior-set", 2, -1);
- basic.DefSubr (logior_set, "|=", 2, -1);
- basic.DefSubr (logand_set, "logand-set", 2, -1);
- basic.DefSubr (logand_set, "&=", 2, -1);
- basic.DefSubr (lsh, "lsh", 2, 2);
- basic.DefSubr (lsh, "<<", 2, 2);
- basic.DefSubr (rsh, "rsh", 2, 2);
- basic.DefSubr (rsh, ">>", 2, 2);
- basic.DefSubr (lsh_set, "lsh-set", 2, 2);
- basic.DefSubr (lsh_set, "<<=", 2, 2);
- basic.DefSubr (rsh_set, "rsh-set", 2, 2);
- basic.DefSubr (rsh_set, ">>=", 2, 2);
- basic.DefSubr (eq, "eq", 2, -1);
- basic.DefSubr (eq, "==", 2, -1);
- basic.DefSubr (noteq, "noteq", 2, 2);
- basic.DefSubr (noteq, "!=", 2, 2);
- basic.DefSubr (less_than, "lt", 2, -1);
- basic.DefSubr (less_than, "<", 2, -1);
- basic.DefSubr (less_eq, "le", 2, -1);
- basic.DefSubr (less_eq, "<=", 2, -1);
- basic.DefSubr (greater_than, "gt", 2, -1);
- basic.DefSubr (greater_than, ">", 2, -1);
- basic.DefSubr (greater_eq, "ge", 2, -1);
- basic.DefSubr (greater_eq, ">=", 2, -1);
- basic.DefSubr (eval_clause, "eval", 1, 1);
- basic.DefSpecial (progn_clause, "progn", 0, -1);
- basic.DefSpecial (progn_clause, "expr", 0, -1);
- basic.DefSpecial (if_clause, "if", 2, -1);
- basic.DefSpecial (when_clause, "when", 1, -1);
- basic.DefSpecial (while_clause, "while", 1, -1);
-
- Fprogn = basic.GetFunc (Nprogn);