1 2 " BEGIN INCLUDE FILE lisp_name_codes.incl.alm 3 4 " These are codes for the names of functions which are stored into ab|-1,x7 before 5 " calling lisp_error_ for a bad_argument or bad_arg_correctable error. They 6 " are used so that the name of the function which is rejecting its argument 7 " can be printed. Please note that all these codes are negative. 8 9 equ fn_do,-10 10 equ fn_arg,-11 11 equ fn_setarg,-12 12 equ fn_status,-13 13 equ fn_sstatus,-14 14 equ fn_errprint,-15 15 equ fn_errframe,-16 16 equ fn_evalframe,-17 17 equ fn_defaultf,-18 18 equ fn_tyo,-22 19 equ fn_ascii,-23 20 equ fn_rplaca,-24 21 equ fn_definedp,-25 22 equ fn_setq,-26 23 equ fn_set,-27 24 equ fn_delete,-28 25 equ fn_delq,-29 26 equ fn_stringlength,-30 27 equ fn_catenate,-31 28 equ fn_array,-32 29 equ fn_substr,-33 30 equ fn_index,-34 31 equ fn_get_pname,-35 32 equ fn_make_atom,-36 33 equ fn_ItoC,-37 34 equ fn_CtoI,-38 35 equ fn_defsubr,-39 36 equ fn_star_array,-40 37 equ fn_args,-41 38 equ fn_sysp,-42 39 equ fn_get,-43 40 equ fn_getl,-44 41 equ fn_putprop,-45 42 equ fn_remprop,-46 43 equ fn_save,-47 44 equ fn_add1,-48 45 equ fn_sub1,-49 46 equ fn_greaterp,-50 47 equ fn_lessp,-51 48 equ fn_minus,-52 49 equ fn_plus,-53 50 equ fn_times,-54 51 equ fn_difference,-55 52 equ fn_quotient,-56 53 equ fn_abs,-57 54 equ fn_expt,-58 55 equ fn_boole,-59 56 equ fn_rot,-60 57 equ fn_lsh,-61 58 equ fn_signp,-62 59 equ fn_fix,-63 60 equ fn_float,-64 61 equ fn_remainder,-65 62 equ fn_max,-66 63 equ fn_min,-67 64 equ fn_add1_fix,-68 65 equ fn_add1_flo,-69 66 equ fn_sub1_fix,-70 67 equ fn_sub1_flo,-71 68 equ fn_plus_fix,-72 69 equ fn_plus_flo,-73 70 equ fn_times_fix,-74 71 equ fn_times_flo,-75 72 equ fn_diff_fix,-76 73 equ fn_diff_flo,-77 74 equ fn_quot_fix,-78 75 equ fn_quot_flo,-79 76 equ fn_eval,-80 77 equ fn_apply,-81 78 equ fn_prog,-82 79 equ fn_errset,-83 80 equ fn_catch,-84 81 equ fn_throw,-85 82 equ fn_store,-86 83 equ fn_defun,-87 84 equ fn_baktrace,-88 85 equ fn_bltarray,-89 86 equ fn_star_rearray,-90 87 equ fn_gensym,-91 88 equ fn_makunbound,-92 89 equ fn_boundp,-93 90 equ fn_star_status,-94 91 equ fn_star_sstatus,-95 92 equ fn_freturn,-96 93 equ fn_cos,-97 94 equ fn_sin,-98 95 equ fn_exp,-99 96 equ fn_log,-100 97 equ fn_sqrt,-101 98 equ fn_isqrt,-102 99 equ fn_atan,-103 100 equ fn_sleep,-104 101 equ fn_oddp,-105 102 equ fn_tyipeek,-106 103 equ fn_alarmclock,-107 104 equ fn_plusp,-108 105 equ fn_minusp,-109 106 equ fn_ls,-110 107 equ fn_eql,-111 108 equ fn_gt,-112 109 equ fn_alphalessp,-113 110 equ fn_samepnamep,-114 111 equ fn_getchar,-115 112 equ fn_opena,-116 113 equ fn_sxhash,-117 114 equ fn_gcd,-118 115 equ fn_allfiles,-119 116 equ fn_chrct,-120 117 equ fn_close,-121 118 equ fn_deletef,-122 119 equ fn_eoffn,-123 120 equ fn_filepos,-124 121 equ fn_inpush,-125 122 equ fn_linel,-126 123 equ fn_mergef,-127 124 equ fn_namelist,-128 125 equ fn_names,-129 126 equ fn_namestring,-130 127 equ fn_openi,-131 128 equ fn_openo,-132 129 equ fn_prin1,-133 130 equ fn_princ,-134 131 equ fn_print,-135 132 equ fn_read,-136 133 equ fn_readch,-137 134 equ fn_readstring,-138 135 equ fn_rename,-139 136 equ fn_shortnamestring,-140 137 equ fn_tyi,-141 138 equ fn_setsyntax,-142 139 equ fn_cursorpos,-143 140 equ fn_force_output,-144 141 equ fn_clear_input,-145 142 equ fn_random,-146 143 equ fn_haulong,-147 144 equ fn_haipart,-148 145 equ fn_cline,-149 146 equ fn_fillarray,-150 147 equ fn_listarray,-151 148 equ fn_sort,-152 149 equ fn_sortcar,-153 150 equ fn_zerop,-154 151 equ fn_listify,-155 152 equ fn_charpos,-156 153 equ fn_pagel,-157 154 equ fn_linenum,-158 155 equ fn_pagenum,-159 156 equ fn_endpagefn,-160 157 equ fn_arraydims,-161 158 equ fn_loadarrays,-162 159 equ fn_dumparrays,-163 160 equ fn_expt_fix,-164 161 equ fn_expt_flo,-165 162 equ fn_nointerrupt,-166 163 equ fn_open,-167 164 equ fn_in,-168 165 equ fn_out,-169 166 equ fn_truename,-170 167 equ fn_ifix,-171 168 equ fn_fsc,-172 169 equ fn_progv,-173 170 equ fn_mapatoms,-174 171 equ fn_unwind_protect,-175 172 equ fn_eval_when,-176 173 equ fn_read_from_string,-177 174 equ fn_displace,-178 175 equ fn_nth,-179 176 equ fn_nthcdr,-180 177 equ fn_includef,-181 178 179 " END INCLUDE FILE lisp_name_codes.incl.alm