source: branches/arm/lisp-kernel/lisp-errors.h @ 13923

Last change on this file since 13923 was 13067, checked in by rme, 10 years ago

Update copyright notices.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 5.0 KB
Line 
1/*
2   Copyright (C) 2009 Clozure Associates
3   Copyright (C) 1994-2001 Digitool, Inc
4   This file is part of Clozure CL. 
5
6   Clozure CL is licensed under the terms of the Lisp Lesser GNU Public
7   License , known as the LLGPL and distributed with Clozure CL as the
8   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
9   which is distributed with Clozure CL as the file "LGPL".  Where these
10   conflict, the preamble takes precedence. 
11
12   Clozure CL is referenced in the preamble as the "LIBRARY."
13
14   The LLGPL is also available online at
15   http://opensource.franz.com/preamble.html
16*/
17
18#ifndef __ERRORS_X
19#define __ERRORS_X 1
20
21
22#define error_reg_regnum 0
23#define error_udf 1
24#define error_udf_call 2
25#define error_throw_tag_missing 3
26#define error_alloc_failed 4
27#define error_stack_overflow 5
28#define error_excised_function_call 6
29#define error_too_many_values 7
30#define error_propagate_suspend 10
31#define error_interrupt 11
32#define error_suspend 12
33#define error_suspend_all 13
34#define error_resume 14
35#define error_resume_all 15
36#define error_kill 16
37#define error_cant_call 17
38#define error_allocate_list 18
39
40#define error_type_error 128
41
42typedef enum {
43  error_object_not_array = error_type_error,
44  error_object_not_bignum,
45  error_object_not_fixnum,
46  error_object_not_character,
47  error_object_not_integer,
48  error_object_not_list,
49  error_object_not_number,
50  error_object_not_sequence,
51  error_object_not_simple_string,
52  error_object_not_simple_vector,
53  error_object_not_string,
54  error_object_not_symbol,
55  error_object_not_macptr,
56  error_object_not_real,
57  error_object_not_cons,
58  error_object_not_unsigned_byte,
59  error_object_not_radix,
60  error_object_not_float,
61  error_object_not_rational,
62  error_object_not_ratio,
63  error_object_not_short_float,
64  error_object_not_double_float,
65  error_object_not_complex,
66  error_object_not_vector,
67  error_object_not_simple_base_string,
68  error_object_not_function,
69  error_object_not_unsigned_byte_16,
70  error_object_not_unsigned_byte_8,
71  error_object_not_unsigned_byte_32,
72  error_object_not_signed_byte_32,
73  error_object_not_signed_byte_16,
74  error_object_not_signed_byte_8,       
75  error_object_not_base_character,
76  error_object_not_bit,
77  error_object_not_unsigned_byte_24,
78  error_object_not_u64,
79  error_object_not_s64,
80  error_object_not_unsigned_byte_56,
81  error_object_not_simple_array_double_float_2d,
82  error_object_not_simple_array_single_float_2d,
83  error_object_not_mod_char_code_limit,
84  error_object_not_array_2d,
85  error_object_not_array_3d,
86  error_object_not_array_t,
87  error_object_not_array_bit,
88  error_object_not_array_s8,
89  error_object_not_array_u8,
90  error_object_not_array_s16,
91  error_object_not_array_u16,
92  error_object_not_array_s32,
93  error_object_not_array_u32,
94  error_object_not_array_s64,
95  error_object_not_array_u64,
96  error_object_not_array_fixnum,
97  error_object_not_array_single_float,
98  error_object_not_array_double_float,
99  error_object_not_array_char,
100  error_object_not_array_t_2d,
101  error_object_not_array_bit_2d,
102  error_object_not_array_s8_2d,
103  error_object_not_array_u8_2d,
104  error_object_not_array_s16_2d,
105  error_object_not_array_u16_2d,
106  error_object_not_array_s32_2d,
107  error_object_not_array_u32_2d,
108  error_object_not_array_s64_2d,
109  error_object_not_array_u64_2d,
110  error_object_not_array_fixnum_2d,
111  error_object_not_array_single_float_2d,
112  error_object_not_array_double_float_2d,
113  error_object_not_array_char_2d,
114  error_object_not_simple_array_t_2d,
115  error_object_not_simple_array_bit_2d,
116  error_object_not_simple_array_s8_2d,
117  error_object_not_simple_array_u8_2d,
118  error_object_not_simple_array_s16_2d,
119  error_object_not_simple_array_u16_2d,
120  error_object_not_simple_array_s32_2d,
121  error_object_not_simple_array_u32_2d,
122  error_object_not_simple_array_s64_2d,
123  error_object_not_simple_array_u64_2d,
124  error_object_not_simple_array_fixnum_2d,
125  error_object_not_simple_array_char_2d,
126  error_object_not_array_t_3d,
127  error_object_not_array_bit_3d,
128  error_object_not_array_s8_3d,
129  error_object_not_array_u8_3d,
130  error_object_not_array_s16_3d,
131  error_object_not_array_u16_3d,
132  error_object_not_array_s32_3d,
133  error_object_not_array_u32_3d,
134  error_object_not_array_s64_3d,
135  error_object_not_array_u64_3d,
136  error_object_not_array_fixnum_3d,
137  error_object_not_array_single_float_3d,
138  error_object_not_array_double_float_3d,
139  error_object_not_array_char_3d,
140  error_object_not_simple_array_t_3d,
141  error_object_not_simple_array_bit_3d,
142  error_object_not_simple_array_s8_3d,
143  error_object_not_simple_array_u8_3d,
144  error_object_not_simple_array_s16_3d,
145  error_object_not_simple_array_u16_3d,
146  error_object_not_simple_array_s32_3d,
147  error_object_not_simple_array_u32_3d,
148  error_object_not_simple_array_s64_3d,
149  error_object_not_simple_array_u64_3d,
150  error_object_not_simple_array_fixnum_3d,
151  error_object_not_simple_array_single_float_3d,
152  error_object_not_simple_array_double_float_3d,
153  error_object_not_simple_array_char_3d
154} type_error;
155
156#define error_FPU_exception_double 1024
157#define error_FPU_exception_short 1025
158
159#define error_memory_full 2048
160
161
162
163#endif /* __ERRORS_X */
Note: See TracBrowser for help on using the repository browser.