1 /* Include file lisp_errors.incl.pl1;
 2    symbolic constants for error codes passed to lisp_err_,
 3    allowing a cheap call with an integer rather than a string.
 4    D. Reed 4/1/71 */
 5 
 6 dcl undefined_atom            fixed bin static init(1000),
 7     undefined_function        fixed bin static init(1001),
 8     too_many_args             fixed bin static init(1002),
 9     too_few_args              fixed bin static init(1003),
10     file_system_error         fixed bin static init(1004),
11     bad_argument              fixed bin static init(1005),
12     undefined_subr            fixed bin static init(1006),
13     bad_function              fixed bin static init(1007),
14     bad_bv                    fixed bin static init(1008),
15     bad_prog_op               fixed bin static init(1009),
16     throw_to_no_catch         fixed bin static init(1010),
17     nonfixedarg               fixed bin static init(1011),
18     parenmissing              fixed bin static init(1012),
19     doterror                  fixed bin static init(1013),
20     illobj                    fixed bin static init(1014),
21     badmacro                  fixed bin static init(1015),
22     shortreadlist             fixed bin static init(1016),
23     badreadlist               fixed bin static init(1017),
24     array_bound_error         fixed bin static init(1018),
25     car_cdr_error             fixed bin static init(1019);
26 
27 /* end include file lisp_errors.incl.pl1 */