diff options
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 42 |
1 files changed, 1 insertions, 41 deletions
@@ -81,7 +81,7 @@ val sys_mark_special_s; val caseq_s, caseql_s, casequal_s; val memq_s, memql_s, memqual_s; val eq_s, eql_s, equal_s; -val gethash_s, car_s, cdr_s, not_s, vecref_s; +val car_s, cdr_s, not_s, vecref_s; val setq_s, inc_s, zap_s; val for_s, for_star_s, each_s, each_star_s, collect_each_s, collect_each_star_s; val append_each_s, append_each_star_s, while_s, while_star_s, until_star_s; @@ -4646,7 +4646,6 @@ void eval_init(void) return_from_s = intern(lit("return-from"), user_package); sys_abscond_from_s = intern(lit("abscond-from"), system_package); block_star_s = intern(lit("block*"), user_package); - gethash_s = intern(lit("gethash"), user_package); car_s = intern(lit("car"), user_package); cdr_s = intern(lit("cdr"), user_package); not_s = intern(lit("not"), user_package); @@ -5021,48 +5020,9 @@ void eval_init(void) reg_fun(intern(lit("regsub"), user_package), func_n3(regsub)); reg_fun(intern(lit("regex-parse"), user_package), func_n2o(regex_parse, 1)); - reg_fun(intern(lit("make-hash"), user_package), func_n3(make_hash)); - reg_fun(intern(lit("make-similar-hash"), user_package), func_n1(make_similar_hash)); - reg_fun(intern(lit("copy-hash"), user_package), func_n1(copy_hash)); - reg_fun(intern(lit("hash"), user_package), func_n0v(hashv)); - reg_fun(intern(lit("hash-construct"), user_package), func_n2(hash_construct)); - reg_fun(intern(lit("hash-from-pairs"), user_package), func_n1v(hash_from_pairs_v)); - reg_fun(intern(lit("hash-list"), user_package), func_n1v(hash_list)); - reg_fun(gethash_s, func_n3o(gethash_n, 2)); - reg_fun(intern(lit("inhash"), user_package), func_n3o(inhash, 2)); - reg_fun(intern(lit("sethash"), user_package), func_n3(sethash)); - reg_fun(intern(lit("pushhash"), user_package), func_n3(pushhash)); - reg_fun(intern(lit("remhash"), user_package), func_n2(remhash)); - reg_fun(intern(lit("hash-count"), user_package), func_n1(hash_count)); - reg_fun(intern(lit("get-hash-userdata"), user_package), - func_n1(get_hash_userdata)); - reg_fun(intern(lit("set-hash-userdata"), user_package), - func_n2(set_hash_userdata)); - reg_fun(intern(lit("hashp"), user_package), func_n1(hashp)); - reg_fun(intern(lit("maphash"), user_package), func_n2(maphash)); - reg_fun(intern(lit("hash-eql"), user_package), func_n1(hash_eql)); - reg_fun(intern(lit("hash-equal"), user_package), func_n1(hash_equal)); - reg_fun(intern(lit("hash-keys"), user_package), func_n1(hash_keys)); - reg_fun(intern(lit("hash-values"), user_package), func_n1(hash_values)); - reg_fun(intern(lit("hash-pairs"), user_package), func_n1(hash_pairs)); - reg_fun(intern(lit("hash-alist"), user_package), func_n1(hash_alist)); - reg_fun(intern(lit("hash-uni"), user_package), func_n3o(hash_uni, 2)); - reg_fun(intern(lit("hash-diff"), user_package), func_n2(hash_diff)); - reg_fun(intern(lit("hash-isec"), user_package), func_n3o(hash_isec, 2)); - reg_fun(intern(lit("hash-subset"), user_package), func_n2(hash_subset)); - reg_fun(intern(lit("hash-proper-subset"), user_package), func_n2(hash_proper_subset)); - reg_fun(intern(lit("group-by"), user_package), func_n2v(group_by)); - reg_fun(intern(lit("group-reduce"), user_package), - func_n6o(group_reduce, 4)); reg_fun(intern(lit("sort-group"), user_package), func_n3o(sort_group, 1)); reg_fun(intern(lit("unique"), user_package), func_n2ov(unique, 1)); reg_fun(intern(lit("uniq"), user_package), func_n1(uniq)); - reg_fun(intern(lit("hash-update"), user_package), func_n2(hash_update)); - reg_fun(intern(lit("hash-update-1"), user_package), - func_n4o(hash_update_1, 3)); - reg_fun(intern(lit("hash-revget"), user_package), func_n4o(hash_revget, 2)); - reg_fun(intern(lit("hash-begin"), user_package), func_n1(hash_begin)); - reg_fun(intern(lit("hash-next"), user_package), func_n1(hash_next)); reg_fun(intern(lit("eval"), user_package), func_n2o(eval_intrinsic, 1)); reg_fun(intern(lit("lisp-parse"), user_package), func_n5o(lisp_parse, 0)); |