98 |
("FEundefined_function" :undefined-function "The function ~S is undefined." |
("FEundefined_function" :undefined-function "The function ~S is undefined." |
99 |
internal-undefined-function :name) |
internal-undefined-function :name) |
100 |
("FEinvalid_function" :invalid-function "~S is invalid as a function." |
("FEinvalid_function" :invalid-function "~S is invalid as a function." |
101 |
internal-type-error) ; |obj| |
internal-type-error :datum :expected-type) ; |obj| |
102 |
("FEinvalid_variable" :invalid-variable "~S is an invalid variable." |
("FEinvalid_variable" :invalid-variable "~S is an invalid variable." |
103 |
internal-program-error) ; |obj| |
internal-program-error) ; |obj| |
104 |
("check_arg_failed" :too-few-arguments "~S [or a callee] requires ~R argument~:p,~%\ |
("check_arg_failed" :too-few-arguments "~S [or a callee] requires ~R argument~:p,~%\ |
149 |
internal-simple-stream-error :stream) |
internal-simple-stream-error :stream) |
150 |
("cannot_write" :error "Cannot write to the stream ~S." |
("cannot_write" :error "Cannot write to the stream ~S." |
151 |
internal-simple-stream-error :stream) |
internal-simple-stream-error :stream) |
152 |
|
("" :error "" internal-simple-error) |
153 |
)) |
)) |
154 |
|
|
155 |
(initialize-internal-error-table) |
(initialize-internal-error-table) |