1 | /* Copyright (C) 1994-2001 Digitool, Inc */ |
---|
2 | /* This file is part of OpenMCL. */ |
---|
3 | |
---|
4 | /* OpenMCL is licensed under the terms of the Lisp Lesser GNU Public */ |
---|
5 | /* License , known as the LLGPL and distributed with OpenMCL as the */ |
---|
6 | /* file "LICENSE". The LLGPL consists of a preamble and the LGPL, */ |
---|
7 | /* which is distributed with OpenMCL as the file "LGPL". Where these */ |
---|
8 | /* conflict, the preamble takes precedence. */ |
---|
9 | |
---|
10 | /* OpenMCL is referenced in the preamble as the "LIBRARY." */ |
---|
11 | |
---|
12 | /* The LLGPL is also available online at */ |
---|
13 | /* http://opensource.franz.com/preamble.html */ |
---|
14 | |
---|
15 | |
---|
16 | |
---|
17 | |
---|
18 | |
---|
19 | error_reg_errnum = 0 /* "real" (typically negative) error number is in RB */ |
---|
20 | error_udf = 1 |
---|
21 | error_udf_call = 2 |
---|
22 | error_throw_tag_missing = 3 |
---|
23 | error_alloc_failed = 4 |
---|
24 | error_stack_overflow = 5 |
---|
25 | error_excised_function_call = 6 |
---|
26 | error_too_many_values = 7 |
---|
27 | error_propagate_suspend = 10 |
---|
28 | error_interrupt = 11 |
---|
29 | error_suspend = 12 |
---|
30 | error_suspend_all = 13 |
---|
31 | error_resume = 14 |
---|
32 | error_resume_all = 15 |
---|
33 | error_cant_call = 17 |
---|
34 | |
---|
35 | error_type_error = 128 |
---|
36 | |
---|
37 | define([__type_error_counter__],128) |
---|
38 | define([def_type_error],[ |
---|
39 | error_object_not_$1 = __type_error_counter__ |
---|
40 | define([__type_error_counter__],eval(__type_error_counter__+1))]) |
---|
41 | |
---|
42 | def_type_error(array) |
---|
43 | def_type_error(bignum) |
---|
44 | def_type_error(fixnum) |
---|
45 | def_type_error(character) |
---|
46 | def_type_error(integer) |
---|
47 | def_type_error(list) |
---|
48 | def_type_error(number) |
---|
49 | def_type_error(sequence) |
---|
50 | def_type_error(simple_string) |
---|
51 | def_type_error(simple_vector) |
---|
52 | def_type_error(string) |
---|
53 | def_type_error(symbol) |
---|
54 | def_type_error(macptr) |
---|
55 | def_type_error(real) |
---|
56 | def_type_error(cons) |
---|
57 | def_type_error(unsigned_byte) |
---|
58 | def_type_error(radix) |
---|
59 | def_type_error(float) |
---|
60 | def_type_error(rational) |
---|
61 | def_type_error(ratio) |
---|
62 | def_type_error(short_float) |
---|
63 | def_type_error(double_float) |
---|
64 | def_type_error(complex) |
---|
65 | def_type_error(vector) |
---|
66 | def_type_error(simple_base_string) |
---|
67 | def_type_error(function) |
---|
68 | def_type_error(unsigned_byte_16) |
---|
69 | def_type_error(unsigned_byte_8) |
---|
70 | def_type_error(unsigned_byte_32) |
---|
71 | def_type_error(signed_byte_32) |
---|
72 | def_type_error(signed_byte_16) |
---|
73 | def_type_error(signed_byte_8) |
---|
74 | def_type_error(base_character) |
---|
75 | def_type_error(bit) |
---|
76 | def_type_error(unsigned_byte_24) |
---|
77 | def_type_error(u64) |
---|
78 | def_type_error(s64) |
---|
79 | def_type_error(unsigned_byte_56) |
---|
80 | def_type_error(simple_array_double_float_2d) |
---|
81 | def_type_error(simple_array_single_float_2d) |
---|
82 | def_type_error(mod_char_code_limit) |
---|
83 | def_type_error(array_2d) |
---|
84 | def_type_error(array_3d) |
---|
85 | def_type_error(array_t) |
---|
86 | def_type_error(array_bit) |
---|
87 | def_type_error(array_s8) |
---|
88 | def_type_error(array_u8) |
---|
89 | def_type_error(array_s16) |
---|
90 | def_type_error(array_u16) |
---|
91 | def_type_error(array_s32) |
---|
92 | def_type_error(array_u32) |
---|
93 | def_type_error(array_s64) |
---|
94 | def_type_error(array_u64) |
---|
95 | def_type_error(array_fixnum) |
---|
96 | def_type_error(array_single_float) |
---|
97 | def_type_error(array_double_float) |
---|
98 | def_type_error(array_char) |
---|
99 | def_type_error(array_t_2d) |
---|
100 | def_type_error(array_bit_2d) |
---|
101 | def_type_error(array_s8_2d) |
---|
102 | def_type_error(array_u8_2d) |
---|
103 | def_type_error(array_s16_2d) |
---|
104 | def_type_error(array_u16_2d) |
---|
105 | def_type_error(array_s32_2d) |
---|
106 | def_type_error(array_u32_2d) |
---|
107 | def_type_error(array_s64_2d) |
---|
108 | def_type_error(array_u64_2d) |
---|
109 | def_type_error(array_fixnum_2d) |
---|
110 | def_type_error(array_single_float_2d) |
---|
111 | def_type_error(array_double_float_2d) |
---|
112 | def_type_error(array_char_2d) |
---|
113 | def_type_error(simple_array_t_2d) |
---|
114 | def_type_error(simple_array_bit_2d) |
---|
115 | def_type_error(simple_array_s8_2d) |
---|
116 | def_type_error(simple_array_u8_2d) |
---|
117 | def_type_error(simple_array_s16_2d) |
---|
118 | def_type_error(simple_array_u16_2d) |
---|
119 | def_type_error(simple_array_s32_2d) |
---|
120 | def_type_error(simple_array_u32_2d) |
---|
121 | def_type_error(simple_array_s64_2d) |
---|
122 | def_type_error(simple_array_u64_2d) |
---|
123 | def_type_error(simple_array_fixnum_2d) |
---|
124 | def_type_error(simple_array_char_2d) |
---|
125 | def_type_error(array_t_3d) |
---|
126 | def_type_error(array_bit_3d) |
---|
127 | def_type_error(array_s8_3d) |
---|
128 | def_type_error(array_u8_3d) |
---|
129 | def_type_error(array_s16_3d) |
---|
130 | def_type_error(array_u16_3d) |
---|
131 | def_type_error(array_s32_3d) |
---|
132 | def_type_error(array_u32_3d) |
---|
133 | def_type_error(array_s64_3d) |
---|
134 | def_type_error(array_u64_3d) |
---|
135 | def_type_error(array_fixnum_3d) |
---|
136 | def_type_error(array_single_float_3d) |
---|
137 | def_type_error(array_double_float_3d) |
---|
138 | def_type_error(array_char_3d) |
---|
139 | def_type_error(simple_array_t_3d) |
---|
140 | def_type_error(simple_array_bit_3d) |
---|
141 | def_type_error(simple_array_s8_3d) |
---|
142 | def_type_error(simple_array_u8_3d) |
---|
143 | def_type_error(simple_array_s16_3d) |
---|
144 | def_type_error(simple_array_u16_3d) |
---|
145 | def_type_error(simple_array_s32_3d) |
---|
146 | def_type_error(simple_array_u32_3d) |
---|
147 | def_type_error(simple_array_s64_3d) |
---|
148 | def_type_error(simple_array_u64_3d) |
---|
149 | def_type_error(simple_array_fixnum_3d) |
---|
150 | def_type_error(simple_array_single_float_3d) |
---|
151 | def_type_error(simple_array_double_float_3d) |
---|
152 | def_type_error(simple_array_char_3d) |
---|
153 | |
---|
154 | |
---|
155 | /* These are the "old" error constants that %ERR-DISP understands */ |
---|
156 | |
---|
157 | define([deferr],[ |
---|
158 | $1 = $2<<fixnumshift]) |
---|
159 | |
---|
160 | |
---|
161 | deferr(XVUNBND,1) |
---|
162 | deferr(XBADVEC,2) |
---|
163 | deferr(XTMINPS,3) |
---|
164 | deferr(XNEINPS,4) |
---|
165 | deferr(XWRNGINP,5) |
---|
166 | deferr(XFUNBND,6) |
---|
167 | deferr(XSETBADVEC,7) |
---|
168 | deferr(XCOERCE,8) |
---|
169 | deferr(XWRONGSYS,9) |
---|
170 | deferr(XNOMEM,10) |
---|
171 | deferr(XOPENIMAGE,11) |
---|
172 | deferr(XNOTFUN,13) |
---|
173 | deferr(XNOCTAG,33) |
---|
174 | deferr(XNOFPU,36) |
---|
175 | deferr(XBADTOK,49) |
---|
176 | deferr(XFLOVFL,64) |
---|
177 | deferr(XDIVZRO,66) |
---|
178 | deferr(XFLDZRO,66) |
---|
179 | deferr(XMEMFULL,76) |
---|
180 | deferr(XARRLIMIT,77) |
---|
181 | deferr(XSTKOVER,75) |
---|
182 | deferr(XFLEXC,98) |
---|
183 | deferr(XMFULL,-41) |
---|
184 | |
---|
185 | deferr(XARROOB,112) |
---|
186 | deferr(XCONST,115) |
---|
187 | deferr(XNOSPREAD,120) |
---|
188 | deferr(XFASLVERS,121) |
---|
189 | deferr(XNOTFASL,122) |
---|
190 | deferr(XUDFCALL,123) |
---|
191 | deferr(XWRONGIMAGE,124) |
---|
192 | |
---|
193 | deferr(XNOPKG,130) |
---|
194 | deferr(XBADFASL,132) |
---|
195 | deferr(XSYMACC,135) |
---|
196 | deferr(XEXPRTC,136) |
---|
197 | deferr(XNDIMS,148) |
---|
198 | deferr(XNARGS,150) |
---|
199 | deferr(XBADKEYS,153) |
---|
200 | deferr(XWRONGTYPE,157) |
---|
201 | deferr(XBADSTRUCT,158) |
---|
202 | deferr(XSTRUCTBOUNDS,159) |
---|
203 | deferr(XCALLNOTLAMBDA,160) |
---|
204 | deferr(XTEMPFLT,161) |
---|
205 | deferr(XCALLTOOMANY,167) |
---|
206 | deferr(XCALLTOOFEW,168) |
---|
207 | deferr(XCALLNOMATCH,169) |
---|
208 | deferr(XIMPROPERLIST,170) |
---|
209 | deferr(XNOFILLPTR,171) |
---|
210 | deferr(XMALADJUST,172) |
---|
211 | deferr(XACCESSNTH,173) |
---|
212 | deferr(XNOTELT,174) |
---|
213 | deferr(XSGEXHAUSTED,175) |
---|
214 | deferr(XSGNARGS,176) |
---|
215 | deferr(XTOOMANYVALUES,177) |
---|
216 | deferr(XSYMNOBIND,178) |
---|
217 | deferr(XFOREIGNEXCEPTION,200) |
---|
218 | |
---|
219 | error_FPU_exception_double = 1024 |
---|
220 | error_FPU_exception_short = 1025 |
---|
221 | error_memory_full = 2048 |
---|