1 
 2 /*  BEGIN INCLUDE FILE lisp_error_codes.incl.pl1 */
 3 
 4 /* This contains codes to be stored on the unmkd pdl before calling
 5    lisp_error_.  These codes, at ab|-2,x7, are used by lisp_error_
 6    as an index into lisp_error_table_. */
 7 
 8 dcl (
 9           undefined_atom                init(100),                    /* - correctable */
10           undefined_function            init(101),                    /* - correctable */
11           too_many_args                 init(102),                    /* uncorrectable  */
12           too_few_args                  init(103),                    /* .. */
13           file_system_error             init(104),                    /* (obsolete) */
14           bad_argument                  init(105),                    /* uncorrectable arg reject */
15           undefined_subr                init(106),
16           bad_function                  init(107),                    /* "bad functional form" */
17           bad_bv                        init(108),                    /* attempt to bind non-variable */
18           unseen_go_tag                 init(109),                    /* correctable -> unevaled new tag */
19           throw_to_no_catch             init(110),                    /* .. */
20           nonfixedarg                   init(111),                    /* correctable */
21           parenmissing                  init(112),                    /* uncorr reader error */
22           doterror                      init(113),                    /* .. */
23           illobj                        init(114),                    /* .. */
24           badmacro                      init(115),                    /* .. */
25           shortreadlist                 init(116),                    /* .. */
26           badreadlist                   init(117),                    /* .. */
27           array_bound_error             init(118),                    /* corr -> (array sub1 sub2...) */
28           car_cdr_error                 init(119),                    /* uncorr - car or cdr of number */
29           bad_arg_correctable           init(120),                    /* correctable arg reject */
30           bad_prog_op                   init(121),                    /* uncorr fail-act: go or return */
31           no_lexpr                      init(122),                    /* uncorr fail-act: args or setarg */
32           wrong_no_args                 init(123),                    /* correctable wna -> new expr value */
33           bad_ibase                     init(124),                    /* corr */
34           bad_base                      init(125),                    /* corr */
35           bad_input_source              init(126),                    /* corr - retry i/o */
36           bad_output_dest               init(127),                    /* .. */
37           nihil_ex_nihile               init(128),                    /* uncorr - attempt to setq nil */
38           not_pdl_ptr                   init(131),                    /* corr arg reject - for pdl ptr args */
39           bad_f_fcn                     init(134),                    /* compiled call to fsubr with evaled args */
40           overflow_err                  init(135),                    /* arithmetic overflow. */
41           mismatch_super_parens         init(136),                    /* uncorr reader error */
42           no_left_super_paren           init(137),                    /* .. */
43           flonum_too_big                init(138),                    /* .. */
44           quoterror                     init(139),                    /* .. */
45           badreadtable                  init(140),                    /* .. */
46           badobarray                    init(141),                    /* .. */
47           atan_0_0_err                  init(142),                    /* (atan 0 0) doesn't work */
48           unable_to_float               init(143),                    /* corr arg reject - (float x) */
49           division_by_zero              init(144),                    /* uncorr (should really be corr) */
50           eof_in_object                 init(145),                    /* corr fail-act -> keep reading anyway */
51           cant_filepos                  init(146),                    /* corr fail-act -> new expr value */
52           filepos_oob                   init(147),                    /* .. */
53           file_sys_fun_err              init(148),                    /* corr f.s. err -> new expr value */
54           stars_left_in_name            init(149),                    /* .. */
55           io_wrong_direction            init(150),                    /* .. */
56           file_is_closed                init(151),                    /* .. */
57           reopen_inconsistent           init(152),                    /* .. */
58           bad_entry_name                init(153),                    /* .. */
59           bad_do_format                 init(154),                    /* bad do format in interp. */
60           not_an_array                  init(155),                    /* bad array-type arg */
61           not_alpha_array               init(156),                    /* bad all-alphabetic array */
62           include_file_error            init(157),                    /* %include barfed */
63           stack_loss_error              init(158),                    /* stack overflew */
64           underflow_fault               init(159),
65           zerodivide_fault              init(160),
66           bad_array_subscript           init(161),
67           store_not_allowed             init(162),
68           dead_array_reference          init(163),
69           cant_subscript_readtable      init(164),
70           not_same_type                 init(165),
71           special_array_type            init(166),
72           array_too_big                 init(167),
73           argument_must_be_array        init(168),
74           store_function_misused        init(169)
75     ) fixed bin static;
76 
77 /*  END INCLUDE FILE lisp_error_codes.incl.pl1 */