diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-04-22 21:33:45 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-04-23 13:45:53 -0700 |
commit | e186650c97103dd3c54621af7f7e2ab5ac07a70a (patch) | |
tree | a9bec928557195e15a5675de06d4aa940d94684a /protsym.c | |
parent | a5e7ba18b38ce34f02ac94d3de4339f2ea728010 (diff) | |
download | txr-e186650c97103dd3c54621af7f7e2ab5ac07a70a.tar.gz txr-e186650c97103dd3c54621af7f7e2ab5ac07a70a.tar.bz2 txr-e186650c97103dd3c54621af7f7e2ab5ac07a70a.zip |
Version 257txr-257
Log message correction superseding original commit
65213f5f7f6a204886a02c32f259ae2617d1dfb6.
* RELNOTES: Updated.
* configure, txr.1: Bumped version and date.
* share/txr/stdlib/ver.tl: Bumped.
* txr.vim, tl.vim: Regenerated.
* protsymc.: Likewise
* share/txr/stdlib/doc-syms.tl: Likewise.
Diffstat (limited to 'protsym.c')
-rw-r--r-- | protsym.c | 230 |
1 files changed, 116 insertions, 114 deletions
@@ -92,63 +92,64 @@ extern val load_path_s, load_recursive_s, load_s, load_time_lit_s, load_time_s; extern val local_s, log10_s, log2_s, log_s, logand_s; extern val logcount_s, logior_s, lognot1_s, lognot_s, logtrunc_s; extern val logxor_s, long_s, longest_k, lstr_s, lt_s; -extern val mac_param_bind_s, macro_s, macro_time_s, macrolet_s, make_struct_lit_s; -extern val mandatory_k, maxgap_k, maxtimes_k, maybe_s, mdo_s; -extern val memq_s, memql_s, memqual_s, merge_s, meth_s; -extern val min_s, mingap_k, mintimes_k, minus_s, minusp_s; -extern val mod_s, mode_k, mode_s, modlast_s, month_s; -extern val mtime_k, mtime_nsec_s, mtime_s, mul_s, name_k; -extern val name_s, named_k, neg_s, next_s, next_spec_k; -extern val nlink_k, nlink_s, none_s, nongreedy_s, not_s; -extern val nothrow_k, noval_s, null_s, nullify_s, number_s; -extern val numeq_s, numeric_error_s, oddp_s, oneplus_s, op_s; -extern val optional_s, or_s, output_s, package_alist_s, package_s; -extern val panic_s, parser_s, path_exists_s, path_not_found_s, path_permission_s; -extern val path_s, pkg_s, plus_s, plusp_s, postinit_k; -extern val pprint_flo_format_s, print_base_s, print_circle_s, print_flo_digits_s, print_flo_format_s; -extern val print_flo_precision_s, print_s, process_error_s, prof_s, prog1_s; -extern val prog2_s, progn_s, promise_forced_s, promise_inprogress_s, promise_s; -extern val ptr_in_d_s, ptr_in_s, ptr_out_d_s, ptr_out_s, ptr_out_s_s; -extern val ptr_s, put_buf_s, put_byte_s, put_char_s, put_string_s; -extern val qquote_s, qref_s, quasi_s, quasilist_s, query_error_s; -extern val quote_s, r_atan2_s, r_ceil_s, r_expt_s, r_floor_s; -extern val r_lognot_s, r_logtrunc_s, r_mod_s, r_round_s, r_trunc_s; -extern val random_state_s, random_state_var_s, random_warmup_s, range_error_s, range_s; -extern val rcons_s, rdev_k, rdev_s, real_time_k, rebind_s; -extern val rec_source_loc_s, recip_s, reflect_k, regex_s, rep_s; -extern val repeat_s, repeat_spec_k, require_s, resolve_k, rest_s; -extern val restart_s, return_from_s, return_s, rfilt_k, round1_s; -extern val round_s, rplaca_s, rplacd_s, sbit_s, sec_s; -extern val seek_s, seq_iter_s, sequence_s, set_prop_s, set_s; -extern val setq_s, setqf_s, short_s, shortest_k, sign_extend_s; -extern val signum_s, sin_s, single_s, sinh_s, size_k; -extern val size_s, skip_s, slot_s, some_s, space_k; -extern val special_s, splice_s, sqrt_s, square_s, stat_s; -extern val stddebug_s, stderr_s, stdin_s, stdio_stream_s, stdnull_s; -extern val stdout_s, str_d_s, str_s, stream_s, string_k; -extern val string_s, struct_lit_s, struct_s, struct_type_s, switch_s; -extern val sym_s, symacro_k, symacrolet_s, syntax_error_s, sys_abscond_from_s; -extern val sys_apply_s, sys_blk_s, sys_catch_s, sys_l1_setq_s, sys_l1_val_s; -extern val sys_lisp1_setq_s, sys_lisp1_value_s, sys_mark_special_s, sys_qquote_s, sys_splice_s; -extern val sys_unquote_s, system_error_s, system_package_s, tan_s, tanh_s; -extern val text_s, throw_s, time_local_s, time_parse_s, time_s; -extern val time_string_s, time_utc_s, timeout_error_s, times_k, tlist_k; -extern val tnode_s, tobase64_k, tobase64url_k, tofloat_k, tohtml_k; -extern val tohtml_star_k, toint_k, tonumber_k, topercent_k, tourl_k; -extern val trailer_s, tree_bind_s, tree_case_s, tree_construct_s, tree_fun_whitelist_s; -extern val tree_iter_s, tree_lit_s, tree_s, trunc1_s, trunc_s; -extern val truncate_s, try_s, type_error_s, ubit_s, uchar_s; -extern val uid_k, uid_s, uint16_s, uint32_s, uint64_s; -extern val uint8_s, uint_s, ulong_s, unbound_s, unget_byte_s; -extern val unget_char_s, union_s, unique_s, unquote_s, until_s; -extern val until_star_s, upcase_k, uref_s, user_package_s, userdata_k; -extern val ushort_s, usr_var_s, uw_protect_s, val_s, var_k; -extern val var_s, vars_k, vec_list_s, vec_s, vecref_s; -extern val vector_lit_s, vm_closure_s, vm_desc_s, void_s, warning_s; -extern val wchar_s, weak_keys_k, weak_vals_k, when_s, while_s; -extern val while_star_s, whole_k, width_s, wild_s, word_char_k; -extern val wrap_k, wstr_d_s, wstr_s, year_s, zap_s; -extern val zarray_s, zchar_s, zerop_s, zeroplus_s, zone_s; +extern val mac_env_param_bind_s, mac_param_bind_s, macro_s, macro_time_s, macrolet_s; +extern val make_struct_lit_s, mandatory_k, maxgap_k, maxtimes_k, maybe_s; +extern val mdo_s, memq_s, memql_s, memqual_s, merge_s; +extern val meth_s, min_s, mingap_k, mintimes_k, minus_s; +extern val minusp_s, mod_s, mode_k, mode_s, modlast_s; +extern val month_s, mtime_k, mtime_nsec_s, mtime_s, mul_s; +extern val name_k, name_s, named_k, neg_s, next_s; +extern val next_spec_k, nlink_k, nlink_s, none_s, nongreedy_s; +extern val not_s, nothrow_k, noval_s, null_s, nullify_s; +extern val number_s, numeq_s, numeric_error_s, oddp_s, oneplus_s; +extern val op_s, optional_s, or_s, output_s, package_alist_s; +extern val package_s, panic_s, parser_s, path_exists_s, path_not_found_s; +extern val path_permission_s, path_s, pkg_s, plus_s, plusp_s; +extern val postinit_k, pprint_flo_format_s, print_base_s, print_circle_s, print_flo_digits_s; +extern val print_flo_format_s, print_flo_precision_s, print_s, process_error_s, prof_s; +extern val prog1_s, prog2_s, progn_s, promise_forced_s, promise_inprogress_s; +extern val promise_s, ptr_in_d_s, ptr_in_s, ptr_out_d_s, ptr_out_s; +extern val ptr_out_s_s, ptr_s, put_buf_s, put_byte_s, put_char_s; +extern val put_string_s, qquote_s, qref_s, quasi_s, quasilist_s; +extern val query_error_s, quote_s, r_atan2_s, r_ceil_s, r_expt_s; +extern val r_floor_s, r_lognot_s, r_logtrunc_s, r_mod_s, r_round_s; +extern val r_trunc_s, random_state_s, random_state_var_s, random_warmup_s, range_error_s; +extern val range_s, rcons_s, rdev_k, rdev_s, real_time_k; +extern val rebind_s, rec_source_loc_s, recip_s, reflect_k, regex_s; +extern val rep_s, repeat_s, repeat_spec_k, require_s, resolve_k; +extern val rest_s, restart_s, return_from_s, return_s, rfilt_k; +extern val round1_s, round_s, rplaca_s, rplacd_s, sbit_s; +extern val sec_s, seek_s, seq_iter_s, sequence_s, set_prop_s; +extern val set_s, setq_s, setqf_s, short_s, shortest_k; +extern val sign_extend_s, signum_s, sin_s, single_s, sinh_s; +extern val size_k, size_s, skip_s, slot_s, some_s; +extern val space_k, special_s, splice_s, sqrt_s, square_s; +extern val stat_s, stddebug_s, stderr_s, stdin_s, stdio_stream_s; +extern val stdnull_s, stdout_s, str_d_s, str_s, stream_s; +extern val string_k, string_s, struct_lit_s, struct_s, struct_type_s; +extern val switch_s, sym_s, symacro_k, symacrolet_s, syntax_error_s; +extern val sys_abscond_from_s, sys_apply_s, sys_blk_s, sys_catch_s, sys_l1_setq_s; +extern val sys_l1_val_s, sys_lisp1_setq_s, sys_lisp1_value_s, sys_mark_special_s, sys_qquote_s; +extern val sys_splice_s, sys_unquote_s, system_error_s, system_package_s, tan_s; +extern val tanh_s, text_s, throw_s, time_local_s, time_parse_s; +extern val time_s, time_string_s, time_utc_s, timeout_error_s, times_k; +extern val tlist_k, tnode_s, tobase64_k, tobase64url_k, tofloat_k; +extern val tohtml_k, tohtml_star_k, toint_k, tonumber_k, topercent_k; +extern val tourl_k, trailer_s, tree_bind_s, tree_case_s, tree_construct_s; +extern val tree_fun_whitelist_s, tree_iter_s, tree_lit_s, tree_s, trunc1_s; +extern val trunc_s, truncate_s, try_s, type_error_s, ubit_s; +extern val uchar_s, uid_k, uid_s, uint16_s, uint32_s; +extern val uint64_s, uint8_s, uint_s, ulong_s, unbound_s; +extern val unget_byte_s, unget_char_s, union_s, unique_s, unquote_s; +extern val until_s, until_star_s, upcase_k, uref_s, user_package_s; +extern val userdata_k, ushort_s, usr_var_s, uw_protect_s, val_s; +extern val var_k, var_s, vars_k, vec_list_s, vec_s; +extern val vecref_s, vector_lit_s, vm_closure_s, vm_desc_s, void_s; +extern val warning_s, wchar_s, weak_keys_k, weak_vals_k, when_s; +extern val while_s, while_star_s, whole_k, width_s, wild_s; +extern val word_char_k, wrap_k, wstr_d_s, wstr_s, year_s; +extern val zap_s, zarray_s, zchar_s, zerop_s, zeroplus_s; +extern val zone_s; #if HAVE_DLOPEN extern val dlhandle_s, dlsym_s; @@ -242,63 +243,64 @@ val *protected_sym[] = { &local_s, &log10_s, &log2_s, &log_s, &logand_s, &logcount_s, &logior_s, &lognot1_s, &lognot_s, &logtrunc_s, &logxor_s, &long_s, &longest_k, &lstr_s, <_s, - &mac_param_bind_s, ¯o_s, ¯o_time_s, ¯olet_s, &make_struct_lit_s, - &mandatory_k, &maxgap_k, &maxtimes_k, &maybe_s, &mdo_s, - &memq_s, &memql_s, &memqual_s, &merge_s, &meth_s, - &min_s, &mingap_k, &mintimes_k, &minus_s, &minusp_s, - &mod_s, &mode_k, &mode_s, &modlast_s, &month_s, - &mtime_k, &mtime_nsec_s, &mtime_s, &mul_s, &name_k, - &name_s, &named_k, &neg_s, &next_s, &next_spec_k, - &nlink_k, &nlink_s, &none_s, &nongreedy_s, ¬_s, - ¬hrow_k, &noval_s, &null_s, &nullify_s, &number_s, - &numeq_s, &numeric_error_s, &oddp_s, &oneplus_s, &op_s, - &optional_s, &or_s, &output_s, &package_alist_s, &package_s, - &panic_s, &parser_s, &path_exists_s, &path_not_found_s, &path_permission_s, - &path_s, &pkg_s, &plus_s, &plusp_s, &postinit_k, - &pprint_flo_format_s, &print_base_s, &print_circle_s, &print_flo_digits_s, &print_flo_format_s, - &print_flo_precision_s, &print_s, &process_error_s, &prof_s, &prog1_s, - &prog2_s, &progn_s, &promise_forced_s, &promise_inprogress_s, &promise_s, - &ptr_in_d_s, &ptr_in_s, &ptr_out_d_s, &ptr_out_s, &ptr_out_s_s, - &ptr_s, &put_buf_s, &put_byte_s, &put_char_s, &put_string_s, - &qquote_s, &qref_s, &quasi_s, &quasilist_s, &query_error_s, - "e_s, &r_atan2_s, &r_ceil_s, &r_expt_s, &r_floor_s, - &r_lognot_s, &r_logtrunc_s, &r_mod_s, &r_round_s, &r_trunc_s, - &random_state_s, &random_state_var_s, &random_warmup_s, &range_error_s, &range_s, - &rcons_s, &rdev_k, &rdev_s, &real_time_k, &rebind_s, - &rec_source_loc_s, &recip_s, &reflect_k, ®ex_s, &rep_s, - &repeat_s, &repeat_spec_k, &require_s, &resolve_k, &rest_s, - &restart_s, &return_from_s, &return_s, &rfilt_k, &round1_s, - &round_s, &rplaca_s, &rplacd_s, &sbit_s, &sec_s, - &seek_s, &seq_iter_s, &sequence_s, &set_prop_s, &set_s, - &setq_s, &setqf_s, &short_s, &shortest_k, &sign_extend_s, - &signum_s, &sin_s, &single_s, &sinh_s, &size_k, - &size_s, &skip_s, &slot_s, &some_s, &space_k, - &special_s, &splice_s, &sqrt_s, &square_s, &stat_s, - &stddebug_s, &stderr_s, &stdin_s, &stdio_stream_s, &stdnull_s, - &stdout_s, &str_d_s, &str_s, &stream_s, &string_k, - &string_s, &struct_lit_s, &struct_s, &struct_type_s, &switch_s, - &sym_s, &symacro_k, &symacrolet_s, &syntax_error_s, &sys_abscond_from_s, - &sys_apply_s, &sys_blk_s, &sys_catch_s, &sys_l1_setq_s, &sys_l1_val_s, - &sys_lisp1_setq_s, &sys_lisp1_value_s, &sys_mark_special_s, &sys_qquote_s, &sys_splice_s, - &sys_unquote_s, &system_error_s, &system_package_s, &tan_s, &tanh_s, - &text_s, &throw_s, &time_local_s, &time_parse_s, &time_s, - &time_string_s, &time_utc_s, &timeout_error_s, ×_k, &tlist_k, - &tnode_s, &tobase64_k, &tobase64url_k, &tofloat_k, &tohtml_k, - &tohtml_star_k, &toint_k, &tonumber_k, &topercent_k, &tourl_k, - &trailer_s, &tree_bind_s, &tree_case_s, &tree_construct_s, &tree_fun_whitelist_s, - &tree_iter_s, &tree_lit_s, &tree_s, &trunc1_s, &trunc_s, - &truncate_s, &try_s, &type_error_s, &ubit_s, &uchar_s, - &uid_k, &uid_s, &uint16_s, &uint32_s, &uint64_s, - &uint8_s, &uint_s, &ulong_s, &unbound_s, &unget_byte_s, - &unget_char_s, &union_s, &unique_s, &unquote_s, &until_s, - &until_star_s, &upcase_k, &uref_s, &user_package_s, &userdata_k, - &ushort_s, &usr_var_s, &uw_protect_s, &val_s, &var_k, - &var_s, &vars_k, &vec_list_s, &vec_s, &vecref_s, - &vector_lit_s, &vm_closure_s, &vm_desc_s, &void_s, &warning_s, - &wchar_s, &weak_keys_k, &weak_vals_k, &when_s, &while_s, - &while_star_s, &whole_k, &width_s, &wild_s, &word_char_k, - &wrap_k, &wstr_d_s, &wstr_s, &year_s, &zap_s, - &zarray_s, &zchar_s, &zerop_s, &zeroplus_s, &zone_s, + &mac_env_param_bind_s, &mac_param_bind_s, ¯o_s, ¯o_time_s, ¯olet_s, + &make_struct_lit_s, &mandatory_k, &maxgap_k, &maxtimes_k, &maybe_s, + &mdo_s, &memq_s, &memql_s, &memqual_s, &merge_s, + &meth_s, &min_s, &mingap_k, &mintimes_k, &minus_s, + &minusp_s, &mod_s, &mode_k, &mode_s, &modlast_s, + &month_s, &mtime_k, &mtime_nsec_s, &mtime_s, &mul_s, + &name_k, &name_s, &named_k, &neg_s, &next_s, + &next_spec_k, &nlink_k, &nlink_s, &none_s, &nongreedy_s, + ¬_s, ¬hrow_k, &noval_s, &null_s, &nullify_s, + &number_s, &numeq_s, &numeric_error_s, &oddp_s, &oneplus_s, + &op_s, &optional_s, &or_s, &output_s, &package_alist_s, + &package_s, &panic_s, &parser_s, &path_exists_s, &path_not_found_s, + &path_permission_s, &path_s, &pkg_s, &plus_s, &plusp_s, + &postinit_k, &pprint_flo_format_s, &print_base_s, &print_circle_s, &print_flo_digits_s, + &print_flo_format_s, &print_flo_precision_s, &print_s, &process_error_s, &prof_s, + &prog1_s, &prog2_s, &progn_s, &promise_forced_s, &promise_inprogress_s, + &promise_s, &ptr_in_d_s, &ptr_in_s, &ptr_out_d_s, &ptr_out_s, + &ptr_out_s_s, &ptr_s, &put_buf_s, &put_byte_s, &put_char_s, + &put_string_s, &qquote_s, &qref_s, &quasi_s, &quasilist_s, + &query_error_s, "e_s, &r_atan2_s, &r_ceil_s, &r_expt_s, + &r_floor_s, &r_lognot_s, &r_logtrunc_s, &r_mod_s, &r_round_s, + &r_trunc_s, &random_state_s, &random_state_var_s, &random_warmup_s, &range_error_s, + &range_s, &rcons_s, &rdev_k, &rdev_s, &real_time_k, + &rebind_s, &rec_source_loc_s, &recip_s, &reflect_k, ®ex_s, + &rep_s, &repeat_s, &repeat_spec_k, &require_s, &resolve_k, + &rest_s, &restart_s, &return_from_s, &return_s, &rfilt_k, + &round1_s, &round_s, &rplaca_s, &rplacd_s, &sbit_s, + &sec_s, &seek_s, &seq_iter_s, &sequence_s, &set_prop_s, + &set_s, &setq_s, &setqf_s, &short_s, &shortest_k, + &sign_extend_s, &signum_s, &sin_s, &single_s, &sinh_s, + &size_k, &size_s, &skip_s, &slot_s, &some_s, + &space_k, &special_s, &splice_s, &sqrt_s, &square_s, + &stat_s, &stddebug_s, &stderr_s, &stdin_s, &stdio_stream_s, + &stdnull_s, &stdout_s, &str_d_s, &str_s, &stream_s, + &string_k, &string_s, &struct_lit_s, &struct_s, &struct_type_s, + &switch_s, &sym_s, &symacro_k, &symacrolet_s, &syntax_error_s, + &sys_abscond_from_s, &sys_apply_s, &sys_blk_s, &sys_catch_s, &sys_l1_setq_s, + &sys_l1_val_s, &sys_lisp1_setq_s, &sys_lisp1_value_s, &sys_mark_special_s, &sys_qquote_s, + &sys_splice_s, &sys_unquote_s, &system_error_s, &system_package_s, &tan_s, + &tanh_s, &text_s, &throw_s, &time_local_s, &time_parse_s, + &time_s, &time_string_s, &time_utc_s, &timeout_error_s, ×_k, + &tlist_k, &tnode_s, &tobase64_k, &tobase64url_k, &tofloat_k, + &tohtml_k, &tohtml_star_k, &toint_k, &tonumber_k, &topercent_k, + &tourl_k, &trailer_s, &tree_bind_s, &tree_case_s, &tree_construct_s, + &tree_fun_whitelist_s, &tree_iter_s, &tree_lit_s, &tree_s, &trunc1_s, + &trunc_s, &truncate_s, &try_s, &type_error_s, &ubit_s, + &uchar_s, &uid_k, &uid_s, &uint16_s, &uint32_s, + &uint64_s, &uint8_s, &uint_s, &ulong_s, &unbound_s, + &unget_byte_s, &unget_char_s, &union_s, &unique_s, &unquote_s, + &until_s, &until_star_s, &upcase_k, &uref_s, &user_package_s, + &userdata_k, &ushort_s, &usr_var_s, &uw_protect_s, &val_s, + &var_k, &var_s, &vars_k, &vec_list_s, &vec_s, + &vecref_s, &vector_lit_s, &vm_closure_s, &vm_desc_s, &void_s, + &warning_s, &wchar_s, &weak_keys_k, &weak_vals_k, &when_s, + &while_s, &while_star_s, &whole_k, &width_s, &wild_s, + &word_char_k, &wrap_k, &wstr_d_s, &wstr_s, &year_s, + &zap_s, &zarray_s, &zchar_s, &zerop_s, &zeroplus_s, + &zone_s, #if HAVE_DLOPEN &dlhandle_s, &dlsym_s, |