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