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