| 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 |
|---|
