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