source: branches/1.2/devel/source/level-0/l0-error.lisp @ 8123

Last change on this file since 8123 was 6915, checked in by gb, 13 years ago

foreign exception error stuff.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 6.7 KB
Line 
1;;;
2;;;   Copyright (C) 1994-2001 Digitool, Inc
3;;;   This file is part of OpenMCL. 
4;;;
5;;;   OpenMCL is licensed under the terms of the Lisp Lesser GNU Public
6;;;   License , known as the LLGPL and distributed with OpenMCL as the
7;;;   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
8;;;   which is distributed with OpenMCL as the file "LGPL".  Where these
9;;;   conflict, the preamble takes precedence. 
10;;;
11;;;   OpenMCL is referenced in the preamble as the "LIBRARY."
12;;;
13;;;   The LLGPL is also available online at
14;;;   http://opensource.franz.com/preamble.html
15
16(in-package "CCL")
17
18(defparameter *error-format-strings* 
19  '((1 . "Unbound variable: ~S .")
20    (2 . "Invalid reference to ~s at index ~s.")
21    (3 . "Too many arguments.")
22    (4 . "Too few arguments.")
23    (5 . "Argument ~S is not of the required type.")
24    (6 . "Undefined function: ~S .")
25    (7 . "Invalid assignnnt of ~s at index ~s, to ~s.")
26    (8 . "Can't coerce ~S to ~S")
27    (9 . "Funcallable instance ~S was called with args ~s, but has no FUNCALLABLE-INSTANCE-FUNCTION")
28    (10 . "Out of memory.")
29    (11 . "Default image file not found.")
30    (12 . "No translation for ~S")
31    (13 . "~S can't be FUNCALLed or APPLYed.")
32    (14 . "~S is not a symbol or lambda expression")
33    (15 . "Declaration ~S in unexpected position")
34    (16 . "Can't setq constant ~S")
35    (17 . "Odd number of forms to setq in ~S")
36    (18 . "Illegal arg to setq ~S")
37    (19 . "~S is not a symbol.")
38    (20 . "~S is a constant.")
39    (21 . "Bad initialization form: ~S")
40    (22 . "Symbol macro ~S is declared or proclaimed special")
41    (23 . "Too many arguments in ~S")
42    (24 . "Local macro cannot reference lexically defined variable ~S")
43    (25 . "Local macro cannot reference lexically defined function ~S")
44    (26 . "Local macro cannot reference lexically defined tag ~S")
45    (27 . "Local macro cannot reference lexically defined block ~S")
46    (28 . "Cant find tag ~S")
47    (29 . "Duplicate tag ~S")
48    (30 . "Cant find block ~S")
49    (31 . "Bad lambda list  ~S.")
50    (32 . "~S is not a valid lambda expression.")
51    (33 . "Can't throw to tag ~S .")
52    (34 . "Object ~S is not of type ~S.")
53    (35 . "FUNCTION can't reference lexically defined macro ~S")
54    (36 . "Unimplemented FPU instruction ~^~S.")
55    (41 . "Unmatched ')'.")
56    (42 . "~S and ~S must be on the same volume.")
57    (43 . "Filename ~S contains illegal character ~S")
58    (44 . "Illegal use of wildcarded filename ~S")
59    (45 . "~S is not a FASL or TEXT file.")
60    (46 . "Cannot rename directory to file ~S")
61    (47 . "Found a directory instead of a file or vice versa ~S")
62    (48 . "Cannot copy directories: ~S")
63    (49 . "String too long for pascal record")
64    (50 . "Cannot create ~S")
65    (64 . "Floating point overflow")
66    (66 . "Can't divide by zero.")
67    (75 . "Stack overflow. Bytes requested: ~d")
68    (76 . "Memory allocation request failed.")
69    (77 . "~S exceeds array size limit of ~S bytes.")
70    (94. "Printer error.")
71    (95. "Can't load printer.")
72    (96. "Can't get printer parameters.")
73    (97. "Can't start up printer job.")
74    (98. "Floating point exception.")
75    (111 . "Unexpected end of file encountered.")
76    (112 . "Array index ~S out of bounds for ~S .")
77    (113 . "Reader error: ~S encountered.")
78    (114 . "Reader error: Unknown reader macro character ~S .")
79    (115 . "Can't redefine constant ~S .")
80    (116 . "Reader error: Illegal character ~S .")
81    (117 . "Reader error: Illegal symbol syntax.")
82    (118 . "Reader error: Dot context error.")
83    (119 . "Reader error: Bad value ~S for *READ-BASE*.")
84    (120 . "Can't construct argument list from ~S.")
85    (121 . "Wrong FASL version.")
86    (122 . "Not a FASL file.")
87    (123 . "Undefined function ~s called with arguments ~s.")
88    (124 . "Image file incompatible with current version of Lisp.")
89    (127 .   "Using ~S in ~S ~%would cause name conflicts with symbols inherited by that package: ~%~:{~S  ~S~%~}")
90    (128 .   "Importing ~S to ~S would conflict with inherited symbol ~S ." )
91    (129 .   "Reader error: Malformed number in a #b/#o/#x/#r macro." )
92    (130 .   "There is no package named ~S ." )
93    (131 .   "Reader error: No external symbol named ~S in package ~S ." )
94    (132 .   "Bad FASL file: internal inconsistency detected." )
95    (133 .   "Importing ~S to ~S would conflict with symbol ~S ." )
96    (134 .   "Uninterning ~S from ~S would cause conflicts among ~S ." )
97    (135 .   "~S is not accessible in ~S ." )
98    (136 .   "Exporting ~S in ~S would cause a name conflict with ~S in ~S ." )
99    (137 .   "Using ~S in ~S ~%would cause name conflicts with symbols already present in that package: ~%~:{~S  ~S~%~}")
100    (139 .   "Reader macro function ~S called outside of reader." )
101    (140 .   "Reader error: undefined character ~S in a ~S dispatch macro." )
102    (141 .   "Reader dispatch macro character ~S doesn't take an argument." )
103    (142 .   "Reader dispatch macro character ~S requires an argument." )
104    (143 .   "Reader error: Bad radix in #R macro." )
105    (144 .   "Reader error: Duplicate #~S= label." )
106    (145 .   "Reader error: Missing #~S# label." )
107    (146 .   "Reader error: Illegal font number in #\\ macro." )
108    (147 .   "Unknown character name ~S in #\\ macro." )
109    (148 .   "~S cannot be accessed with ~S subscripts." )
110    (149 .   "Requested size is too large to displace to ~S ." )
111    (150 .   "Too many elements in argument list ~S ." )
112    (151 .    "Arrays are not of the same size" )
113    (152 . "Conflicting keyword arguments : ~S ~S, ~S ~S .")
114    (153 . "Incorrect keyword arguments in ~S .")
115    (154 . "Two few arguments in form ~S .")
116    (155 . "Too many arguments in form ~S .")
117    (157 . "value ~S is not of the expected type ~S.")
118    (158 . "~S is not a structure.")
119    (159 . "Access to slot ~S of structure ~S is out of bounds.")
120    (160 . "Form ~S does not match lambda list ~A .")
121    (161 . "Temporary number space exhausted.")
122    (163 . "Illegal #+/- expression ~S.")
123    (164 . "File ~S does not exist.")
124    (165 . "~S argument ~S is not of the required type.")
125    (166 . "~S argument ~S is not of type ~S.")
126    (167 . "Too many arguments in ~S.")
127    (168 . "Too few arguments in ~S.")
128    (169 . "Arguments don't match lambda list in ~S.")
129    (170 . "~S is not a proper list.")
130    (171 . "~S is not an array with a fill pointer.")
131    (172 . "~S is not an adjustable array.")
132    (173 . "Can't access component ~D of ~S.")
133    (174 . "~S doesn't match array element type of ~S.")
134    (175 . "Stack group ~S is exhausted.")
135    (176 . "Stack group ~S called with arguments ~:S; exactly 1 argument accepted.")
136    (177 . "Attempt to return too many values.")
137    (178 . "Can't dynamically bind ~S. ")
138    (200 . "Foreign exception: ~S. ")))
139 
140
Note: See TracBrowser for help on using the repository browser.